在输入内容时,需要判断文本框录入的数据是否含有字母,因此写了一个自定义函数来进行判断,原理是对文本内容逐个进行判断,当发现有一个时就结束判断。具体函数如下:
Function IsContainsLetters(strWords As String) As Boolean
Dim i As Integer '字符个数
Dim x As Integer
Dim strW As String
If IsNull(strWords) Then '如果为空值
IsContainsLetters = False
Exit Function '退出函数
End If
i = Len(strWords) '字符个数
IsContainsLetters = False
For x = 1 To i '循环取一个字符
strW = Mid(strWords, x, 1)
If (strW >= "A" And strW <= "Z") or (strW >= "a" And strW <= "z") Then
IsContainsLetters = True
Exit Function '当含有一个字母时即退出函数
End If
Next x
End Function
调用方式:在VBA立即窗口
?IsContainsLetters("软件网")
False
?IsContainsLetters("软件网access")
True