Как проверить ячейку 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>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 4.154 из 5
Похожие ответы