excel创建用户窗体.doc

创建用户窗体打开一个新的工作簿，依次执行以下步骤：1.选择“开发工具”“Visual Basic”命令(或接Alt+F11键)，激活VB编辑器窗口，在“VB编辑器项目”窗口中，双击工作簿名称激活该工作簿。 2.选择“插入”“用户窗体”命令。VB编辑器添加一个名为UserForm1的空窗体，并显示“工具箱”。 3.按F4键显示“属性”窗口，然后改变UserForm对象的下列属性： 名称改为“AboutBox” Caption改为“这是一个窗体” 4.使用“工具箱”，在用户窗体中添加一个“标签”对象。选择这个“标签”对象。在“属性”窗口中，为标签的Caption属性输入想要的文字信息，例如“这是一个标签” 5.在“属性”窗口中， 单击Font属性调整字体。可以改变字体、大小等。所做的改变会显示在窗体中。如图显示了一个设置“标签”控件格式的例子。 6.在用户窗体中添加一个“命令按钮”对象，并改变“命令按钮”的下列属性： 名称改为“OKButton” Caption改为“确定” Default改为“True” 7.做一些调整，使窗体更美观一些。可以改变窗体的大小、移动控件或改变控件的大小。如图测试用户窗体现在用户窗体已含有所有必需的控件。所缺少的是如何显示用户窗体。当开发用户窗体时，可以按下F5键显示它并看到其外观。1.选择“插入”“模块”， 插入一个VBA模块，在空模块中输入以下代码： Sub ShowAboutBox() AboutBox.Show End Sub 2.激活Excel(一种方法是按Alt+F11键)。 3.选择“开发工具”“代码”“宏”命令， 显示“宏”对话框。或按Alt+F8键或在状态栏中单击“播放宏”按钮。在“宏”对话框中，从宏列表中选择ShowAboutBox，并单击“运行”。用户窗体即显示。 如果单击“确定”按钮，注意，这并不会像您期待的那样关闭这个用户窗体。要想单击时实现该功能， 需要为该按钮添加事件处理程序。要释放用户窗体，单击标题框中的关闭按钮。 创建一个事件处理程序 当事件发生时，会执行事件处理程序。在这种情况下，需要一段程序来处理用户单击“确定”按钮时发生的“单击”事件。 1.激活VB编辑器(按Alt+F11键是最快的方法)，在“工程资源管理器”中双击AboutBox，激活AboutBox用户窗体。 2.双击“命令按钮”控件。VB 编辑器激活用户窗体的代码模块，并插入一些样板文件代码， 3.在End Sub语旬前插入下列语旬： Unload AboutBox 该句只是释放了用户窗体。完整的事件处理程序如下： Private Sub OKButton Click() Unload AboutBox End SubSub 刷新门店分析() 刷新门店分析 Macro Range(C20).Select ActiveSheet.PivotTables(数据透视表3).PivotCache.Refresh Columns(C:Y).Select Selection.ColumnWidth = 6.63 ActiveWindow.ScrollColumn = 20 ActiveWindow.ScrollColumn = 19 ActiveWindow.ScrollColumn = 18 ActiveWindow.ScrollColumn = 16 ActiveWindow.ScrollColumn = 15 ActiveWindow.ScrollColumn = 14 ActiveWindow.ScrollColumn = 13 ActiveWindow.ScrollColumn = 12 ActiveWindow.ScrollColumn = 11 ActiveWindow.ScrollColumn = 10 ActiveWindow.ScrollColumn = 9 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 ActiveWindow.SmallScroll Down:=-3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 9 Selection.ColumnWidth = 7.75 ActiveWindow.ScrollColumn = 8 ActiveWindow.ScrollColumn = 7 ActiveWindow.ScrollColumn = 6 ActiveWindow.ScrollColumn = 5 ActiveWindow.ScrollColumn = 4 ActiveWindow.ScrollColumn = 3 ActiveWindow.ScrollColumn = 2 ActiveWindow.ScrollColumn = 1 ActiveWindow.SmallScroll Down:=-12 Columns(A:A).ColumnWidth = 14 ActiveWindow.SmallScroll Down:=-12 Columns(A:A).ColumnWidth = 15.38 ActiveWindow.SmallScroll Down:=-18 Columns(C:C).Select Columns(B:B).ColumnWidth = 14.25 Columns(B:B).ColumnWi