[求助]字符检测方法！！

suwei0072000 · 发表于 2003-5-24 18:56:00

您好：
在vba中有 IsNumberic()函数检测变量是不是数值
但我需要一个能检验所输的变量是不是字符charactor的函数
或能实现此功能的办法
请多多指点，谢谢！！

efan2000 · 发表于 2003-5-24 22:56:00

Function IsCharacter(ByVal Expression As String) As Boolean
IsCharacter = False
Dim i As Integer
Dim c As Long

On Error GoTo ErrTrap
If Expression = "" Then Exit Function
IsCharacter = True
For i = 1 To Len(Expression)
      c = Asc(Mid(Expression, i, 1))
      If Not ((c >= 65 And c = 97 And c <= 122)) Then
         IsCharacter = False
         Exit For
      End If
Next
Exit Function

ErrTrap:
On Error GoTo 0
End Function

[求助]字符检测方法！！

发表回复

精选推荐