《excel1000个小技巧——第10章_巧妙应用_Excel的宏与VBA.pdf》由会员分享，可在线阅读，更多相关《excel1000个小技巧——第10章_巧妙应用_Excel的宏与VBA.pdf（45页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第 10 章 巧妙应用Excel 的宏与 VBA 10.1 宏的录制、创建与命名如何将已经录制的宏指定给工作簿中添加的窗体按钮如何录制宏具体操作步骤如下。具体操作步骤如下。1 将宏病毒安全级设置为“中”或“低”。2 在菜单栏上选择“工具宏录制新宏”命令，弹出“录制新宏”对话框，如图10.1 所示。图 10.1“录制新宏”对话框3 在“宏名”文本框中，输入需设定的宏的名称。4 在“保存在”下拉列表框中，选择需要存放宏的地址。5 如果要添加有关宏的说明，可以在“说明”文本框中输入该宏的详细说明。6 单击“确定”按钮，弹出“停止录制”工具栏，如图10.2 所示。图 10.2“停止录制”工具栏7 在工
2、作簿中执行需要录制的操作，完毕后，在“停止录制”工具栏上，单击“停止录制”按钮即可完成。1 右击菜单栏，弹出快捷菜单，选择“窗体”选项，打开“窗体”工具栏，如图10.3 所示。图 10.3“窗体”工具栏2 在“窗体”工具栏上单击“按钮”按钮，然后在工作表上绘制一个按钮，此时会弹出“指定宏”对话框，如图10.4 所示。图 10.4“指定宏”对话框3 在列表框中选择以前录制的宏“Macrol”，然后单击“确定”按钮，如图10.5 所示。?1?图 10.5 选择宏EXCEL1000 个小技巧图 10.8 选择“模块”命令4 返回工作表中，如图10.6 所示，单击此按钮，便可执行选定宏所录制的操作。图
3、 10.6 添加的按钮如何使用Microsoft Visual Basic 编辑器创建宏具体操作步骤如下。1 在 Excel 的菜单栏上选择“工具宏 Visual Basic 编辑器”命令，弹出Visual Basic 编辑器窗口，如图 10.7 所示。图 10.7 Visual Basic 编辑器窗口2 在菜单栏上选择“插入模块”命令，如图10.8 所示。3 将需要设置的代码输入或复制到模块的代码窗口中。4 如果要模块窗口中运行宏，可以直接按F5 键。5 编写完宏后，在菜单栏上选择“文件关闭并返回到Microsoft Excel”命令即可关闭此窗口，如图 10.9 所示。图 10.9 选择“
4、关闭并返回到Microsoft Excel”命令如何宏命令转化成VBA 代码具体操作步骤如下。1 在菜单栏上选择“工具宏宏”命令。2 弹出“宏”对话框，在列表框中选择“Macro2”选项，然后单击“编辑”按钮，如图10.10 所示。图 10.10 设置“宏”对话框第 1 章初识EXCEL 3 弹出 Visual Basic 编辑器窗口，在代码编辑区内显示的代码便是宏命令的程序代码，如图10.11 所示。图 10.13 单击“选项”按钮?33?图 10.11 代码录制宏的过程中如何设置快捷键在录制新宏的过程中，会弹出“录制新宏”对话框，在“快捷键”文本框中可以输入一个字母，如图 10.12 所示
5、。图 10.12 输入快捷键这样，可以直接按Ctrl+V 键，便可执行宏。宏录制后如何设置快捷键具体操作步骤如下。1 在菜单栏上选择“工具宏宏”命令，弹出“宏”对话框，单击“选项”按钮，如图10.13 所示。2 弹出“宏选项”对话框，在“快捷键”文本框中，输入需要设定的快捷键，如图10.14 所示。图 10.14“宏选项”对话框3 单击“确定”按钮，这样，直接按Ctrl+Shift+S 快捷键即可执行宏。10.2 VBA 中按钮的使用如何将录制的宏指定给自定义的工具按钮具体操作步骤如下。1 在菜单栏上右击鼠标，弹出快捷菜单栏，选择“自定义”命令，弹出“自定义”对话框，单击“命令”标签，切换至“
6、命令”选项卡下，在“类别”列表框中选择“宏”选项，如图10.15 所示。?1?图 10.15“自定义”对话框EXCEL1000 个小技巧1 在菜单栏上选择“工具自定义”命令，弹出“自定义”对话框，单击“命令”标签，切换至“命令”选项卡下，在“类别”列表框中选择“宏”选项，然后右击工具栏上的自定义按钮，弹出快捷菜单，选择“更改按钮图像”选项，弹出“图像”列表，选择需要的图标，如图10.18 所示。2 在右侧的“命令”列表框中，将“自定义按钮”选项拖动到工具栏上，如图10.16 所示，然后单击“关闭”按钮。图 10.16 添加按钮3 单击自定义的按钮，弹出“指定宏”对话框，在列表框中选择需要指定的
7、宏选项，如图10.17 所示。图 10.17 选择宏5 单击“确定”按钮，这样，以后在菜单栏上单击自定义的按钮即可快速执行宏。如何更改自定义的工具按钮图标以及名称具体操作步骤如下。图 10.18 更改图标2 此时工具栏上的自定义的图标样式已经更换，再右击它，弹出快捷菜单，选择“命名”项，然后在其右侧的文本框中输入“我的按钮”，如图10.19 所示。图 10.19 输入名称3 在“自定义”对话框中，单击“关闭”按钮，这样，以后将鼠标指针指向自定义按钮就会出现按钮名称提示，如图10.20 所示。图 10.20 显示名称如何删除自定义的工具按钮具体操作步骤如下。第 1 章初识EXCEL?35?1 在
8、菜单栏上选择“工具自定义”命令，弹出“自定义”对话框，单击“命令”标签，切换至“命令”选项卡下，在“类别”列表框中选择“宏”选项。2 在工具栏上单击自定义的工具按钮，将它拖动至“自定义”对话框中的“命令”选项卡的“命令”列表框中的“自定义按钮”选项上，如图10.21 所示。图 10.21 拖动按钮3 释放鼠标，自定义工具按钮就从工具栏上删除，单击“关闭”按钮即可完成。如何复制已创建的宏中的一部分创建另一个宏具体操作步骤如下。1 将宏病毒安全级设置为“中”或“低”级。2 打开要复制的宏所在的工作簿文件。3 在菜单栏上选择“工具宏宏”命令。4 弹出“宏”对话框，在“宏名”文本框中输入要复制的宏的名
9、称，然后单击“编辑”按钮，如图 10.22 所示。图 10.22 输入宏名5 弹出 Visual Basic 编辑器，在窗口中的代码编辑区内，选取要复制的程序行，如果要复制整个宏，要在选定区域中包括了“With”和“End With”行，如图10.23 所示。图 10.23 选取代码6 在 Visual Basic 编辑器窗口中，在菜单栏上选择“编辑复制”命令，如图10.24 所示。图 10.24 选择“复制”命令7 切换到要放置代码的模块中，然后在工具栏上单击“粘贴”按钮即可。?1?EXCEL1000 个小技巧操作工作表时如何快捷打开和关闭网格线具体操作如下。在菜单栏上选择“视图工具栏窗体”
10、命令，弹出“窗体”工具栏，如图10.25 所示，“切换网格”按钮呈打开状态，如果需要关闭风格线，单击此按钮即可完成。图 10.25“窗体”工具栏如何使用VBA 进行累加计算具体操作步骤如下。1 在工作表中创建如图10.26 所示的表格。2 调出“窗体”工具栏，然后在“窗体”工具栏上单击“按钮”按钮，如图10.27 所示。图 10.26 创建表格图 10.27 单击“按钮”按钮3 在刚创建的表格的下方单击并拖出一个按钮，此时会自动弹出“指定宏”对话框，单击“新建”按钮，如图10.28 所示。图 10.28 单击“新建”按钮4 切换至Visual Basic 编辑器窗口中，在代码编辑区内输入相应的
11、代码，如图10.29 所示。图 10.29 输入代码其中的代码如下：Sub 按钮 1_单击（）Call leijia End Sub 5 在下方添加一个程序leijia()，如图 10.30 所示。图 10.30 添加程序其中的代码如下：Sub leijia()Dim a,b,c As Long a=Cells(1,2)b=c=0 While(ba)b=b+1 c=c+b Wend c=c Cells(2,2)=c End Sub 第 1 章初识EXCEL?37?6 关闭 Visual Basic 编辑器窗口，返回工作表中，将按钮上的文本更改为“计算”，如图10.31 所示。图 10.31 更
12、改按钮名称7 在单元格C3 中输入“500”，单击“计算”按钮，在单元格C4 中便显示出累加值“125250”，如图 10.32 所示。图 10.32 计算累加值如何制作行颜色交叉Excel 表格具体操作步骤如下。1 在菜单栏上选择“工具宏录制新宏”命令。2 弹出“录制新宏”对话框，在“宏名”文本框中输入宏名“行颜色交叉的Excel 表格”，在“快捷键”文本框中输入“e”，如图10.33 所示。图 10.33 设置“录制新宏”对话框3 单击“确定”按钮，返回工作表中，在其中建立边框，然后进行多种颜色的格式化，如图10.34 所示。图 10.34 建立表格边框4 在“停止录制”工具栏上，单击“停
13、止录制”按钮，如图10.35 所示。图 10.35 单击“停止录制”按钮5 返回工作表中并选择一单元格区域，然后按Ctrl+A 键，在选定的单元格区域内，就会自动建立多色边框表格，如图10.36 所示。图 10.36 自动建立多色表格如何使用下拉列表框来控制显示具体操作步骤如下。1 调出“窗体”工具栏，单击“窗体”工具栏上的“组合框”按钮，如图10.37 所示。图 10.37 单击“组合框”按钮?1?EXCEL1000 个小技巧2 返回工作表中，单击并拖出一个下拉列表框，如图 10.38 所示。图 10.38 绘制组合框3 右击下拉列表框，弹出快捷菜单，选择“设置控件格式”命令。4 弹出“设置
14、控件格式”对话框，单击“控制”标签，切换至“控制”选项卡下，如图10.39 所示。图 10.39“设置控件格式”对话框5 在工作表的其他区域内建立如图10.40 所示的部门列表。图 10.40 建立部门列表6 在“设置控件格式”对话框中，在“控制”选项卡下，进行如图10.41 所示的设置。图 10.41 设置“控制”选项卡7 单击“确定”按钮，返回工作表中，单击下拉列表按钮，弹出下拉列表，选择“财务部”选项，如图 10.42 所示。图 10.42 选择“财务部”选项8 此时在单元格D5 中显示出人力资源部在部门列表中的排序“3”，如图10.43 所示。图 10.43 显示排序如何使用按钮来控制
15、弹出提示对话框的显示具体操作步骤如下。1 调出“窗体”工具栏，单击“窗体”工具栏第 1 章初识EXCEL?39?上的“按钮”，如图10.44 所示。图 10.44 单击“按钮”按钮2 返回工作表中，单击并拖动出一个按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“弹出提示”，然后单击“新建”按钮，如图10.45 所示。图 10.45“指定宏”对话框3 弹出 Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.46 所示。图 10.46 输入代码输入的代码如下：Sub 弹出提示()ANS=MsgBox(请重新输入 vbYesNo,输入错误!)If ANS=vbNo Then
16、 Exit Sub End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表中，将按钮名称更改为“输入错误!”，如下图10.47 所示。图 10.47 更改名称5 单击“输入错误!”按钮，即可弹出对话框。为何“刷新”时有消息显示对宏的更改将丢失在 Visual Basic 编辑器窗口中更改宏时，如果又在 Microsoft 脚本编辑器中更改了工作簿的副本，就会显示此消息。如果要保存对宏所做的更改，可以执行下列操作。1 单击“否”按钮。2 切换到Visual Basic 编辑器窗口中。3 导出已更改的任何模块。4 在工作表簿的Microsoft 脚本编辑器窗口中，单击“刷新”工
17、具栏上的“刷新”按钮。5 单击“是”按钮。6 导入模块以恢复对宏的更改。如何使用InputBox 对话框在工作表中输入信息具体操作步骤如下。1 在工作表中建立如图10.48 所示的表格。图 10.48 建立表格2 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮，在建立的表格的右侧单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“开始输入”，然后单击“新建”按钮，如图 10.49 所示。?1?EXCEL1000 个小技巧图 10.52 输入姓名图 10.49 设置“指定宏”对话框3 弹出 Visual Basic 编辑窗口，在代码编辑区内输入代码，如图10.50 所示。图
18、 10.50 输入代码输入的代码如下：Sub 请输入()a=InputBox(请输入你的姓名：)Cells(1,2)=a If a Then b=InputBox(请输入你的年龄：)Cells(2,2)=b End If End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表中，更改按钮名称为“请输入”，如图10.51 所示。图 10.51 更改“按钮”名称5 单击“请输入”按钮，弹出对话框，提示用户输入姓名，如图10.52 所示。6 输入姓名后，单击“确定”按钮，再次弹出对话框，提示输入年龄，如图10.53 所示。图 10.53 输入年龄7 输入年龄后，单击“确定”按钮，
19、返回工作表中，此时表格中已经显示出刚才输入的信息，如图 10.54 所示。图 10.54 输入信息如何制作会根据早中晚问候的提示对话框具体操作步骤如下。1 调出“窗体”工具栏，在“窗体”工具栏上，单击“按钮”按钮，在工作表的适当位置单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中，输入“温馨提示”然后单击“新建”按钮，如图10.55 所示。第 1 章初识EXCEL 图 10.57 更改名称?41?图 10.55 设置“指定宏”对话框2 弹出 Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.56 所示。图 10.56 输入代码输入的代码如下：Sub 温馨提示(
20、)Select Case Time Case Is0.5 msg=小君，早上好！Case 0.5 To 0.75 msg=小君，下午好！Case Else msg=小君，晚上好！End Select MsgBox msg End Sub 3 关闭 Visual Basic 编辑器窗口，返回工作表中，将按钮名称更改为“温馨提示”，如图10.57 所示。4 单击“温馨提示”按钮，弹出提示对话框，由于当前时间是下午，因此提示信息为“小君，下午好！”，如图10.58 所示。图 10.58 提示信息如何显示Excel 窗口的状态具体操作步骤如下。1 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮
21、，在工作表的适当位置单击并拖动出一按钮，在工作表的适当处单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“显示窗口信息”，然后单击“新建”按钮，如图 10.59 所示。图 10.59 设置“指定宏”对话框2 弹出 Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.60 所示。?1?图 10.60 输入代码EXCEL1000 个小技巧图 10.62 提示Excel 窗口图 10.63 提示工作簿窗口如何快速计算1100 的整数的平方根之和具体操作步骤如下。其中输入的代码如下：Sub 显示窗口信息()Select Case Application.Window
22、State Case xlMaximized:MsgBox Excel 窗口最大化 Case xlMinimized:MsgBox Excel 窗口工作簿最小化 Case xlNormal:MsgBox Excel 窗口一般大小 Select Case ActiveWindow.WindowState Case xlMinimized:MsgBox 工作簿最大化 Case xlMinimized:MsgBox 工作簿最小化 Case xlMinimized:MsgBox 工作簿一般大小 End Select End Select End Sub 3 关闭 Visual Basic 编辑器窗口，
23、返回工作表中，将按钮名称更改为“显示窗口信息”，如图10.61 所示。图 10.61 更改名称4 单击“显示窗口信息”按钮，弹出提示对话框，显示当前Excel 窗口的信息，如图10.62 所示。5 单击“确定”按钮，弹出工作簿的信息，如图 10.63 所示，单击“确定”按钮即可完成。1 在工作表中建立如图10.64 所示的表格。图 10.64 建立表格2 调出“窗体”工具栏，在“窗体”工具栏上，单击“按钮”按钮，在建立表格的下面单击并拖出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“计算”，然后单击“新建”按钮，如图10.65 所示。图 10.65 设置“指定宏”对话框3 弹出 Vis
24、ual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.66 所示。图 10.66 输入代码第 1 章初识EXCEL 图 10.69 单击“单步执行”按钮?43?输入的代码如下：Sub 计算()Sum=0 For Count=1 To 100 Sum=Sum+Sqr(Count)Next Count Cells(3,3)=Sum MsgBox Sum End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表中，将按钮名称更改为“计算”，然后单击此按钮，弹出计算结果的对话框，如图10.67 所示。5 在单元格C3 中，显示出具体的计算值，如图 10.68 所示。图 1
25、0.67 提示对话框图 10.68 计算值如何使用“宏”对话框来单步执行宏具体操作步骤如下。1 在菜单栏上选择“工具宏”命令，弹出“宏”对话框，在列表框中选择需要进行单步执行的宏名，单击“单步执行”按钮，如图10.69 所示。2 弹出 Visual Basic 编辑器窗口，在代码编辑区的呈现黄色的行就是正在执行的命令，如图10.70 所示。图 10.70 Visual Basic 编辑器窗口3 单步执行完毕后，可以在菜单栏上选择“运行运行子过程/用户窗体”命令，如图10.71 所示，来运行程序可行行性。图 10.71 选择“运行子程序/用户窗体”命令如何调用其他程序调用其他程序可以简化代码，代
26、码越简单，就越容易进行修改，同时也容易解码和调试。例如下面的程序代码就调用了“温馨提示”程序。Sub main()Call 开始输入Call 温馨提示Call 离开End Sub?1?EXCEL1000 个小技巧如何添加“插入脚本”、“显示所有脚本”等命令具体操作步骤如下。1 在菜单栏上选择“工具自定义”命令，弹出“自定义”对话框，单击“命令”标签，切换至“命令”选项卡下，在“类别”列表框中选择“工具”选项，如图10.72 所示。图 10.72 选择“工具”选项2 在“命令”列表框中，将“插入脚本”选项拖到“工具”菜单上，当“工具”菜单显示菜单命令时，将鼠标指针指向“宏”子菜单，当“宏”子菜单
27、显示菜单命令时，将鼠标指针指向要放置“插入脚本”命令的位置，如图10.73 所示，释放鼠标。图 10.73 插入选项3 对“显示所有脚本”和“删除所有脚本”命令也采用同样的方法添加。4 单击“自定义”对话框中的“关闭”按钮即可完成。如何对编写的VBA 程序进行调试具体操作步骤如下。1 在 Visual Basic 编辑器窗口中，在菜单栏上选择“调试逐语句”命令。2 在代码编辑区内程序就会对每个步骤进行调试，如图10.74 所示。图 10.74 逐语句调试如何将宏模块复制到其他工作簿中具体操作步骤如下。1 打开包含相应模块的工作簿和需要向其中复制模块的工作簿。2 在菜单栏上选择“工具宏|Visu
28、al Basic 编辑器”命令，弹出Visual Basic 编辑器窗口。3 在 Visual Basic 编辑器窗口的菜单栏上，选择“视图工程资源管理器”命令。4 将需要复制的模块拖到目的工作簿中即可完成。如何录制一个复制粘贴的宏命令具体操作步骤如下。1 在工作表中创建如图10.75 所示的表格。图 10.75 建立表格2 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮，然后在建立表格的下侧单击并拖动出一按钮，同时弹出“指定宏”对话框，在“宏名”文本框中输入“复制”，然后单击“录制”按钮，如图 10.76 所示。第 1 章初识EXCEL 图 10.79 更改按钮名称?45?图 10.
29、76 设置“指定宏”对话框3 弹出“录制新宏”对话框，在快捷文本框输入“E”，如图10.77 所示。图 10.77 设置“录制新宏”对话框4 单击“确定”按钮，返回工作表中，右击单元格 B1，弹出快捷菜单，选择“复制”命令，右击单元格B2，弹出快捷菜单，选择“粘贴”命令，然后单击“停止录制”工具栏上的“停止录制”按钮，如图 10.78 所示。图 10.78 单击“停止录制”按钮5 返回工作表中，将按钮名称更改为“复制”，如图 10.79 所示。6 在复制区域内输入数据“天气真好！”，然后单击“复制”按钮，粘贴区域就会自动显示复制区内的数据，如图10.80 所示。图 10.80 单击“复制”按钮
30、如何使用按钮来完成对单元格底纹的填充具体操作步骤如下。1 在工作表中建立如图10.81 所示的表格。图 10.81 建立表格2 调出“窗体”工具栏，在“窗体”工具栏上，单击“按钮”按钮，然后在建立表格的下侧单击拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“填充”，然后单击“录制”按钮，如图 10.82 所示。图 10.82 设置“指定宏”对话框?1?EXCEL1000 个小技巧3 弹出“录制新宏”对话框，在“快捷键”文本框中输入“E”，如图10.83 所示。图 10.83 设置“录制新宏”对话框4 单击“确定”按钮，返回工作表中，对建立的填充表格进行填充设置，单击“停止录制”工具
31、栏上的“停止录制”按钮，如图10.84 所示。图 10.84 单击“停止录制”按钮5 返回工作表中，清除刚才的填充，并将按钮名称更改为“填”，然后单击“填”按钮，填充区域便被填充，如图10.85 所示。图 10.85 单击“填”按钮如何使用按钮来完成清除单元格内容的操作具体操作步骤如下。1 在工作表中已经建立的复制表格内进行如图10.86 所示的设置。图 10.86 复制区域2 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮，然后在“复制”按钮右侧单击并拖动出一按钮，同时弹出“指定宏”对话框，在“宏名”文本框中输入“清除”，然后单击“新建”按钮，如图10.87 所示。图 10.87 设
32、置“指定宏”按钮3 弹出 Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.88 所示。图 10.88 输入代码输入的代码如下：Sub 清除()Range(B1).Value=Range(B2).Value=End Sub 4 关闭“Visual Basic 编辑器”窗口，返回工作表中，将该按钮更名为“清除”，然后单击此按钮，复制区和粘贴区所有的数据便被清除，如图10.89、10.90 所示。图 10.89 清除按钮第 1 章 初识EXCEL 图 10.90 清除数据图 10.93 输入代码?47?如何使用按钮来完成自动求和功能具体操作步骤如下。1 在工作表中建立如图10
33、.91 所示的表格。图 10.91 建立表格2 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮，然后在建立的表格下侧单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“求和”，然后单击“新建”按钮，如图 10.92 所示。图 10.92 设置“指定宏”对话框3 弹出“Visual Basic 编辑器”窗口，在代码编辑区内输入代码，如图10.93 所示。输入的代码如下：Sub 自动求和()Dim A As Single A=0 For i=3 To 12 A=A+Cells(i,3)Next MsgBox A End Sub 4 关闭 Visual Basic 编辑器窗口，
34、返回工作表中，将该按钮更名为“自动求和”，然后在表格中填入数据，如图10.94 所示。图 10.94 填入数据5 单击“自动求和”按钮，弹出对话框，提示求和的值，如图10.95 所示。图 10.95 提示计算值?1?EXCEL1000 个小技巧如何使用按钮来完成计算平均值功能具体操作步骤如下。1 在工作表中创建如图10.96 所示的表格。图 10.96 打开表格2 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮，然后在建立的表格下侧单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“计算平均值”，然后单击“新建”按钮，如图10.97 所示。图 10.97 单击“编辑”按钮
35、3 弹出 Visual Basic 编辑器窗口，在其中的代码编辑区内输入代码，如图10.98 所示。图 10.98 输入代码输入的代码如下：Sub 计算平均值()Dim A As Single A=0 For i=3 To 12 A=A+Cells(i,3)Next MsgBox A/10 End Sub 4 关闭“Visual Basic 编辑器”窗口，返回工作表中，将该按钮更名为“计算”，单击此按钮，弹出提示对话框提示计算值，如图10.99 所示。图 10.99 提示计算值如何使用按钮来实现计数功能具体操作步骤如下。1 在工作表中某一区域内输入一列数字，如图10.100 所示。图 10.1
36、00 输入数字2 调出“窗体”工具栏，在“窗体”工具栏上第 1 章初识EXCEL 单击“按钮”按钮，然后在输入的数据右侧单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“计数”，然后单击“新建”按钮，如图 10.101 所示。图 10.103 更改按钮名称?49?图 10.101 设置“指定宏”对话框3 弹出 Visual Basic 编辑器窗口，在其中的代码编辑区内输入代码，如图10.102 所示。图 10.102 输入代码输入的代码如下：Sub 计数()Dim a As Single a=0 For i=3 To 1000 If Cells(i,3)=Then a=a El
37、se a=a+1 End If Next MsgBox a End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表中，将该按钮更名为“计数”，如图10.103 所示。5 单击“计数”按钮，弹出提示对话框，显示出刚输入的数据的个数，如图10.104 所示。图 10.104 提示数据个数如何使用按钮来实现切换工作表功能具体操作步骤如下。1 在工作簿中，单击工作表Sheet1 标签，切换至工作表Sheet1 中。2 调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”，在适当处置单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“切换工作表”，然后单击“新建”按钮，如
38、图10.105 所示。图 10.105 设置“指定宏”对话框?1?EXCEL1000 个小技巧3 弹出 Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.106 所示。图 10.106 输入代码输入的代码如下：Sub 切换工作簿()Sheet3.Select End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表中，将该按钮更名为“切换工作表”，单击此按钮，就可以自动切换至工作表Sheet3 中，如图10.107 所示。图 10.107 单击按钮10.3 VBA 中窗体的使用如何为 VBA 程序添加窗体具体操作步骤如下。1 切换到Visual Basi
39、c 编辑器窗口，如图10.108 所示。图 10.108 Visual Basic 编辑器窗口2 在菜单栏上选择“插入用户窗体”命令，如图 10.109 所示。图 10.109 选择“用户窗体”命令3 在 Visual Basic 编辑器窗口中弹出窗体面板和工具箱，如图10.110 所示。图 10.110 打开面板和工具箱如何在窗体上添加控件一般步骤如下。1 在 Visual Basic 编辑器窗口中，在菜单栏上选择“插入用户窗体”命令，显示窗体面板，如图 10.111 所示。图 10.111 显示窗体面板2 在菜单栏上选择“视图工具箱”命令。调出工具箱，如图10.112 所示。第 1 章初识
40、EXCEL 如何使用窗体关闭工作簿文件具体操作步骤如下。?51?图 10.112 工具箱3 在工具箱上单击“标签”按钮，返回窗体面板上，在适当位置单击并拖动出标签框，如图10.113 所示。图 10.113 绘制标签框4 在左侧“属性”列表框中进行标签的属性设置，如图10.114 所示。图 10.114 设置属性1 在 Visual Basic 编辑器窗口中，在菜单栏上选择“插入用户窗体”命令，显示窗体面板，如图 10.115 所示。图 10.115 显示窗体2 在工具箱上单击“按钮”按钮，然后在窗体中间单击并拖动出一按钮，如图10.116 所示。图 10.116 绘制按钮3 在左侧的“属性”
41、窗口中，将“名称”更改为“关闭工作簿”；将Caption 更改为“关闭工作簿”，如图 10.117 所示。?1?EXCEL1000 个小技巧图 10.119 单击按钮图 10.117 更改属性参数4 返回窗体上，此时按钮上的名称已经做了相应的更改，然后双击此按钮，弹出Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.118 所示。图 10.118 输入代码输入的代码如下：Private Sub 关闭工作簿 _Click()ActiveWorkbook.Save ActiveWorkbook.Close End Sub 5 在 Visual Basic 编辑器窗口的菜单栏上
42、，选择“运行运行子过程/用户窗体”命令，如图所示。6 弹出一个窗体，单击“关闭工作簿”按钮，系统便会保存工作簿文件，然后关闭工作簿，如图10.119 所示。如何使用窗体切换工作簿中的工作表具体操作步骤如下。1 在 Visual Basic 编辑器窗口中的菜单栏上，选择“插入用户窗体”命令，显示窗体面板，如图 10.120 所示。图 10.120 插入窗体2 在工具箱上单击“按钮”按钮，然后在窗体的适当位置绘制3 个相同大小的按钮，如图10.121 所示。图 10.121 绘制按钮3 在“属性”列表框中，分别将3 个按钮的名第 1 章初识EXCEL?53?称设置为“切换至工作表Sheet1”、“
43、切换至工作表Sheet2”和“切换至工作表Sheet3”；将 3 个按钮的Cpation 设置为“工作表Sheet1”、“工作表Sheet2”和“工作表Sheet3”。4 返回窗体上，3 个按钮的名称已经被更改，如图 10.122 所示。图 10.122 更改名称5 分别双击3 个按钮，弹出Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.123 所示。图 10.123 输入代码输入的代码如下：Private Sub 切换至工作表Sheet1_Click()Sheet1.Select End Sub Private Sub 切换至工作表Sheet2_ Click()She
44、et2.Select End Sub Private Sub 切换至工作表Sheet3_ Click()Sheet3.Select End Sub 6 在工具栏上单击“运行子过程/用户窗体”按钮，如图10.124 所示。图 10.124 单击“运行子过程/用户窗体”按钮7 弹出含有3 个按钮的对话框窗体，单击任意一个按钮，系统就可以切换至相应的工作表中，如图 10.125 所示。图 10.125 单击按钮如何在工作表中使用按钮显示窗体具体操作步骤如下。1 在工作表中，调出“窗体”工具栏，单击“按钮”按钮，如图10.126 所示。图 10.126 单击“按钮”按钮2 在工作表的适当位置单击并拖动
45、出一个按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“显示窗体”，然后单击“新建”按钮，如图10.127 所示。?1?图 10.127 设置“指定宏”对话框EXCEL1000 个小技巧图 10.130 显示的窗体3 弹出 Visual Basic 编辑器窗口，在代码编辑区内输入代码，如图10.128 所示。图 10.128 输入代码其中输入的代码如下：Sub 显示窗体()UserForm2.Show End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表中，将按钮名称更改为“显示窗体”，如图10.129 所示。图 10.129 更改名称5 单击“显示窗体”按钮，弹出已设
46、定的窗体，如图 10.130 所示。如何隐藏不用的窗体具体操作步骤如下。1 在 Visual Basic 编辑器窗口中打开需要隐藏的窗体，如图10.131 所示。图 10.131 打开窗体2 分别双击窗体上的3 个按钮，在切换的代码编辑区内进行代码的修改，如图10.132 所示。图 10.132 编辑后的代码输入的代码如下：第 1 章初识EXCEL Private Sub 切换至工作表Sheet1_Click()所示。Sheet1.Select UserForm2.Hide End Sub Private Sub 切换至工作表Sheet2_Click()Sheet2.Select UserFo
47、rm2.Hide End Sub Private Sub 切换至工作表Sheet3_Click()Sheet3.Select UserForm2.Hide End Sub 图 10.135 单击“文字框”按钮?55?3 在菜单栏上选择“运行运行子过程/用户窗体”命令，如图10.133 所示。图 10.133 选择“运行|运行子过程/用户窗体”命令4 弹出对话框，单击任一按钮，切换至相应的工作表中后，对话框也立即隐藏起来。如何使用窗体在工作表中输入数据具体操作步骤如下。1 在 Visual Basic 编辑器窗口中的菜单栏上，选择“插入用户窗体”命令，显示窗体面板，如图 10.134 所示。图
48、10.134 显示插入窗体2 在工具箱上单击“文字框”按钮，如图10.135 3 在窗体上的适当位置单击并拖动出一文字框区域，如图10.136 所示。图 10.136 拖动出文字框区域4 在窗体上添加一按钮，将“名称”更改为“输入”，将Caption 更改为“输入”，返回窗体上，按钮已经自动更名，如图10.137 所示。图 10.137 设置属性5 双击此按钮，切换至代码编辑区域，在其中?1?输入代码，如图10.138 所示。EXCEL1000 个小技巧图 10.140 输入数据图 10.138 输入代码其中输入代码如下：Private Sub 输入 _Click()Sheet1.Select
49、 Cells(1,1)=TextBox1.Text UserForm1.Hide End Sub 6 在菜单栏上选择“运行运行子过程/用户窗体”命令，如图10.139 所示。图 10.139 选择“运行子过程/用户窗体”命令7 屏 幕 上 出 现 对 话 框，在 文 本 框 中 输 入“”，然后单击“输入”按钮，如图10.140 所示。8 返回工作表中，单元格A1 中显示刚才输入的信息，如图10.141 所示。图 10.141 显示输入值如何在窗体上控制指定单元格的填充颜色具体操作步骤如下。1 在 Visual Basic 编辑器窗口中的菜单栏上，选择“插入/用户窗体”命令，显示窗体面板，如图
50、10.142 所示。图 10.142 插入窗体2 在窗体上添加两个按钮，分别将“名称”更改为“红色”和“黑色”，将Caption 更改为“红色”和“黑色”，如图10.143 所示的是红色按钮。第 1 章初识EXCEL?57?图 10.143 设置属性3 分别双击这两个按钮，在切换的代码编辑区内输入相应的代码，如图10.144 所示。图 10.144 输入的代码其中输入的代码如下：Private Sub 黑色 _Click()Sheet1.Select Range(A1).Select With Selection.Interior.ColorIndex=1.Pattern=xlSolid.Pa