Замена символов в строчке на прописные

[zaraz]

нужно создать функцию, которая изменяла каждый второй символ в строке на прописной.

честно говоря ума не приложу как это делать...

[Юнлинг]

Сообщение от zaraz

нужно создать функцию, которая изменяла каждый второй символ в строке на прописной.

честно говоря ума не приложу как это делать...

Они уже есть в Excelе. для ячейки A1

==ЗАМЕНИТЬ(A1;2;1;ПРОПИСН(ПСТР(A1;2;1)))

[zaraz]

Сообщение от Юнлинг

Они уже есть в Excelе.

мне не для себя. такое вот задание - написать функцию

[SAS888]

Например, так:

Function Проп2(ячейка As Range) As String
    Dim i As Integer, s As String
    For i = 1 To Len(ячейка)
        If i Mod 2 = 0 Then s = s & LCase(Mid$(ячейка, i, 1)) Else s = s & UCase(Mid$(ячейка, i, 1))
    Next: Проп2 = s
End Function

[zaraz]

спасибо! не знал про функции UCase и LCase. теперь такие рода задачи смогу сам решать!

[Xpoft]

Сообщение от SAS888

Например, так:

Function Проп2(ячейка As Range) As String
    Dim i As Integer, s As String
    For i = 1 To Len(ячейка)
        If i Mod 2 = 0 Then s = s & LCase(Mid$(ячейка, i, 1)) Else s = s & UCase(Mid$(ячейка, i, 1))
    Next: Проп2 = s
End Function

Небольшое замечание: SAS888 у вас нечетные символы тоже меняются, а этого в задании не было поэтому с вашего позволения подправлю:

Function Проп2(ячейка As Range) As String
    Dim i As Integer, s As String
    For i = 2 To Len(ячейка) Step 2
        s = s & UCase(Mid$(ячейка, i, 1)) 
    Next: Проп2 = s
End Function

[SAS888]

у вас нечетные символы тоже меняются, а этого в задании не было...

Согласен. Я специально так сделал. Подождем, что по этому поводу скажет автор вопроса. По опыту знаю, что задача очень часто ставится не полностью, а иногда и не корректно.

[Aent]

Или так:

Function Up2(s As String) As String
      Dim i As Long
      For i = 2 To Len(s) Step 2
           Mid$(s,i,1) = UCase(Mid$(s,i,1)) 
      Next i
      Up2 = s
End Function

[zaraz]

Небольшое замечание: SAS888 у вас нечетные символы тоже меняются,

там меняются только нечетные символы. мне же надо было чтобы изменились только четные. я поменял местами действие по then и по else местами. вот и все.

зы и задачу я поставил вроде как корректно и правильно.

всем большое спасибо за помощь!