Excel VBA：检查字符串是否完全由字母组成

在 Excel VBA 中，有时需要检查某个字符串是否完全由字母组成。这可能是验证用户名、密码等输入的一部分。下面是一个简单的代码示例，用于检查字符串是否只包含字母：

Function IsAlpha(ByVal str As String) As Boolean
    Dim i As Integer
    IsAlpha = True
    For i = 1 To Len(str)
        If Not (UCase(Mid(str, i, 1)) >= "A" And UCase(Mid(str, i, 1)) <= "Z") Then
            IsAlpha = False
            Exit Function
        End If
    Next i
End Function

此函数接受一个字符串作为参数，并返回一个布尔值，指示该字符串是否只包含字母。输入字符串中的任何非字母字符都将导致函数返回 False。

在此函数中，我们使用一个 For 循环来迭代字符串中的每个字符。然后，我们将每个字符转换为大写字母，并检查它是否介于 A 和 Z 之间。如果不是，则返回 False 表示该字符串不完全由字母组成。

使用示例：

Sub TestIsAlpha()
    Dim str1 As String, str2 As String
    str1 = "HelloWorld"
    str2 = "Hello World"
    MsgBox str1 & ": " & IsAlpha(str1) ' True
    MsgBox str2 & ": " & IsAlpha(str2) ' False
End Sub

在此示例中，我们使用 IsAlpha 函数来检查两个字符串。第一个字符串 "HelloWorld" 仅由字母组成，因此函数返回 True。第二个字符串 "Hello World" 包含空格，因此函数返回 False。

希望这个简单的示例对您有所帮助！