vba - 通过复选框输入执行宏

Question

我有Check-Boxes国家名称的标题和一个OK按钮User-form，

用户将Mark需要Check-Boxes并单击OK以提交表单。

预期结果：对于每个检查Box，都有一个Macro要执行的。

如何制作OK按钮以在用户选中的选定国家/地区执行宏？

和

以下代码是否正确处理了这种情况？还是有其他方法可以做到这一点？

If ActiveDocument.CeemeaFinallist.EasternEurope("CheckBox1").CheckBox.Value = True Then
Application.Run MacroName:="Normal.NewMacros.CEEMEA2"
Else
End If

我怎么Select all Check-Boxes一次？

Answer 1

尝试遍历控件并触发复选框设置为 True 的宏：

Private Sub CommandButton1_Click()
Dim ctl As Control
Dim j As Long
For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.CheckBox Then
        If Me.Controls(ctl.Name).Value = True Then
            ' Fire macro with ctl.Caption to identify the country
        End If
    End If
Next    
End Sub