excel创建用户窗体.docVIP

★创建用户窗体　　打开一个新的工作簿，依次执行以下步骤：　　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 Sub 刷新门店分析 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.Scro