excel - 通过父子程序的错误处理取消子子程序

Question

背景:

我正在尝试计划如何使任务自动化，并期待使用来自另一个子例程的多个私有(private)子例程或函数。我将使用亲子语言来尝试保持直截了当。

父子程序是调用每个子程序的子程序。

将调用子子程序(children)以执行它们的代码。

我正在尝试确定是否可以在父级中进行错误处理以退出子级并移至下一个子级。

尽管我将使用的示例代码是一个非常简单的示例，只需将 i 加 1，计划的代码将更多地涉及 resume next还不够(不是忽略错误是“好”做法)。

问题:

如果有一个现有的 on error，我没有运气搜索退出当前 child 并移动到下一个 child ，我有我的on error仅在父行中。

问题:

有没有办法根据父子程序中的错误处理语句退出子当前子程序？或者，我应该坚持对每个 child 进行错误处理吗？

问题代码:

给出一个粗略的例子来说明我的想法；这不是工作代码。

Option Explicit
Public i As Long

Sub fdsa()
    on error ' exit called subroutine
    a
    s
    d
    f
    MsgBox i
End Sub

Private Sub a()
    i = i + 1
End Sub

Private Sub s()
    i = i + 1
End Sub

Private Sub d()
    i = i + 1 / 0
End Sub

Private Sub f()
    i = i + 1
End Sub

父级完成后，消息框将输出“3”。

Answer 1

如果子例程没有错误处理程序，则任何错误都将传递回父例程，此时您可以继续处理下一个错误。您所需要的只是在这里的错误恢复:

Sub fdsa()
    on error resume next
    a
    s
    d
    f
    MsgBox i
End Sub