excel - 如果VBA中的IsError？

Question

是否可以在 VBA 中使用与 Iferror(value, value_if_error) 或 Iserror(value) 类似的功能？

我试着写：

If IsError(Cells(i, c) / curr) Then
'CODE BLOCK 1
else
'CODE BLOCK 2
end if

但是 VBA 告诉我，当它尝试运行 if 语句时，我有除零错误。它让我进入调试。但这只是我想要触发 CODE BLOCK 1 的类型！

Answer 1

通常的处理方法是

i = 0
On Error Resume Next
n = 1 / i
If Err.Number <> 0 Then
    'Handle error - code block 1
    Err.Clear
    On Error GoTo 0
Else
    On Error GoTo 0
    ' No error - code block 2

End If

Answer 2

您可以使用调用所有工作表函数Application.WorksheetFunction.IsError(args)

您也可以尝试直接在单元格中进行计算并查询其值。例如，非常hacky：

Sub asdf()

    Dim ws As New Worksheet
    Set ws = ActiveSheet

    Dim i As Double
    i = 0
    ws.Range("A2").Formula = "=iserror(A1 / " & i & ")"

    If ws.Range("A2").Value Then
        Debug.Print "Error caught"
    Else
        Debug.Print "No error"
    End If

End Subu