Excel：错误中断在用户定义函数中不起作用

Question

似乎当从单元格公式（即“用户定义函数”或 UDF）调用 VBA 代码时，通常的 VBA Break On Error 不起作用。

我唯一能找到记录此行为的地方是一篇名为 “为 Excel 2007 和 Excel Services 开发用户定义的函数”：

错误处理返回 #VALUE 错误。 UDF 代码引发的所有异常都会作为 #VALUE 错误返回到 Excel 工作表中。

即使您将错误捕获设置为“出现所有错误时中断”并单步执行代码**，您也永远不会看到 VBA 运行时错误对话框 - Excel 只是悄悄地放弃执行，而不告诉您出了什么问题。当然，这使得调试变得比实际需要的更加困难。

有一些涉及On Error的潜在解决方法，但我不想为了找出引发错误的位置而弄乱我的代码。

是否有一些我忽略的 Excel/VBA 选项可以使“错误中断”正常工作？我使用的是 Excel 2003。

** 从单元格调用时进入调试器的唯一方法是设置断点或使用 Stop 语句

Answer 1

最好的方法是使用 On Error GoTo ErrorHandler 以及 Stop 引用，后跟 Resume。

需要小心，不要进入 resume 的无限循环，因为 UDF 几乎连续运行（如果发生这种情况，请重复按 Esc），

因此在代码中添加： On错误 GoTo ErrorHandler 靠近函数的开头，然后在 End Function 之前的末尾：

Exit Function
ErrorHandler:
MsgBox Err.Number & vbCrLf & Err.Source & vbCrLf & Err.Description
Stop
Resume

Exit Function 会停止此代码在正常操作中运行。
如果遇到错误，将弹出包含详细信息的消息框，代码将中断（由于 Stop），您可以单步返回代码（通过 resume 跳回） code> 语句）使用调试工具栏上的下一行命令。

当然，当您对 UDF 感到满意时，请不要忘记注释掉 On Error GoTo ErrorHandler 行。

Answer 2

我知道，当您特别要求 On Error 之外的其他内容时，听到这个消息并不有趣，但据我所知，这恐怕是唯一的选择。

您可以在调试时使用 On Error Goto ErrorHandler（并在其他时候将其注释掉以获取默认的 On Error Goto 0）。 ErrorHandler 可以只有几行，这样就不会让您的代码变得过于混乱：

ErrorHandler:
    MsgBox Err.Number & vbCrLf & Err.Source & vbCrLf & Err.Description
    Resume 

始终在 Resume 上设置一个断点，以引导您回到导致错误的地方单步执行时的语句——并避免无限的错误处理循环。

Answer 3

我最近也遇到了这个。我真的以为有些东西已经改变了，而且并不总是这样 - 但我想我错了。

以下可能是对所建议内容的一个小改进。我添加了一个调试？提示消息框，以便您可以调试或不调试。所以没有无限循环。导致错误的行会突出显示。

假设这是我原来的功能：

Function MyFunction(input_value)
   a = 1
   b = 1 / 0
   MyFunction = 1 + input_value ^ 2
End Function

如果我怀疑有问题，那么我将添加如下三行：

Function MyFunction(input_value)
On Error GoTo DebugError
    a = 1
    b = 1 / 0
    MyFunction = 1 + input_value ^ 2
Exit Function
DebugError: If MsgBox(Err.Description & vbCrLf & "Debug(F8,F8)?", vbYesNo) = vbYes Then Stop: Resume
End Function

然后，当发生错误时：

1. 会弹出一个包含错误的消息框。
2. 单击“是”进行调试，或单击“否”继续。
3. 单击“是”将打开 VBA 代码。
4. 按 F8 两次以突出显示导致错误的行。

screenshot

这有点麻烦，但也不算太糟糕。如果在调试时发生错误，那没有问题。您只需按 F8、YES、F8、F8 即可返回。

请注意，错误捕获必须设置为“未处理错误时中断”或“类模块中中断”。