Question

我正在尝试编写一个VBA宏，它在同一个excel文件中分析多个数据表。我目前已将其设置为当它分析所有各种工作表时，当它发现错误时，它会完全停止程序。我已经想出如何让它去下一张表，但无法让程序继续运行。以下是我到目前为止的情况：

    `If Counter > 480 Then
        Worksheets(ActiveSheet.Index + 1).Select
        End
    End If`

我知道End函数结束运行程序但是当我把它取出它不起作用时，我怎样才能使程序继续运行，因为它在到达工作表之前有错误？

Answer 1

将要结束的循环放在单独的函数或子函数中，然后在找到错误时使用

Exit Function

或

Exit Sub

如果它是一个子。

使用代码的简单示例：

Sub Main
    OtherSub
    'Continue here
End Sub

Sub OtherSub
    If Counter > 480 Then
        Worksheets(ActiveSheet.Index + 1).Select
        Exit Sub
    End If
End Sub

继续功能

1 个答案: