excel vba,如何判断A2单元格中的字符串是否为10位纯数字，如果不符合条件就退出宏，谢谢

Question

如题所述

Answer 1

Sub test()
  m = 0
For i = 1 To Len([a2])
    If InStr(1, "0123456789", MID([A2],I,1)) = 1 Then m = m + 1
Next
If m <> 10 Then MsgBox [a2] & "不是纯数字" Else MsgBox [a2] & "是纯数字"
End Sub

Answer 2

函数可以用=ISNUMBER(VALUE(A2))

VBA
temp = Val(Range("a2"))
If Len(temp) = Len(Range("a2")) Then
msgbox "纯数字"
Else
msgbox "非纯数字"
End If

Answer 3

VBA中可以这样判断
VarType([a1])=8VarType([a1])=8
或
debug.print activecell.Errors.Item(xlNumberAsText).Value

=ISTEXT(A2)、
=ISNONTEXT(A1)、
=CELL("prefix",A2)、
=ISNUMBER(A2)、
=IF(TYPE(A2)=2,1,0)、
=COUNT(A2)、

Answer 4

Sub test()
    If IsNumeric(ThisWorkbook.Worksheets(1).Cells(2, 1)) And Len(ThisWorkbook.Worksheets(1).Cells(2, 1)) = 10 Then
        MsgBox "Is number"
    Else
        Exit Sub
    End If
End Sub

追问

你好，如果条件成立就不做任何动作，程序向下进行，该如何改 也就是第三行的 msgbox"is number"这句应该如何改呢，谢谢

追答Sub test()
    If IsNumeric(ThisWorkbook.Worksheets(1).Cells(2, 1)) And Len(ThisWorkbook.Worksheets(1).Cells(2, 1)) = 10 Then
        MoreFunction
    Else
        Exit Sub
    End If
End Sub

Private Function MoreFunction()As String
 MsgBox "Is number"
End Function

不知道是不是你要的？

本回答被提问者采纳

Answer 5

想问一下你的悬赏金为什么能打到200追问

就是直接就有，用电脑，，以前是没有的，，

追答

这样

(^_^)