EXCEl经典课堂10-巧妙应用Excel的宏与VBA

第 10 章 巧妙应用 Excel 的宏与 VBA 10.1 宏的录制、创建与命名 如何将已经录制的宏指定给工作簿中添 加的窗体按钮 如何录制宏 具体操作步骤如下。 具体操作步骤如下。 1 将宏病毒安全级设置为“中”或“低”。 2 在菜单栏上选择“工具｜宏｜录制新宏”命 令，弹出“录制新宏”对话框，如图 10.1 所示。 图 10.1 “录制新宏”对话框 3 在“宏名”文本框中，输入需设定的宏的名 称。 4 在“保存在”下拉列 表 关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf 框中，选择需要存放 宏的地址。 5 如果要添加有关宏的说明，可以在“说明” 文本框中输入该宏的详细说明。 6 单击“确定”按钮，弹出“停止录制”工具 栏，如图 10.2 所示。 图 10.2 “停止录制”工具栏 7 在工作簿中执行需要录制的操作，完毕后， 在“停止录制”工具栏上，单击“停止录制”按钮 即可完成。 1 右击菜单栏，弹出快捷菜单，选择“窗体” 选项，打开“窗体”工具栏，如图 10.3 所示。 图 10.3 “窗体”工具栏 2 在“窗体”工具栏上单击“按钮”按钮，然 后在工作表上绘制一个按钮，此时会弹出“指定宏” 对话框，如图 10.4 所示。 图 10.4 “指定宏”对话框 3 在列表框中选择以前录制的宏“Macrol”，然 后单击“确定”按钮，如图 10.5 所示。 ・1・ 图 10.5 选择宏 EXCEL1000 个小技巧 图 10.8 选择“模块”命令 4 返回工作表中，如图 10.6 所示，单击此按钮， 便可执行选定宏所录制的操作。 图 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 选择“关闭并返回到 Microsoft Excel”命令 如何宏命令转化成 VBA 代码 具体操作步骤如下。 1 在菜单栏上选择“工具｜宏｜宏”命令。 2 弹出“宏”对话框，在列表框中选择“Macro2” 选项，然后单击“编辑”按钮，如图 10.10 所示。 图 10.10 设置“宏”对话框 第 1 章 初识 EXCEL 3 弹出 Visual Basic 编辑器窗口，在代码编辑 区内显示的代码便是宏命令的程序代码，如图 10.11 所示。 图 10.13 单击“选项”按钮 ・33・ 图 10.11 代码 录制宏的过程中如何设置快捷键 在录制新宏的过程中，会弹出“录制新宏”对 话框，在“快捷键”文本框中可以输入一个字母， 如图 10.12 所示。 图 10.12 输入快捷键 这样，可以直接按 Ctrl+V 键，便可执行宏。 宏录制后如何设置快捷键 具体操作步骤如下。 1 在菜单栏上选择“工具｜宏｜宏”命令，弹 出“宏”对话框，单击“选项”按钮，如图 10.13 所示。 2 弹出“宏选项”对话框，在“快捷键”文本 框中，输入需要设定的快捷键，如图 10.14 所示。 图 10.14 “宏选项”对话框 3 单击“确定”按钮，这样，直接按 Ctrl+Shift+S 快捷键即可执行宏。 10.2 VBA 中按钮的使用 如何将录制的宏指定给自定义的工具按 钮 具体操作步骤如下。 1 在菜单栏上右击鼠标，弹出快捷菜单栏，选 择“自定义”命令，弹出“自定义”对话框，单击 “命令”标签，切换至“命令”选项卡下，在“类别” 列表框中选择“宏”选项，如图 10.15 所示。 ・1・ 图 10.15 “自定义”对话框 EXCEL1000 个小技巧 1 在菜单栏上选择“工具｜自定义”命令，弹 出“自定义”对话框，单击“命令”标签，切换至 “命令”选项卡下，在“类别”列表框中选择“宏” 选项，然后右击工具栏上的自定义按钮，弹出快捷 菜单，选择“更改按钮图像”选项，弹出“图像” 列表，选择需要的图标，如图 10.18 所示。 2 在右侧的“命令”列表框中，将“自定义按 钮”选项拖动到工具栏上，如图 10.16 所示，然后 单击“关闭”按钮。 图 10.16 添加按钮 3 单击自定义的按钮，弹出“指定宏”对话框， 在列表框中选择需要指定的宏选项，如图 10.17 所 示。 图 10.17 选择宏 5 单击“确定”按钮，这样，以后在菜单栏上 单击自定义的按钮即可快速执行宏。 如何更改自定义的工具按钮图标以及名 称 具体操作步骤如下。 图 10.18 更改图标 2 此时工具栏上的自定义的图标样式已经更 换，再右击它，弹出快捷菜单，选择“命名”项， 然后在其右侧的文本框中输入“我的按钮”，如图 10.19 所示。 图 10.19 输入名称 3 在“自定义”对话框中，单击“关闭”按钮， 这样，以后将鼠标指针指向自定义按钮就会出现按 钮名称提示，如图 10.20 所示。 图 10.20 显示名称 如何删除自定义的工具按钮 具体操作步骤如下。 第 1 章 初识 EXCEL ・35・ 1 在菜单栏上选择“工具｜自定义”命令，弹 出“自定义”对话框，单击“命令”标签，切换至 “命令”选项卡下，在“类别”列表框中选择“宏” 选项。 2 在工具栏上单击自定义的工具按钮，将它拖 动至“自定义”对话框中的“命令”选项卡的“命 令”列表框中的“自定义按钮”选项上，如图 10.21 所示。 图 10.21 拖动按钮 3 释放鼠标，自定义工具按钮就从工具栏上删 除，单击“关闭”按钮即可完成。 如何复制已创建的宏中的一部分创建另 一个宏 具体操作步骤如下。 1 将宏病毒安全级设置为“中”或“低”级。 2 打开要复制的宏所在的工作簿文件。 3 在菜单栏上选择“工具｜宏｜宏”命令。 4 弹出“宏”对话框，在“宏名”文本框中输 入要复制的宏的名称，然后单击“编辑”按钮，如 图 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.25 所示，“切换网格” 按钮呈打开状态，如果需要关闭风格线，单击此按 钮即可完成。 图 10.25 “窗体”工具栏 如何使用 VBA 进行累加计算 具体操作步骤如下。 1 在工作表中创建如图 10.26 所示的表格。 2 调出“窗体”工具栏，然后在“窗体”工具 栏上单击“按钮”按钮，如图 10.27 所示。 图 10.26 创建表格 图 10.27 单击“按钮”按钮 3 在刚创建的表格的下方单击并拖出一个按 钮，此时会自动弹出“指定宏”对话框，单击“新 建”按钮，如图 10.28 所示。 图 10.28 单击“新建”按钮 4 切换至 Visual Basic 编辑器窗口中，在代码 编辑区内输入相应的代码，如图 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 (b＜a) 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 更改按钮名称 7 在单元格 C3 中输入“500”，单击“计算” 按钮，在单元格 C4 中便显示出累加值“125250”， 如图 10.32 所示。 图 10.32 计算累加值 如何制作行颜色交叉 Excel 表格 具体操作步骤如下。 1 在菜单栏上选择“工具｜宏｜录制新宏”命 令。 2 弹出“录制新宏”对话框，在“宏名”文本 框中输入宏名“行颜色交叉的 Excel 表格”，在“快 捷键”文本框中输入“e”，如图 10.33 所示。 图 10.33 设置“录制新宏”对话框 3 单击“确定”按钮，返回工作表中，在其中 建立边框，然后进行多种颜色的格式化，如图 10.34 所示。 图 10.34 建立表格边框 4 在“停止录制”工具栏上，单击“停止录制” 按钮，如图 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 弹出“设置控件格式”对话框，单击“控制” 标签，切换至“控制”选项卡下，如图 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 显示排序 如何使用按钮来控制弹出提示对话框的 显示 具体操作步骤如下。 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 Exit Sub End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表 中，将按钮名称更改为“输入错误!”，如下图 10.47 所示。 图 10.47 更改名称 5 单击“输入错误!”按钮，即可弹出对话框。 为何“刷新”时有消息显示对宏的更改将 丢失 在 Visual Basic 编辑器窗口中更改宏时，如果 又在 Microsoft 脚本编辑器中更改了工作簿的副本， 就会显示此消息。 如果要保存对宏所做的更改，可以执行下列操 作。 1 单击“否”按钮。 2 切换到 Visual Basic 编辑器窗口中。 3 导出已更改的任何模块。 4 在工作表簿的 Microsoft 脚本编辑器窗口中， 单击“刷新”工具栏上的“刷新”按钮。 5 单击“是”按钮。 6 导入模块以恢复对宏的更改。 如何使用 InputBox 对话框在工作表中输 入信息 具体操作步骤如下。 1 在工作表中建立如图 10.48 所示的表格。 图 10.48 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，在建立的表格的右侧单击并拖 动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中输入“开始输入”，然后单击“新建”按钮， 如图 10.49 所示。 ・1・ EXCEL1000 个小技巧 图 10.52 输入姓名 图 10.49 设置“指定宏”对话框 3 弹出 Visual Basic 编辑窗口，在代码编辑区 内输入代码，如图 10.50 所示。 图 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 输入年龄后，单击“确定”按钮，返回工作 表中，此时表格中已经显示出刚才输入的信息，如 图 10.54 所示。 图 10.54 输入信息 如何制作会根据早中晚问候的提示对话 框 具体操作步骤如下。 1 调出“窗体”工具栏，在“窗体”工具栏上， 单击“按钮”按钮，在工作表的适当位置单击并拖 动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中，输入“温馨提示”然后单击“新建”按 钮，如图 10.55 所示。 第 1 章 初识 EXCEL 图 10.57 更改名称 ・41・ 图 10.55 设置“指定宏”对话框 2 弹出 Visual Basic 编辑器窗口，在代码编辑 区内输入代码，如图 10.56 所示。 图 10.56 输入代码 输入的代码如下： Sub 温馨提示( ) Select Case Time Case Is＜0.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 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，在工作表的适当位置单击并拖 动出一按钮，在工作表的适当处单击并拖动出一按 钮，弹出“指定宏”对话框，在“宏名”文本框中 输入“显示窗口信息”，然后单击“新建”按钮，如 图 10.59 所示。 图 10.59 设置“指定宏”对话框 2 弹出 Visual Basic 编辑器窗口，在代码编辑 区内输入代码，如图 10.60 所示。 ・1・ 图 10.60 输入代码 EXCEL1000 个小技巧 图 10.62 提示 Excel 窗口 图 10.63 提示工作簿窗口 如何快速计算 1~100 的整数的平方根之 和 具体操作步骤如下。 其中输入的代码如下： Sub 显示窗口信息() Select Case Application.WindowState 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 编辑器窗口，返回工作表 中，将按钮名称更改为“显示窗口信息”，如图 10.61 所示。 图 10.61 更改名称 4 单击“显示窗口信息”按钮，弹出提示对话 框，显示当前 Excel 窗口的信息，如图 10.62 所示。 5 单击“确定”按钮，弹出工作簿的信息，如 图 10.63 所示，单击“确定”按钮即可完成。 1 在工作表中建立如图 10.64 所示的表格。 图 10.64 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上， 单击“按钮”按钮，在建立表格的下面单击并拖出 一按钮，弹出“指定宏”对话框，在“宏名”文本 框中输入“计算”，然后单击“新建”按钮，如图 10.65 所示。 图 10.65 设置“指定宏”对话框 3 弹出 Visual 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 所示。 图 10.67 提示对话框 图 10.68 计算值 如何使用“宏”对话框来单步执行宏 具体操作步骤如下。 1 在菜单栏上选择“工具｜宏”命令，弹出“宏” 对话框，在列表框中选择需要进行单步执行的宏名， 单击“单步执行”按钮，如图 10.69 所示。 2 弹出 Visual Basic 编辑器窗口，在代码编辑 区的呈现黄色的行就是正在执行的命令，如图 10.70 所示。 图 10.70 Visual Basic 编辑器窗口 3 单步执行完毕后，可以在菜单栏上选择“运 行＞运行子过程/用户窗体”命令，如图 10.71 所示， 来运行程序可行行性。 图 10.71 选择“运行子程序/用户窗体”命令 如何调用其他程序 调用其他程序可以简化代码，代码越简单，就 越容易进行修改，同时也容易解码和调试。例如下 面的程序代码就调用了“温馨提示”程序。 Sub main( ) Call 开始输入 Call 温馨提示 Call 离开 End Sub ・1・ EXCEL1000 个小技巧 如何添加“插入脚本”、“显示所有脚本” 等命令 具体操作步骤如下。 1 在菜单栏上选择“工具｜自定义”命令，弹 出“自定义”对话框，单击“命令”标签，切换至 “命令”选项卡下，在“类别”列表框中选择“工具” 选项，如图 10.72 所示。 图 10.72 选择“工具”选项 2 在“命令”列表框中，将“插入脚本”选项 拖到“工具”菜单上，当“工具”菜单显示菜单命 令时，将鼠标指针指向“宏”子菜单，当“宏”子 菜单显示菜单命令时，将鼠标指针指向要放置“插 入脚本”命令的位置，如图 10.73 所示，释放鼠标。 图 10.73 插入选项 3 对“显示所有脚本”和“删除所有脚本”命 令也采用同样的方法添加。 4 单击“自定义”对话框中的“关闭”按钮即 可完成。 如何对编写的 VBA 程序进行调试 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口中，在菜单栏上 选择“调试＞逐语句”命令。 2 在代码编辑区内程序就会对每个步骤进行调 试，如图 10.74 所示。 图 10.74 逐语句调试 如何将宏模块复制到其他工作簿中 具体操作步骤如下。 1 打开包含相应模块的工作簿和需要向其中复 制模块的工作簿。 2 在菜单栏上选择“工具｜宏|Visual Basic 编 辑器”命令，弹出 Visual Basic 编辑器窗口。 3 在 Visual Basic 编辑器窗口的菜单栏上，选 择“视图｜工程资源管理器”命令。 4 将需要复制的模块拖到目的工作簿中即可完 成。 如何录制一个复制粘贴的宏命令 具体操作步骤如下。 1 在工作表中创建如图 10.75 所示的表格。 图 10.75 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，然后在建立表格的下侧单击并 拖动出一按钮，同时弹出“指定宏”对话框，在“宏 名”文本框中输入“复制”，然后单击“录制”按钮， 如图 10.76 所示。 第 1 章 初识 EXCEL 图 10.79 更改按钮名称 ・45・ 图 10.76 设置“指定宏”对话框 3 弹出“录制新宏”对话框，在快捷文本框输 入“E”，如图 10.77 所示。 图 10.77 设置“录制新宏”对话框 4 单击“确定”按钮，返回工作表中，右击单 元格 B1，弹出快捷菜单，选择“复制”命令，右击 单元格 B2，弹出快捷菜单，选择“粘贴”命令，然 后单击“停止录制”工具栏上的“停止录制”按钮， 如图 10.78 所示。 图 10.78 单击“停止录制”按钮 5 返回工作表中，将按钮名称更改为“复制”， 如图 10.79 所示。 6 在复制区域内输入数据“天气真好！”，然后 单击“复制”按钮，粘贴区域就会自动显示复制区 内的数据，如图 10.80 所示。 图 10.80 单击“复制”按钮 如何使用按钮来完成对单元格底纹的填 充 具体操作步骤如下。 1 在工作表中建立如图 10.81 所示的表格。 图 10.81 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上， 单击“按钮”按钮，然后在建立表格的下侧单击拖 动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中输入“填充”，然后单击“录制”按钮，如 图 10.82 所示。 图 10.82 设置“指定宏”对话框 ・1・ EXCEL1000 个小技巧 3 弹出“录制新宏”对话框，在“快捷键”文 本框中输入“E”，如图 10.83 所示。 图 10.83 设置“录制新宏”对话框 4 单击“确定”按钮，返回工作表中，对建立 的填充表格进行填充设置，单击“停止录制”工具 栏上的“停止录制”按钮，如图 10.84 所示。 图 10.84 单击“停止录制”按钮 5 返回工作表中，清除刚才的填充，并将按钮 名称更改为“填”，然后单击“填”按钮，填充区域 便被填充，如图 10.85 所示。 图 10.85 单击“填”按钮 如何使用按钮来完成清除单元格内容的 操作 具体操作步骤如下。 1 在工作表中已经建立的复制表格内进行如图 10.86 所示的设置。 图 10.86 复制区域 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，然后在“复制”按钮右侧单击 并拖动出一按钮，同时弹出“指定宏”对话框，在 “宏名”文本框中输入“清除”，然后单击“新建” 按钮，如图 10.87 所示。 图 10.87 设置“指定宏”按钮 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.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 编辑器窗口，返回工作表 中，将该按钮更名为“自动求和”，然后在表格中填 入数据，如图 10.94 所示。 图 10.94 填入数据 5 单击“自动求和”按钮，弹出对话框，提示 求和的值，如图 10.95 所示。 图 10.95 提示计算值 ・1・ EXCEL1000 个小技巧 如何使用按钮来完成计算平均值功能 具体操作步骤如下。 1 在工作表中创建如图 10.96 所示的表格。 图 10.96 打开表格 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，然后在建立的表格下侧单击并 拖动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中输入“计算平均值”，然后单击“新建”按 钮，如图 10.97 所示。 图 10.97 单击“编辑”按钮 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.100 输入数字 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 Else a = a + 1 End If Next MsgBox a End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表 中，将该按钮更名为“计数”，如图 10.103 所示。 5 单击“计数”按钮，弹出提示对话框，显示 出刚输入的数据的个数，如图 10.104 所示。 图 10.104 提示数据个数 如何使用按钮来实现切换工作表功能 具体操作步骤如下。 1 在工作簿中，单击工作表 Sheet1 标签，切换 至工作表 Sheet1 中。 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”，在适当处置单击并拖动出一按钮，弹 出“指定宏”对话框，在“宏名”文本框中输入“切 换工作表”，然后单击“新建”按钮，如图 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 Basic 编辑器窗口，如图 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 章 初识 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 在左侧的“属性”窗口中，将“名称”更改 为“关闭工作簿”；将 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 编辑器窗口的菜单栏上，选 择“运行｜运行子过程/用户窗体”命令，如图所示。 6 弹出一个窗体，单击“关闭工作簿”按钮， 系统便会保存工作簿文件，然后关闭工作簿，如图 10.119 所示。 如何使用窗体切换工作簿中的工作表 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口中的菜单栏上， 选择“插入｜用户窗体”命令，显示窗体面板，如 图 10.120 所示。 图 10.120 插入窗体 2 在工具箱上单击“按钮”按钮，然后在窗体 的适当位置绘制 3 个相同大小的按钮，如图 10.121 所示。 图 10.121 绘制按钮 3 在“属性”列表框中，分别将 3 个按钮的名 第 1 章 初识 EXCEL ・53・ 称设置为“切换至工作表 Sheet1”、“切换至工作表 Sheet2”和“切换至工作表 Sheet3”；将 3 个按钮的 Cpation 设置为“工作表 Sheet1”、“工作表 S