vba - 在 VBA 中使用 IFERROR

Question

我希望有人能帮助我吗？我做了很多谷歌搜索，无法弄清楚问题是什么。我只接触过vba，所以我肯定不是专家......

我正在尝试在工作中自动执行大型电子表格中的一些计算，我想我可能遗漏了一些非常愚蠢的东西。基本上，其中一个计算是一个单元格除以另一个单元格的简单划分。当它遇到错误时，我希望它返回 0。这是不断出错的代码:

Sheets("Bridge").Range("W" & SumIfInt) = Application.WorksheetFunction.IfError(Sheets("Bridge").Range("AA" & SumIfInt) / Sheets("Bridge").Range("D" & SumIfInt), 0)

我收到运行时错误 6 溢出

提前致谢

Answer 1

编程时，最好先检查错误的可能性，而不是先触发错误再处理，从而避免错误。在执行计算之前检查单元格是否为空或为零:

If IsEmpty(Sheets("Bridge").Range("D" & SumIfInt)) Or Sheets("Bridge").Range("D" & SumIfInt) = 0 Then
    Sheets("Bridge").Range("W" & SumIfInt) = 0
Else
    Sheets("Bridge").Range("W" & SumIfInt) = Sheets("Bridge").Range("AA" & SumIfInt) / Sheets("Bridge").Range("D" & SumIfInt)
End If

On Error Resume Next 基本上是说“如果遇到错误，请忽略它”。这可能会导致各种意外问题，只能作为最后的手段使用。

另请查看 IsError VBA 中的函数。