代码改变世界

vba 判断是否为数字

2016-06-13 17:59  sylar_liang  阅读(7661)  评论(0编辑  收藏  举报

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