在Excel中使用VBA用户定义函数返回错误值
从用户定义的函数中返回错误值
使用下面的示例函数，您可以获取用户定义的函数以返回错误值，就像Excel中的内置函数一样。
Function DummyFunctionWithErrorCheck(InputValue As Variant) As Variant
If InputValue < 0 Then ' return an error value
DummyFunctionWithErrorCheck = CVErr(xlErrNA) ' retunerer #I/T!
' xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum , xlErrRef, xlErrValue
Exit Function
End If
' do the calculation
DummyFunctionWithErrorCheck = InputValue * 2
End Function