vba 判断是否为数字

1.先设置单元格为 保留2位小数。

 

2.判断单元格内容

Dim line1 as single

Dim line2 as single

If Cells(2,2).Value = "" Then

　　line1 = 0

Else 

　　if Not IsNumeric(Cells(2, 2).Text) Then

　　　　MsgBox "Input Data Error!"

　　End if

　　line1 = Cells(2,2).Value

End if