excel - 确定所有线路是否有故障或某些线路是否正确——excel vba 中的错误处理

Question

我有一个如下结构，用于错误处理。

    On error resume next
    Statement1
    Statement2
    Statement3
    On error goto 0

我需要确定这 3 条语句是否全部有误，或者其中至少有一条是正确的。
提前感谢您的帮助。

Answer 1

您可以创建一个绕过部分(错误处理)，以便当它出错时，它将操作该特定代码块，然后继续您所在的位置。

Sub Test
dim E1 as boolean
dim E2 as boolean
dim E3 as boolean

[any other code here]

On Error goto Err1Fail
Statement1
ResumeErr1Fail:
On Error Goto Err2Fail
Statement2
ResumeErr2Fail:
On Error Goto Err3Fail
Statement3
ResumeErr3Fail:
On Error Goto 0

[rest of code]

Exit Sub

'Error Handling Section
Err1Fail:
E1 = TRUE
resume ResumeErr1Fail
exit sub

Err2Fail:
E2 = TRUE
resume ResumeErr2Fail
exit sub

Err3Fail:
E3 = TRUE
resume ResumeErr3Fail
exit sub

End Sub

在 [rest of the code] 部分，您可以评估 E1、E2 和 E3 以对它们执行任何您需要的操作。