Как проверить, содержит ли строка только буквы?

Question

Я использую функцию, которая позволяет мне просматривать строку текста и оценивать, состоит ли она из букв. Он размещается в модуле под названием «Генерал». Общий модуль существует только для размещения публичных функций и переменных. Код функции приведен ниже:

Public Function IsAlpha(strValue As String) As Boolean 
Dim intPos As Integer 

    For intPos = 1 To Len(strValue) 
     Select Case Asc(Mid(strValue, intPos, 1)) 
      Case 65 To 90, 97 To 122 
       IsLetter = True 
      Case Else 
       IsLetter = False 
       Exit For 
     End Select 
    Next 
End Function 

Далее у меня есть два «если» подпрограммы, которые оценивают первые 2 символов текстового поля в моей UserForm. Первая процедура запрашивает, является ли первый символ числовым, а вторая - запрашивает, является ли второй символ альфа. В настоящее время вторая процедура «if» выталкивает меня из подпрограммы, когда IsAlpha проверяет True, а не генерирует MsgBox. Неправильно ли вызывается функция IsAlpha?

Если подпрограммы код, перечисленные ниже:

Private Sub CmdMap_Click() 

    With TxtDxCode 
     If IsNumeric(Left(Me.TxtDxCode.Text, 1)) Then 
      MsgBox "Incorrect DX Code format was entered. ", vbExclamation, "DX Code Entry" 
      TxtDxCode.Value = "" 
      TxtDxCode.SetFocus 
      Exit Sub 
     End If 

     If IsAlpha(Left(Me.TxtDxCode.Text, 2)) Then 
      MsgBox "Incorrect DX Code format was entered. ", vbExclamation, "DX Code Entry" 
      TxtDxCode.Value = "" 
      TxtDxCode.SetFocus 
      Exit Sub 
     End If 
    End With 

Answer 1

Почему бы вам не использовать регулярные выражения вместо этого? Тогда нет никаких петель не участвует:

Public Function IsAlpha(strValue As String) As Boolean 
    IsAlpha = strValue Like WorksheetFunction.Rept("[a-zA-Z]", Len(strValue)) 
End Function 

Кроме того, при создании пользовательской функции (UDF), вы должны убедиться, что возвращаемое значение присваивается имя фактической функции, в данном случае IsAlpha - не IsLetter иначе значение никогда не будет передано обратно.

Answer 2

Попробуйте для IsAlpha

Public Function IsAlpha(strValue As String) As Boolean 
Dim intPos As Integer 

    For intPos = 1 To Len(strValue) 
     Select Case Asc(Mid(strValue, intPos, 1)) 
      Case 65 To 90, 97 To 122 
       IsAlpha = True 
      Case Else 
       IsAlpha = False 
       Exit For 
     End Select 
    Next 
End Function 

Answer 3

Left(Me.TxtDxCode.Text, 2) возвращает первые два символа строки. Итак, если Me.TxtDxCode.Text был 7ZABC, это выражение вернет «7Z». Это приведет к сбою теста IsAlpha.

Как вы хотите, чтобы изучить только 2-й символ, используйте Mid $ вместо:

If IsAlpha(Mid$(Me.TxtDxCode.Text, 2, 1)) Then

Это будет возвращать "Z" и тест IsAlpha теперь должны быть успешными

(Строка версии Left $, Mid $ и т. Д. Немного быстрее, чем варианты версий Left, Mid и т. Д. - см. here)