如何从VBA函数触发错误

Question

我需要从VBA函数触发(返回)错误事件,然后该函数的调用函数可以触发On Error Go来调用.例如

function Test()
 On Error Go to myError:
       TestErr()
 Exit Function

 myerror:
    Test = "Error Triggered"
End Function

Function TestErr()
    ?? 'How to Trigger error here
End Function

谢谢

Answer 1

Err.Raise 5,"可选错误源","可选错误描述"

MSDN参考http://msdn.microsoft.com/en-us/library/aa164019%28office.10%29.aspx#odc_tentipsvba_topic3

Answer 2

脏的方式: 1 / 0