vba - VBA 中的错误处理 - 错误继续下一步

Question

我有以下代码:

ErrNr = 0
For Rw = StRw To LsRw 'ToDo speed up with fromrow torow
    If Len(ThisWorkbook.Sheets(TsSh).Cells(Rw, TsCl)) = 0 Then
        ThisWorkbook.Sheets(TsSh).Cells(Rw, TsCl).Interior.ColorIndex = 46
        ErrNr = ErrNr + 1
    End If
Next

我的问题是，如果页面上出现错误，我的代码之后就不会运行。我认为解决方案应该是:

On Error Resume Next
N = 1 / 0    ' cause an error
If Err.Number <> 0 Then 
    N = 1
End If

但是我不知道如何使用这个代码。

Answer 1

这取决于你想做什么。

• On Error Resume Next将忽略发生错误的事实。这是让您的代码执行完成的好方法，但是只能保证它不会做您想要的事情。
• On Error Goto 0是默认响应。它将弹出VBA正在生成的错误消息
• On Error Goto <label>当发生错误时，会让您的代码跳转到指定的标签，并允许您根据错误代码采取适当的操作。

最后一个选项，On Error Goto <label>通常是最有用的，您需要深入研究如何在您的应用程序中最好地使用它。

This site是我获取上述详细信息的地方，通常是来自 Googling for "excel vba on error" 的第一个结果。 。我自己已经多次使用过这个引用文献。