Question

请找到我的以下错误处理代码。

Sub trial()
On Error GoTo MyHandler
s = 15 / 0
MyHandler:
s = 0

On Error GoTo my2Handler
h = 10 / 0
Handler:
h = 0

End Sub

我的第二个错误处理程序，即 my2Handler 无效，我无法同时使用1 sub中的错误处理程序。

Answer 1

你没有my2Handler的标签，他们都需要在底部，因为MyHandler总是被调用，就像这样

Sub twoerrors()

On Error GoTo Handler1

'   do something

On Error GoTo Handler2

'   do something else
Exit Sub

Handler1:
    Exit Sub

Handler2:
    Exit Sub

End Sub

Answer 2

您可以使用Resume，如下所示：

Sub trial()

Check1:
    On Error GoTo MyHandler
    s = 15 / 0

Check2:
    On Error GoTo my2Handler
    h = 10 / 0

Exit Sub

MyHandler:
    s = 0
    Resume Check2

my2Handler:
    h = 0

End Sub

如何处理超过1个错误处理程序在VBA excel中

2 个答案: