1、首先在开发工具中打开VBA编辑器
2、在单元格区域当中输入一些内容作为例子
3、在VBA编辑器中插入模块
4、在模块当中输入如下代码，然后运行Private Sub CommandButton2_Click() With UserForm1.Controls.Add("Forms.CommandButton.1", CommandButton2, True) '新增按钮 .Left=20 '左边距为20 .Top=60 '上边距为60 .Width=100 '宽度为160 .Height=20 '高度为20 .Caption="新按钮" '名称 End WithEnd SubPrivate Sub UserForm_Initialize() With Me .BackColor=&HFFC0C0 '背景色 .BorderColor=&H80FF80 .BorderStyle=fmBorderStyleSingle '边框色 .Caption="我的第一个窗体" '定义窗体标题 .Enabled=True '接受焦点和响应用户产生的事件。若为False则不可操作窗体 .Height=80 '.Hide '隐藏窗体，不能隐藏自身 .Left=200 '窗体离屏幕左边的距离 .Picture=LoadPicture("d:\pic\窗体底纹图片.jpg") '背景图片 .ScrollBars=fmScrollBarsVertical '垂直滚动条 '.Show显示一个窗体，可以后缀0表示显示为无模式，默认为模态，即焦点总在窗体上 .Top=200 '上边距 .Width=350 '宽度 Zoom=100 '窗体缩放 End WithEnd SubPrivate Sub CommandButton1_Click()Me.Move 50, 100, 180, 120 '移动之后的新位置与屏幕左距50磅，上距100磅，宽度180，高度120Me.Caption="移动后的窗体"End Sub
5、单击“移动窗体”按钮，窗体的位置按预设数字移动，如图单击“新增控件”按钮，窗体中新增一个按钮，名为“新按钮”，如图
