Question

我目前有这个，但我不一定需要一个循环。我只需要查看usedrange中是否有任何错误，如果是，则停止代码并显示消息。如果没有错误，那么继续执行此部分代码之后的其余步骤。此时此循环会针对检测到的每个错误显示此消息。如果发现任何错误，我只需要显示一次，然后停止代码。

Dim r As Range

For Each r In ws_DST.UsedRange
    If IsError(r.Value) Then
        MsgBox "Please fix any errors", vbOKOnly
    End If
Next
End

Answer 1

怎么样：

Sub errortest()
    On Error Resume Next
    Set Rng = Cells.SpecialCells(xlCellTypeFormulas, xlErrors)
    On Error GoTo 0
    If Rng Is Nothing Then
        Exit Sub
    Else
        For Each r In Rng
            MsgBox r.Address(0, 0)
        Next r
    End If
End Sub

VBA检测错误并停止代码

1 个答案: