excel - 如何使用 On Error 打破 VBA 中的循环？

Question

我目前正在制作一个包含 11 页的单个多页的表单。每个页面有多个复选框，范围从 3 到 12 个复选框。复选框表示列表项，如下所示:
我计划使用二维 for 循环(for 循环内的 for 循环)使用以下语法检查每个框。
我习惯了 Python，所以我的想法是循环直到发生错误(指示不再有复选框)然后打破当前循环并继续。

For Each pg In Me.MultiPage1.Pages
    x = 1
    For i = 0 To 12 
        If ActiveSheet.Shapes("CheckBox" & x & i).Value = xlOn Then
            'Code to be executed
             x = x = 1
    On Error ExitHandler

ExitHandler:
    Exit

所以我正在尝试做一些类似于 的功能。继续在 Python 中。或者也许我正在以一种完全不正确的方式处理这个问题。
此外，我也不确定我命名复选框的方法是否正确，因为它们与列表项相关，如下所示:

1.1
1.2
1.3
...

11.1
11.2
11.3

我也只是意识到复选框的命名可能有点困惑。我使用了以下方法。它去:

Page 1
CheckBox11
CheckBox12
CheckBox13 
CheckBox14

Page 2
CheckBox21,
CheckBox22, 
CheckBox23, 
CheckBox24,

...
Page 11
CheckBoxEleven1,
CheckBoxEleven2, 
CheckBoxEleven3, 
CheckBoxEleven4, 
CheckBoxEleven5, 

我使用“十一”是因为 1.11 和 1.12 的复选框名称发生冲突并导致名称不明确的错误。

Answer 1

对于您的第一个问题:将“On Error GoTo ExitHandler”移到可能导致错误的行上方。 Excel 需要在发生错误之前知道如何处理。