Function IsNum(Num)
For i=1 To len(Num)
If asc(mid(Num,i,1))<48 or asc(mid(Num,i,1))>57 Then
IsNum=False
Exit Function
Else
IsNum=True
End If
Next
End Function
转载于:https://blog.51cto.com/332374363/904973
Function IsNum(Num)
For i=1 To len(Num)
If asc(mid(Num,i,1))<48 or asc(mid(Num,i,1))>57 Then
IsNum=False
Exit Function
Else
IsNum=True
End If
Next
End Function
转载于:https://blog.51cto.com/332374363/904973