vba怎么触发复选框点击事件

1、选择控件工具栏上的第一个按钮进入编辑模式；

2、假设三个复选框控件的名称分别为CheckBox1，CheckBox2和CheckBox3，右键分别点击每个控件，选择“查看代码”；

3、看到类似下面的函数Private Sub CheckBox1_Click()End Sub把下面这段代码拷贝到中间，有几个控件就做几次这样的动作，然后退出编辑模式即可。

动态添加标签，根本不用类代码。

Private Sub CommandButton1_Click()

Dim i

Dim aaa As Class1

Dim myLabel As MSForms.Label

For i = 1 To 5

    Set myLabel = UserForm1.Controls.Add("Forms.Label.1", "b" & i)

    With myLabel

        .Caption = "Label: a" & i

        .Top = 10 * i

        .Left = 10

        .Height = 20

        .Width = 60

    End With

    'aaa.Init myLabel

Next

End Sub

注释掉就可以运行了。

在excel中插入控件的方法如下：

1、点击开发工具选项卡，点击插入按钮，在d出的框中选择要插入的控件

2、点击控件之后，鼠标变成十字形。拖动鼠标绘制控件，绘制完成后，d出指定宏对话框，为此控件的单击事件关联宏。如果已写好需要执行的宏，则在列表框中选择相应的宏点击确定即可。若未写好，可点击新建按钮

3、在d出的Visual Basic编辑器中写好需要执行的代码，关闭编辑器，即可

---