Excel VBA运行时错误'13'类型不匹配当值不是数字时

Question

我有下面的代码返回一个不匹配错误，当值不是数字时。我会改变什么？

If Sheet3.Cells(4, 8).Value <= 182 Then 
    Call ThreeSpells 
End If 

感谢提前:)

Answer 1

像这样的事情

Dim MyVar, MyCheck 
MyVar = Sheet3.Cells(4, 8).Value 
MyCheck = IsNumeric(MyVar) 'Returns True 

If MyCheck = True Then 
    If Sheet3.Cells(4, 8).Value <= 182 Then 
    Call ThreeSpells 
    End If 
Else 
'msgbox or what you want 
End If