VBA动态添加事件

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

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

注释掉就可以运行了。

步骤如下：

1.开发工具，插入，按钮

2.拖动绘制按钮，在d框中选择，新建

3.在新界面中输入如下代码

4.这样，每次点击按钮，就会在选中单元格中输入内容了

---