vba给创建出来的按钮如何添加事件

步骤如下：

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

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

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

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

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

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

注释掉就可以运行了。

Private Sub CommandButton1_Click()

On Error Resume Next

If Sheets("aaa") Is Nothing Then

Worksheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Name = "aaa"

ActiveWindow.Zoom = 80

Else

Application.DisplayAlerts = False

Sheets("aaa").Delete

Application.DisplayAlerts = True

Worksheets.Add After:=Sheets(Sheets.Count)

ActiveSheet.Name = "aaa"

ActiveWindow.Zoom = 80

End If

With ThisWorkbook.VBProject.VBComponents.Item(Worksheets.Count + 1).CodeModule

.InsertLines 1, "Private Sub WorkSheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)"

.InsertLines 2, "If Target.Column = 1 And Target.row > 6 And (Mid(Target.Value, 1, 1) = ""F"" Or Mid(Target.Value, 1, 1) = ""B"") Then"

.InsertLines 3, "Call clickAccount(Target.Value, Target.row)"

.InsertLines 5, "End If"

.InsertLines 6, "Cancel = True"

.InsertLines 7, "End Sub"

End With

End Sub

---