Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Определить содержится ли в ячейки кириллица
 
#1
13.02.2024 23:21:11
Здравствуйте, Уважаемые Форумчане. Прошу, Вас, помочь решить проблему, нужно определить содержится ли в ячейки кириллица.

Пример прилагаю

Зараннее благодарен.
 
 
 
#2
13.02.2024 23:50:52
Цитата
написал:
Здравствуйте, Уважаемые Форумчане. Прошу, Вас, помочь решить проблему, нужно определить содержится ли в ячейки кириллица.Пример прилагаюЗараннее благодарен.
Файл во вложении.

Нажмите кнопку
Скрытый текст
Изменено: Chegga - 14.02.2024 10:20:32
....Если надо объяснять, то не надо объяснять!
 
 
 
#3
13.02.2024 23:54:05
Код
=ЕСЛИ(СУММПРОИЗВ(--ЕЧИСЛО(ПОИСК(СИМВОЛ(СТРОКА($192:$255));B2)));"Да";"нет")
или
=ЕСЛИ(СУММПРОИЗВ(СЧЁТЕСЛИ(B2;"*"&СИМВОЛ(СТРОКА($192:$255))&"*"));"Да";"нет")
Алексей М.
 
 
 
#4
14.02.2024 00:05:40
Огромное спасибо
 
 
 
#5
14.02.2024 07:34:29
Цитата
АlехМ написал:
СТРОКА($192:$255)
Подорвется на Ё и лучше  привести к одному регистру.

=IF(SUMPRODUCT(ISNUMBER(FIND("Ё";B2))+ISNUMBER(SEARCH(CHAR(ROW($192:$255));B2)));"Да";"нет")
По вопросам из тем форума, личку не читаю.
 
 
 
#6
14.02.2024 07:43:00
Вводится Ctrl+Shift+Enter на старых версиях:
=СЧЁТ(ПОИСК(СИМВОЛ(СТРОКА(192:255));B2);ПОИСК("ё";B2))>0

=COUNT(SEARCH(CHAR(ROW(192:255)),B2),SEARCH("ё",B2))>0

Возвращает ИСТИНА - если в ячейке B2 есть кириллица и ЛОЖЬ - если кириллицы нет.

Если нужно "Да"/"Нет":
=IF(COUNT(SEARCH(CHAR(ROW(192:255)),B2),SEARCH("ё",B2)),"Да","Нет")
Изменено: Бахтиёр - 14.02.2024 07:45:41
 
 
 
#7
14.02.2024 08:57:40
А если так:
Скрытый текст

будет работать)?
Изменено: R091n - 14.02.2024 09:05:55
 
 
 
#8
14.02.2024 14:32:12
Chegga, R091n, если уж делать на VBA, то просто LCase$(Str) Like "*[а-яё]*"
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
 
 
 
#9
15.02.2024 22:34:06
Цитата
написал:
просто LCase$(Str) Like "*[а-яё]*"
Как один из методов +
....Если надо объяснять, то не надо объяснять!
 
 
 
#10
15.02.2024 22:45:12
Chegga Еще один метод, правда не учитывает букву "ё"
Код
Function Cyrillic(txt As String) As Boolean
Dim ArByt() As Byte
ArByt = VBA.StrConv(txt, vbFromUnicode)
If Application.WorksheetFunction.Max(ArByt) > 191 Then Cyrillic = True
End Function
 
 
 
#11
16.02.2024 01:52:05
Да, совершенству нет придела :) . Всем огромное спасибо.
 
 
 
Страницы: 1
Наверх