如何用vb向excel中添加控件，并响应事件

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

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

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

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

希望楼主耐心揣摩,举一反三

Sub 建立窗体并运行()

    Dim TempForm As Object '采用后期绑定

    Application.VBE.MainWindow.Visible = False  '防止窗口闪动

     Set TempForm = ThisWorkbook.VBProject.VBComponents.Add(3)   '   建立窗体

    With TempForm

        .Properties("Caption") = "智能输入"

        .Properties("Width") = 100

        .Properties("Height") = 100

    End With

   With TempForm.Designer.Controls.Add("forms.ComboBox.1") '创建组合框

        .Left = 10

        .Top = 15

    End With

    With TempForm.Designer.Controls.Add("forms.CommandButton.1") '创建一个按钮

        .Left = 10

        .Top = 45

        .Caption = "输入当前日期"

    End With

    With TempForm.CodeModule  '   为窗体添加代码

        .InsertLines .CountOfLines + 1, "Private Sub UserForm_Activate()"

        .InsertLines .CountOfLines + 2, "Me.ComboBox1.List = Array(""一月"", ""二月"", ""三月"", ""四月"", ""五月"", ""六月"", ""七月"", ""八月"", ""九月"", ""十月"", ""十一月"", ""十二月"")"

        .InsertLines .CountOfLines + 3, "Me.ComboBox1 = WorksheetFunction.Text(VBA.Month(Date), ""[DBNum1][$-804]0月"")"

        .InsertLines .CountOfLines + 4, "End Sub"

        .InsertLines .CountOfLines + 5, "Private Sub ComboBox1_Change()"

        .InsertLines .CountOfLines + 6, "If TypeName(ActiveCell) = ""Range"" Then ActiveCell = Me.ComboBox1.Text"

        .InsertLines .CountOfLines + 7, "End Sub"

        .InsertLines .CountOfLines + 8, "Private Sub CommandButton1_Click()"

        .InsertLines .CountOfLines + 9, "If TypeName(ActiveCell) = ""Range"" Then ActiveCell = date"

        .InsertLines .CountOfLines + 10, "End Sub"

        End With

    VBA.UserForms.Add(TempForm.Name).Show    '   显示窗体

    ThisWorkbook.VBProject.VBComponents.Remove TempForm '   运行完毕删除窗体

End Sub

---