Как проверить ячейку Excel на наличие символов, которые не совпадают с латинским алфавитом - VB
Формулировка задачи:
Привет всем, пожалуиста помогите, надо чтоб выскавивало окошко предупреждения, если потребитель ввел в ячейку чтолибо кроме символа латинского алфавита. Заранее спасибо всем кто поможет, помощь нужна на уровне Ехcel, если невозможно, то хоть на VBA..
Решение задачи: «Как проверить ячейку Excel на наличие символов, которые не совпадают с латинским алфавитом»
textual
Листинг программы
<font color="blue">Private</font> <font color="blue">Sub</font> Worksheet_Change(<font color="blue">ByVal</font> Target <font color="blue">As</font> Range) <font color="blue">If</font> Target.Address Like <font color="teal">"$*$*[!:]"</font> <font color="blue">Then</font> <font color="blue">Dim</font> i <font color="blue">As</font> <font color="blue">Integer</font>, str <font color="blue">As</font> <font color="blue">String</font> str = vbNullString <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">Resume</font> <font color="blue">Next</font> str = CStr(Target.Value) <font color="blue">On</font> <font color="blue">Error</font> <font color="blue">GoTo</font> <font color="darkblue"><b>0</b></font> <font color="blue">If</font> str = vbNullString <font color="blue">Then</font> <font color="blue">Exit</font> <font color="blue">Sub</font> i = <font color="darkblue"><b>1</b></font> <font color="blue">Do</font> <font color="blue">While</font> i <= Len(str) <font color="blue">If</font> <font color="blue">Not</font> (<font color="blue">Mid</font>(str, i, <font color="darkblue"><b>1</b></font>) Like <font color="teal">"[A-z]"</font>) <font color="blue">Then</font> i = <font color="darkblue"><b>0</b></font>: <font color="blue">Exit</font> <font color="blue">Do</font> <font color="blue">End</font> <font color="blue">If</font> i = i + <font color="darkblue"><b>1</b></font> <font color="blue">Loop</font> <font color="blue">If</font> i <> <font color="darkblue"><b>0</b></font> <font color="blue">Then</font> MsgBox <font color="teal">"Присутствует символ не латиницы."</font> <font color="blue">End</font> <font color="blue">If</font> <font color="blue">End</font> <font color="blue">Sub</font>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д