Function ConvertRegistr(sString As String, Tip As Byte) As String
'Tip = 1 - ВСЕ ПРОПИСНЫЕ
'Tip = 2 - все строчные
'Tip = 3 - Начинать С Прописных
'Tip = 4 - Как в предложениях
'Tip = 5 - иЗМЕНИТЬ рЕГИСТР
Dim i&
If Tip = 4 Then
ConvertRegistr = StrConv(sString, 2)
Mid$(ConvertRegistr, 1, 1) = UCase(Mid$(ConvertRegistr, 1, 1))
ElseIf Tip > 4 Then
For i = 1 To Len(sString)
Mid$(sString, i, 1) = IIf(Mid$(sString, i, 1) = UCase(Mid$(sString, i, 1)), _
LCase(Mid$(sString, i, 1)), UCase(Mid$(sString, i, 1)))
Next
ConvertRegistr = sString
Else
ConvertRegistr = StrConv(sString, Tip)
End If
End Function
Добавлено спустя 24 секунды
Только в цикле перебирать свои значения.
Добавлено спустя 52 секунды
если бы в 1С я бы помог. но в екселе увы пас.
О Боже! Visual Basic, что ли?)
так ексель на нем и работает. его включаешь если не ошибаюсь ALT + f11
Но, судя по коду, функция изменяет регистр
Добавлено спустя 34 секунды
2 произвольные прописные буквы, причем 2 подряд в конце слова
Две последние буквы в конце можно выделить функцией ПРАВСИМВ(), а вот чтобы они были именно прописными, сейчас не могу сообразить.
2 произвольные прописные буквы, причем 2 подряд в конце слова
Две последние буквы в конце можно выделить функцией ПРАВСИМВ(), а вот чтобы они были именно прописными, сейчас не могу сообразить.
Function ConvertRegistr(sString As String, Tip As Byte) As String
'Tip = 1 - ВСЕ ПРОПИСНЫЕ
'Tip = 2 - все строчные
'Tip = 3 - Начинать С Прописных
'Tip = 4 - Как в предложениях
'Tip = 5 - иЗМЕНИТЬ рЕГИСТР
Dim i&
If Tip = 4 Then
ConvertRegistr = StrConv(sString, 2)
Mid$(ConvertRegistr, 1, 1) = UCase(Mid$(ConvertRegistr, 1, 1))
ElseIf Tip > 4 Then
For i = 1 To Len(sString)
Mid$(sString, i, 1) = IIf(Mid$(sString, i, 1) = UCase(Mid$(sString, i, 1)), _
LCase(Mid$(sString, i, 1)), UCase(Mid$(sString, i, 1)))
Next
ConvertRegistr = sString
Else
ConvertRegistr = StrConv(sString, Tip)
End If
End Function
Добавлено спустя 24 секунды
Только в цикле перебирать свои значения.
Добавлено спустя 52 секунды
если бы в 1С я бы помог. но в екселе увы пас.
Есть опция условное форматирование.
Настраиваешь условия и получаешь выделение нужных значений. Главное правильно условие задать - нужны функции работы со строкой. А отбор построить врят ли получится.
Пробовал. Фильтр пробовал. Условие - вот тут проблема. ПРОПИСН не канает)