根据主checkboxselect在选项卡中切换checkbox

我遇到了一个vba表单中的checkboxonclick事件的问题。 基本上我想要做的是将特定选项卡上的所有checkbox的值设为与主checkbox相同的值。 在这种情况下，它是“在线使用”标题checkbox（代码中的online_toggle），一旦点击，应该切换选项卡上的“开”或“关”其他checkbox。 我目前有下面的代码，但它不断产生一个错误'对于每个obj在online.OLEObjects'

Private Sub online_toggle_Click() Dim ctl As Control For Each ctl In Me.MultiPage1.Pages(6).Controls If TypeOf ctl Is MSForms.CheckBox Then If ctl.GroupName = "online_variants" Then If ctl.Name <> "online_toggle" Then ctl.Value = online_toggle.Value End If End If End If Next ctl End Sub 

在线NB是所有checkbox所在的选项卡的名称。 如果它有助于受checkbox影响的checkbox都被分组为online_variants

干杯，

贾森

Answer 1

在多个页面中，页面编号从0开始，因此如果您想要参考Online选项卡（第7个选项卡）中的checkbox，则使用此

 Dim ctl As Control For Each ctl In Me.MultiPage1.Pages(6).Controls If TypeOf ctl Is MSForms.CheckBox Then '~~> Your code here Debug.Print ctl.Name End If Next