создайть процедуру

[brans]

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

нужно создайть процедуру, которая в строке ячейки А47 выдаст сообщение при обнаружении русской буквы.
как это сделать ума не приложу...(((

[iSkorohod]

Ты не знаешь какой алгоритм, или не знаешь как это сделать вообще?
А что нужно проверять? где искать эти русские буквы?

[brans]

в ячейке набор буков записан, нужно написать модуль, который будет выводить сообщение В ЯЧЕЙКЕ ПРИСУТСТВУЮТ РУССКИЕ БУКВЫ
примерно я знаю как делать
Sub poiu()
p = Cells(14, 1)
If p Like "?[йцукенгшщзхъфывапролджэячсмитьбю]*" Then
msgbox " В ячейке есть русские буквы"
End If
End Sub
а вот как это сделать не перечисляя весь русский алфавит? и вообще,буква а пишется одинаково в обоих алфавитах, не будет ли программа англ а за русскую принимать и сообщение выдавать?

[vikttur]

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

а вот как это сделать не перечисляя весь русский алфавит?

КОДСИМВ()
Посмотреть меню Вставка-Символ

[nilem]

Так попробуйте:
If p Like "*[а-я]*" Then

[brans]

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

Так попробуйте:
If p Like "*[а-я]*" Then

этот вариант мне болтне подходит))) БЛАГОДАРЮ!!!

[brans]

Спасибо всем)))