有没有函数可以判断一串字符是否全是数字?

Question

请问有没有函数可以判断一串字符是否全是数字?不想一个一个字符去做判断.

Answer 1

Dim MyStr As String
    
    MyStr = "ABC1234"
    MsgBox IsNumeric(MyStr) 'False
    
    MyStr = "1234"
    MsgBox IsNumeric(MyStr) 'True

Answer 2

楼上的答案不对:
MyStr = "12.34"
MsgBox IsNumeric(MyStr) 'True
而楼主要求为FALSE,因为当中有个非数字的小数点.楼主的问题有趣,但似乎只能通过自定义函数解决.

Answer 3

fyming 说得对.
真的没别的函数了吗?

Answer 4

Private Function Is123(ByVal MyStr As String) As Boolean
Dim intLoop As Integer
    Is123 = False
    For intLoop = 1 To Len(MyStr)
        If Not (Mid(MyStr, intLoop, 1) Like "#") Then
            Exit Function
        End If
    Next intLoop
    Is123 = True
End FunctionPrivate Sub Command1_Click()
    Debug.Print Is123("456")
    Debug.Print Is123("234.6")
End Sub

Answer 5

Private Sub Command3_Click()
a = Text1.Text
b = CStr(Val(Text1.Text))
If a = b Then MsgBox "全数字"
End Sub

Answer 6

verywzm(寒江雪) 的算法有bug: 试试看 001