Тема #237897

 #  

 #  

#1778650 пишет

Знаю! Не помогу!

нет времени((

 #  

незнаю

 #  

#1778650 пишет

Вопрос знатокам

отвечать будет Александр Груздь

 #  

 #  

Не хрен делать - буквы только латинские, взвёл 7-й бит и сравнил

 #  

Goga пишет

Не хрен делать - буквы только латинские, взвёл 7-й бит и сравнил

кириллица

 #  

...Александр Друзь берёт дополнительную минуту...!

 #  

#1778650 пишет

Goga пишет

Не хрен делать - буквы только латинские, взвёл 7-й бит и сравнил

кириллица

Не звездельпи - это не wmmail. Тут обосрёшься - надо знать какая таблица перекодировки, я

 #  

Есть опция условное форматирование.
Настраиваешь условия и получаешь выделение нужных значений. Главное правильно условие задать - нужны функции работы со строкой. А отбор построить врят ли получится.

 #  

mindruk пишет

Есть опция условное форматирование.
Настраиваешь условия и получаешь выделение нужных значений. Главное правильно условие задать - нужны функции работы со строкой. А отбор построить врят ли получится.

Пробовал. Фильтр пробовал. Условие - вот тут проблема. ПРОПИСН не канает)

 #  

Две одинаковые прописные буквы или произвольно две прописные в отличие от строчных?

 #  

#1017504 пишет

Две одинаковые прописные буквы или произвольно две прописные в отличие от строчных?

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С я бы помог. но в екселе увы пас.

 #  

mindruk пишет

Можно составить свою функцию. Вот пример

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, что ли?)

 #  

#1778650 пишет

mindruk пишет

Можно составить свою функцию. Вот пример

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

 #  

#1778650 пишет

2 произвольные прописные буквы, причем 2 подряд в конце слова

Две последние буквы в конце можно выделить функцией ПРАВСИМВ(), а вот чтобы они были именно прописными, сейчас не могу сообразить.

 #  

#1017504 пишет

#1778650 пишет

2 произвольные прописные буквы, причем 2 подряд в конце слова

Две последние буквы в конце можно выделить функцией ПРАВСИМВ(), а вот чтобы они были именно прописными, сейчас не могу сообразить.

Только не забудь срезать концевые пробелы и сбацать что-то типа uppercase

 #  

mindruk пишет

#1778650 пишет

mindruk пишет

Можно составить свою функцию. Вот пример

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 секунды

#1017504 пишет

#1778650 пишет

2 произвольные прописные буквы, причем 2 подряд в конце слова

Две последние буквы в конце можно выделить функцией ПРАВСИМВ(), а вот чтобы они были именно прописными, сейчас не могу сообразить.

Goga пишет

#1017504 пишет

#1778650 пишет

2 произвольные прописные буквы, причем 2 подряд в конце слова

Две последние буквы в конце можно выделить функцией ПРАВСИМВ(), а вот чтобы они были именно прописными, сейчас не могу сообразить.

То-то же

 #  

если есть возможность получить последние две буквы, тогда можно проверить их в диапазоне кодов символов. Строчные находятся в одном диапазоне, заглавные в следующем. но все равно придется писать код. и необходимо найти таблицу диапазонов символов. тогда можно построить условие которое в цикле переберет все значения.

 #  

#1778650 пишет

То-то же

Коды строчных от А до Я - с 192 до 223. Подумай в этом направлении.

 #  

Как вариант, только если это какие-то конкретные две буквы. А так вряд ли... Вообще выборку делаешь через "Данные - Фильтр".

 #  

Пример из паскаля, от басика сильно отличаться не должен
Var
C:Char;
Begin
Write('Enter the letter: ');
Readln(C);
If (Ord(C)>64) and (Ord(C)96) and (Ord(C)

 #  

#1529810 пишет

отвечать будет Александр Груздь

он Друзь

 #  

DND80 пишет

он Друзь

капец, моя жизнь больше не будет прежней

 #  

#1529810 пишет

DND80 пишет

он Друзь

капец, моя жизнь больше не будет прежней

я тоже раньше никак не мог понять его фамилии груздь действительно проще

 #  

mindruk пишет

Пример из паскаля, от басика сильно отличаться не должен
Var
C:Char;
Begin
nowrite('Enter the letter: ');
Readln(C);
If (Ord(C)>64) and (Ord(C)96) and (Ord(C)

Это зависает от кодировки - раньше было просто +'40'hex и сравнивай, а щас какая-нибудь хрень в system32/ru-RU (у меня 1302 файла)

 #  

#1017504 пишет

Коды строчных от А до Я - с 192 до 223.

Итак.
Допустим, исходные данные у нас расположены в столбце A.
В столбце B функцией =КОДСИМВ(ПРАВСИМВ(ячейка столбца A;2)) получаем код предпоследнего символа.
Таким же способом в столбце C функцией =КОДСИМВ(ПРАВСИМВ(ячейка столбца A;1)) получаем код последнего символа.
Далее, выделив столбцы B и C, включаем в обоих столбцах автофильтр с условием: 'больше или равно' 192 И 'меньше или равно' 223.

 #  

#1017504 пишет

#1017504 пишет

Коды строчных от А до Я - с 192 до 223.

Итак.
Допустим, исходные данные у нас расположены в столбце A.
В столбце B функцией =КОДСИМВ(ПРАВСИМВ(ячейка столбца A;2)) получаем код предпоследнего символа.
Таким же способом в столбце C функцией =КОДСИМВ(ПРАВСИМВ(ячейка столбца A;1)) получаем код последнего символа.
Далее, выделив столбцы B и C, включаем в обоих столбцах автофильтр с условием: 'больше или равно' 192 И 'меньше или равно' 223.

истина!