第10章 巧妙应用 Excel的宏与VBA

第 10章 巧妙应用 Excel的宏与 VBA 10.1 宏的录制、创建与命名 如何录制宏 具体操作步骤如下。 1 将宏病毒安全级设置为“中”或“低”。 2 在菜单栏上选择“工具｜宏｜录制新宏”命 令，弹出“录制新宏”对话框，如图 10.1所示。 图 10.1 “录制新宏”对话框 3 在“宏名”文本框中，输入需设定的宏的名 称。 4 在“保存在”下拉列表框中，选择需要存放 宏的地址。 5 如果要添加有关宏的 说明 关于失联党员情况说明岗位说明总经理岗位说明书会计岗位说明书行政主管岗位说明书 ，可以在“说明” 文本框中输入该宏的详细说明。 6 单击“确定”按钮，弹出“停止录制”工具 栏，如图 10.2所示。 图 10.2 “停止录制”工具栏 7 在工作簿中执行需要录制的操作，完毕后， 在“停止录制”工具栏上，单击“停止录制”按钮 即可完成。 如何将已经录制的宏指定给工作簿中添 加的窗体按钮 具体操作步骤如下。 1 右击菜单栏，弹出快捷菜单，选择“窗体” 选项，打开“窗体”工具栏，如图 10.3所示。 图 10.3 “窗体”工具栏 2 在“窗体”工具栏上单击“按钮”按钮，然 后在工作表上绘制一个按钮，此时会弹出“指定宏” 对话框，如图 10.4所示。 图 10.4 “指定宏”对话框 3 在列表框中选择以前录制的宏“Macrol”，然 后单击“确定”按钮，如图 10.5所示。 EXCEL1000个小技巧 ·1· 图 10.5 选择宏 4 返回工作表中，如图 10.6所示，单击此按钮， 便可执行选定宏所录制的操作。 图 10.6 添加的按钮 如何使用 Microsoft Visual Basic编辑器 创建宏 具体操作步骤如下。 1 在 Excel的菜单栏上选择“工具｜宏｜Visual Basic编辑器”命令，弹出 Visual Basic编辑器窗口， 如图 10.7所示。 图 10.7 Visual Basic编辑器窗口 2 在菜单栏上选择“插入｜模块”命令，如图 10.8所示。 图 10.8 选择“模块”命令 3 将需要设置的代码输入或复制到模块的代码 窗口中。 4 如果要模块窗口中运行宏，可以直接按 F5 键。 5 编写完宏后，在菜单栏上选择“文件｜关闭 并返回到 Microsoft Excel”命令即可关闭此窗口， 如图 10.9所示。 图 10.9 选择“关闭并返回到 Microsoft Excel”命令 如何宏命令转化成 VBA代码 具体操作步骤如下。 1 在菜单栏上选择“工具｜宏｜宏”命令。 2 弹出“宏”对话框，在列表框中选择“Macro2” 选项，然后单击“编辑”按钮，如图 10.10所示。 图 10.10 设置“宏”对话框 第 1章 初识 EXCEL ·33· 3 弹出 Visual Basic 编辑器窗口，在代码编辑 区内显示的代码便是宏命令的程序代码，如图 10.11 所示。 图 10.11 代码 录制宏的过程中如何设置快捷键 在录制新宏的过程中，会弹出“录制新宏”对 话框，在“快捷键”文本框中可以输入一个字母， 如图 10.12所示。 图 10.12 输入快捷键 这样，可以直接按 Ctrl+V键，便可执行宏。 宏录制后如何设置快捷键 具体操作步骤如下。 1 在菜单栏上选择“工具｜宏｜宏”命令，弹 出“宏”对话框，单击“选项”按钮，如图 10.13 所示。 图 10.13 单击“选项”按钮 2 弹出“宏选项”对话框，在“快捷键”文本 框中，输入需要设定的快捷键，如图 10.14所示。 图 10.14 “宏选项”对话框 3 单击“确定”按钮，这样，直接按 Ctrl+Shift+S 快捷键即可执行宏。 10.2 VBA中按钮的使用 如何将录制的宏指定给自定义的工具按 钮 具体操作步骤如下。 1 在菜单栏上右击鼠标，弹出快捷菜单栏，选 择“自定义”命令，弹出“自定义”对话框，单击 “命令”标签，切换至“命令”选项卡下，在“类别” 列表框中选择“宏”选项，如图 10.15所示。 EXCEL1000个小技巧 ·1· 图 10.15 “自定义”对话框 2 在右侧的“命令”列表框中，将“自定义按 钮”选项拖动到工具栏上，如图 10.16 所示，然后 单击“关闭”按钮。 图 10.16 添加按钮 3 单击自定义的按钮，弹出“指定宏”对话框， 在列表框中选择需要指定的宏选项，如图 10.17 所 示。 图 10.17 选择宏 5 单击“确定”按钮，这样，以后在菜单栏上 单击自定义的按钮即可快速执行宏。 如何更改自定义的工具按钮图标以及名 称 具体操作步骤如下。 1 在菜单栏上选择“工具｜自定义”命令，弹 出“自定义”对话框，单击“命令”标签，切换至 “命令”选项卡下，在“类别”列表框中选择“宏” 选项，然后右击工具栏上的自定义按钮，弹出快捷 菜单，选择“更改按钮图像”选项，弹出“图像” 列表，选择需要的图标，如图 10.18所示。 图 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 切换到要放置代码的模块中，然后在工具栏 上单击“粘贴”按钮即可。 EXCEL1000个小技巧 ·1· 操作工作表时如何快捷打开和关闭网格 线 具体操作如下。 在菜单栏上选择“视图｜工具栏｜窗体”命令， 弹出“窗体”工具栏，如图 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 第 1章 初识 EXCEL ·37· Wend c = c Cells(2,2) = c End Sub 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 单击“确定”按钮，返回工作表中，在其中 建立边框，然后进行多种颜色的 格式 pdf格式笔记格式下载页码格式下载公文格式下载简报格式下载 化，如图 10.34 所示。 图 10.34 建立表格边框 4 在“停止录制”工具栏上，单击“停止录制” 按钮，如图 10.35所示。 图 10.35 单击“停止录制”按钮 5 返回工作表中并选择一单元格区域，然后按 Ctrl+A键，在选定的单元格区域内，就会自动建立 多色边框表格，如图 10.36所示。 图 10.36 自动建立多色表格 如何使用下拉列表框来控制显示 具体操作步骤如下。 1 调出“窗体”工具栏，单击“窗体”工具栏 上的“组合框”按钮，如图 10.37所示。 图 10.37 单击“组合框”按钮 EXCEL1000个小技巧 ·1· 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所示。 EXCEL1000个小技巧 ·1· 图 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所示。 图 10.52 输入姓名 6 输入姓名后，单击“确定”按钮，再次弹出 对话框，提示输入年龄，如图 10.53所示。 图 10.53 输入年龄 7 输入年龄后，单击“确定”按钮，返回工作 表中，此时表格中已经显示出刚才输入的信息，如 图 10.54所示。 图 10.54 输入信息 如何制作会根据早中晚问候的提示对话 框 具体操作步骤如下。 1 调出“窗体”工具栏，在“窗体”工具栏上， 单击“按钮”按钮，在工作表的适当位置单击并拖 动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中，输入“温馨提示”然后单击“新建”按 钮，如图 10.55所示。 第 1章 初识 EXCEL ·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所 示。 图 10.57 更改名称 4 单击“温馨提示”按钮，弹出提示对话框， 由于当前时间是下午，因此提示信息为“小君，下 午好！”，如图 10.58所示。 图 10.58 提示信息 如何显示 Excel窗口的状态 具体操作步骤如下。 1 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，在工作表的适当位置单击并拖 动出一按钮，在工作表的适当处单击并拖动出一按 钮，弹出“指定宏”对话框，在“宏名”文本框中 输入“显示窗口信息”，然后单击“新建”按钮，如 图 10.59所示。 图 10.59 设置“指定宏”对话框 2 弹出 Visual Basic 编辑器窗口，在代码编辑 区内输入代码，如图 10.60所示。 EXCEL1000个小技巧 ·1· 图 10.60 输入代码 其中输入的代码如下： 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所示，单击“确定”按钮即可完成。 图 10.62 提示 Excel窗口 图 10.63 提示工作簿窗口 如何快速计算 1~100 的整数的平方根之 和 具体操作步骤如下。 1 在工作表中建立如图 10.64所示的表格。 图 10.64 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上， 单击“按钮”按钮，在建立表格的下面单击并拖出 一按钮，弹出“指定宏”对话框，在“宏名”文本 框中输入“计算”，然后单击“新建”按钮，如图 10.65所示。 图 10.65 设置“指定宏”对话框 3 弹出 Visual Basic 编辑器窗口，在代码编辑 区内输入代码，如图 10.66所示。 第 1章 初识 EXCEL ·43· 图 10.66 输入代码 输入的代码如下： 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所示。 图 10.69 单击“单步执行”按钮 2 弹出 Visual Basic 编辑器窗口，在代码编辑 区的呈现黄色的行就是正在执行的命令，如图 10.70 所示。 图 10.70 Visual Basic编辑器窗口 3 单步执行完毕后，可以在菜单栏上选择“运 行＞运行子过程/用户窗体”命令，如图 10.71所示， 来运行程序可行行性。 图 10.71 选择“运行子程序/用户窗体”命令 如何调用其他程序 调用其他程序可以简化代码，代码越简单，就 越容易进行修改，同时也容易解码和调试。例如下 面的程序代码就调用了“温馨提示”程序。 Sub main( ) Call 开始输入 Call 温馨提示 Call 离开 End Sub EXCEL1000个小技巧 ·1· 如何添加“插入脚本”、“显示所有脚本” 等命令 具体操作步骤如下。 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 ·45· 图 10.76 设置“指定宏”对话框 3 弹出“录制新宏”对话框，在快捷文本框输 入“E”，如图 10.77所示。 图 10.77 设置“录制新宏”对话框 4 单击“确定”按钮，返回工作表中，右击单 元格 B1，弹出快捷菜单，选择“复制”命令，右击 单元格 B2，弹出快捷菜单，选择“粘贴”命令，然 后单击“停止录制”工具栏上的“停止录制”按钮， 如图 10.78所示。 图 10.78 单击“停止录制”按钮 5 返回工作表中，将按钮名称更改为“复制”， 如图 10.79所示。 图 10.79 更改按钮名称 6 在复制区域内输入数据“天气真好！”，然后 单击“复制”按钮，粘贴区域就会自动显示复制区 内的数据，如图 10.80所示。 图 10.80 单击“复制”按钮 如何使用按钮来完成对单元格底纹的填 充 具体操作步骤如下。 1 在工作表中建立如图 10.81所示的表格。 图 10.81 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上， 单击“按钮”按钮，然后在建立表格的下侧单击拖 动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中输入“填充”，然后单击“录制”按钮，如 图 10.82所示。 图 10.82 设置“指定宏”对话框 EXCEL1000个小技巧 ·1· 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、 第 1章 初识 EXCEL ·47· 10.90所示。 图 10.89 清除按钮 图 10.90 清除数据 如何使用按钮来完成自动求和功能 具体操作步骤如下。 1 在工作表中建立如图 10.91所示的表格。 图 10.91 建立表格 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”按钮，然后在建立的表格下侧单击并 拖动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中输入“求和”，然后单击“新建”按钮，如 图 10.92所示。 图 10.92 设置“指定宏”对话框 3 弹出“Visual Basic编辑器”窗口，在代码编 辑区内输入代码，如图 10.93所示。 图 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 提示计算值 EXCEL1000个小技巧 ·1· 如何使用按钮来完成计算平均值功能 具体操作步骤如下。 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 ·49· 单击“按钮”按钮，然后在输入的数据右侧单击并 拖动出一按钮，弹出“指定宏”对话框，在“宏名” 文本框中输入“计数”，然后单击“新建”按钮，如 图 10.101所示。 图 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所示。 图 10.103 更改按钮名称 5 单击“计数”按钮，弹出提示对话框，显示 出刚输入的数据的个数，如图 10.104所示。 图 10.104 提示数据个数 如何使用按钮来实现切换工作表功能 具体操作步骤如下。 1 在工作簿中，单击工作表 Sheet1标签，切换 至工作表 Sheet1中。 2 调出“窗体”工具栏，在“窗体”工具栏上 单击“按钮”，在适当处置单击并拖动出一按钮，弹 出“指定宏”对话框，在“宏名”文本框中输入“切 换工作表”，然后单击“新建”按钮，如图 10.105 所示。 图 10.105 设置“指定宏”对话框 EXCEL1000个小技巧 ·1· 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所示。 EXCEL1000个小技巧 ·1· 图 10.117 更改属性参数 4 返回窗体上，此时按钮上的名称已经做了相 应的更改，然后双击此按钮，弹出 Visual Basic 编 辑器窗口，在代码编辑区内输入代码，如图 10.118 所示。 图 10.118 输入代码 输入的代码如下： Private Sub 关闭工作簿_Click( ) ActiveWorkbook.Save ActiveWorkbook.Close End Sub 5 在 Visual Basic 编辑器窗口的菜单栏上，选 择“运行｜运行子过程/用户窗体”命令，如图所示。 6 弹出一个窗体，单击“关闭工作簿”按钮， 系统便会保存工作簿文件，然后关闭工作簿，如图 10.119所示。 图 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”、“工作表 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( ) Sheet2.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 在工作表的适当位置单击并拖动出一个按 钮，弹出“指定宏”对话框，在“宏名”文本框中 输入“显示窗体”，然后单击“新建”按钮，如图 10.127所示。 EXCEL1000个小技巧 ·1· 图 10.127 设置“指定宏”对话框 3 弹出 Visual Basic 编辑器窗口，在代码编辑 区内输入代码，如图 10.128所示。 图 10.128 输入代码 其中输入的代码如下： Sub显示窗体( ) UserForm2.Show End Sub 4 关闭 Visual Basic 编辑器窗口，返回工作表 中，将按钮名称更改为“显示窗体”，如图 10.129 所示。 图 10.129 更改名称 5 单击“显示窗体”按钮，弹出已设定的窗体， 如图 10.130所示。 图 10.130 显示的窗体 如何隐藏不用的窗体 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口中打开需要隐藏 的窗体，如图 10.131所示。 图 10.131 打开窗体 2 分别双击窗体上的 3个按钮，在切换的代码 编辑区内进行代码的修改，如图 10.132所示。 图 10.132 编辑后的代码 输入的代码如下： 第 1章 初识 EXCEL ·55· Private Sub切换至工作表 Sheet1_Click() Sheet1.Select UserForm2.Hide End Sub Private Sub切换至工作表 Sheet2_Click() Sheet2.Select UserForm2.Hide End Sub Private Sub切换至工作表 Sheet3_Click() Sheet3.Select UserForm2.Hide End Sub 3 在菜单栏上选择“运行｜运行子过程/用户窗 体”命令，如图 10.133所示。 图 10.133 选择“运行|运行子过程/用户窗体”命令 4 弹出对话框，单击任一按钮，切换至相应的 工作表中后，对话框也立即隐藏起来。 如何使用窗体在工作表中输入数据 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口中的菜单栏上， 选择“插入｜用户窗体”命令，显示窗体面板，如 图 10.134所示。 图 10.134 显示插入窗体 2 在工具箱上单击“文字框”按钮，如图 10.135 所示。 图 10.135 单击“文字框”按钮 3 在窗体上的适当位置单击并拖动出一文字框 区域，如图 10.136所示。 图 10.136 拖动出文字框区域 4 在窗体上添加一按钮，将“名称”更改为“输 入”，将 Caption 更改为“输入”，返回窗体上，按 钮已经自动更名，如图 10.137所示。 图 10.137 设置属性 5 双击此按钮，切换至代码编辑区域，在其中 EXCEL1000个小技巧 ·1· 输入代码，如图 10.138所示。 图 10.138 输入代码 其中输入代码如下： Private Sub输入_Click( ) Sheet1.Select Cells(1,1)=TextBox1.Text UserForm1.Hide End Sub 6 在菜单栏上选择“运行｜运行子过程/用户窗 体”命令，如图 10.139所示。 图 10.139 选择“运行子过程/用户窗体”命令 7 屏幕上出现对话框，在文本框中输入 “chinabiddin.com”，然后单击“输入”按钮，如图 10.140所示。 图 10.140 输入数据 8 返回工作表中，单元格 A1 中显示刚才输入 的信息，如图 10.141所示。 图 10.141 显示输入值 如何在窗体上控制指定单元格的填充颜 色 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口中的菜单栏上， 选择“插入/用户窗体”命令，显示窗体面板，如图 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 .PatternColorIndex = xlAutomatic End With End Sub Private Sub 红色_Click() Sheet1.Select Range("A1").Select With Selection.Interior .ColorIndex = 3 .Pattern = xlSolid .PatternColorIndex = xlAutomatic End With End Sub 4 在工具栏上单击“运行子过程/用户窗体”按 钮，如图 10.145所示。 图 10.145 单击“运行子过程/用户窗体”按钮 5 屏幕上出现包含两个按钮的对话框，如图 10.146所示。 图 10.146 弹出对话框 6 单击“红色”按钮，将会自动切换至工作表 中，并且单元格 A1被红色填充，如图 10.147所示。 图 10.147 填充颜色 如何更改窗体上字体的格式 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口下，创建如图 10.148所示的窗体，单击文本框。 图 10.148 单击文本框 2 在其“属性”列表框中查找到 Font选项，如 EXCEL1000个小技巧 ·1· 图 10.149所示。 图 10.149 选择 Font选项 3 单击…按钮，弹出“字体”对话框，可以进 行需要的设置，如图 10.150所示。 图 10.150 设置字体 4 单击“确定”按钮，运行此用户窗体后，用 户在单元格中输入的字体如图 10.151所示。 图 10.151 修改的字体效果 如何使用窗体控制弹出提示对话框 具体操作步骤如下。 1 在“Visual Basic编辑器”窗口中的菜单栏上， 选择“插入｜用户窗体”命令，显示窗体面板，如 图 10.152所示。 图 10.152 插入窗体 2 在窗体上添加一个按钮，将“名称”更改为 “弹出提示”，将 Caption更改为“弹出提示”，如图 10.153所示。 图 10.153 属性设置 3 返回窗体上，此时按钮上的名称已经做了相 应的改变，如图 10.154所示。 第 1章 初识 EXCEL ·59· 图 10.154 更改名称 4 双击此按钮，切换至代码编辑区内，输入相 应的代码，如图 10.155所示。 图 10.155 输入代码 输入的代码如下： Private Sub 弹出提示_Click( ) shown = MsgBox(〝眼睛不要离显示器 屏幕太近哦！〞,vbOKCancel,提示) End Sub 5 在菜单栏上选择“运行｜运行子过程/用户窗 体”命令，如图 10.156所示。 图 10.156 选择“运行子过程/用户窗体”命令 6 屏幕上弹出对话框，如图 10.157所示。 图 10.157 弹出对话框 7 单击“弹出提示”对话框，弹出提示对话框， 如图 10.158所示。 图 10.158 提示对话框 如何将单选按钮与单元格建立链接关系 具体操作步骤如下。 1 在 Visual Basic 编辑器窗口中的菜单栏上， 选择“插入｜用户窗体”命令，显示窗体面板，如 图 10.159所示。 图 10.159 插入窗体 2 在工具箱上单击“选项按钮”按钮，如图 10.160所示。 EXCEL1000个小技巧 ·1· 图 10.160 单击“选项按钮”按钮 3 在窗体上面绘制两个选项按钮框，分别在其 左侧的“属性”列表框中，将这两个选项按钮的 Caption更改为“男”和“女”。 4 返回窗体上，两个选项按钮如图 10.161所示。 图 10.161 显示选项按钮 5 分别双击这两个选项按钮，在切换的代码编 辑区内，输入相应的代码，如图 10.162所示。 图 10.162 输入代码 输入的代码如下： Private Sub OptionButton1_Click( ) If OptionButton1.Enabled Then Sheet1.Select Cells(1,1) = OptionButton1.Caption End If End Sub Private Sub OptionButton2_Click( ) If OptionButton2.Enabled Then Sheet1.Select