简易判断字符串是否只含有数字

microyip

1. Sub 判断是否含字母()
   
2.     Dim sStr As String
   
3.     sStr = "123a"
   
4.     If Len(Format(sStr, String(Len(sStr) + 1, "0"))) = Len(sStr) + 1 Then
   
5.         MsgBox "字符串中只含数字！"
   
6.     Else
   
7.         MsgBox "字符串中含有字符！"
   
8.     End If
   
9. End Sub

复制代码

请各位指正不当之处或者可能存在的Bug。

microyip

未忘初心 发表于 2017-1-17 22:40
小数点 或者  11-12 这些算吗

英文逗号【,】、一个小数点【.】、两个以内的减号【-】或除号【/】会被认为是数字，这个也算是一个Bug，后面研究一下。但从数值规范上看，
英文逗号【,】，相当于千分符，被认为是数字也是对的。
两个以内的减号【-】或除号【/】，相当于日期，被认为是数字也是对的。

microyip

loquat 发表于 2017-1-17 22:52
function hasCharacter(ByVal str$) as boolean
   hasCharacter = (str Like "*[a-zA-Z]*")
end functio ...

判断不了中文

microyip

huanghai22 发表于 2017-1-17 22:59
Dim sStr As String
    sStr = "123a"
    If sStr Like "*[!0-9]*" Then

sStr = "1a23中423231"的时候有Bug

microyip

尼古丁vs乙醇 发表于 2017-1-18 08:15
IsNumeric函数

自带函数判断，好好好。我居然忘记有这个函数，囧。

microyip

huanghai22 发表于 2017-1-18 09:09
Dim sStr As String
    Dim s As Byte
    sStr = "1a23中423231"

用容错方法解决也行，个人建议你的语句不要用跳转的方式，改成

1. Sub 判断是否含字母()
   
2.     Dim sStr As String
   
3.     sStr = "1a23中423231"
   
4.     On Error Resume Next
   
5.     Debug.Print sStr * 0
   
6.     If Err.Number = 0 Then
   
7.         MsgBox "字符串中只含数字！"
   
8.     Else
   
9.         MsgBox "字符串中含有字符！"
   
10.     End If
    
11. End Sub

复制代码

microyip

小花鹿 发表于 2017-1-18 10:25
Sub 判断是否含字母()
    Dim sStr
    sStr = "   23"

Val解决不了问题，会出错的

microyip

yjh_27 发表于 2017-1-18 09:54

Val解决不了问题，会出错的

microyip

yjh_27 发表于 2017-1-18 12:50
IsNumeric函数最直接

Len(sStr) =Len( Val(sStr))

Len("000") =Len( Val("000"))就已经错了