对于特殊情况,VBA excel IsError函数

时间:2013-07-24 17:21:17

标签: excel vba

我正在寻找一个类似于IsError函数的函数,如果输入有问题则返回TRUE,否则返回FALSE

我有两个范围rng1rng2,我想执行此操作

IsError( rng1.value / rng2.value)

如果TRUErng1.value一个范围包含字符串,该字符为空,或rng2.value

,则该函数应返回rng2.value=0

是否有类似的功能或一些很好的方式陈述这些条件?或者我应该只使用or所有条件执行If语句?

1 个答案:

答案 0 :(得分:1)

你可以做这样的事情(没有经过测试,但它应该可以做到这一点):

  Function CheckError(rng1 As Range, rng2 As Range) As Boolean

     On Error GoTo FoundError
     Dim x As Integer

     x = rng1.Value / rng2.Value

     CheckError = False
     Exit Function

  FoundError:
     CheckError = True

  End Function