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

第10章巧妙应用Excel的宏与VBA10.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所示。・1・图10.5选择宏EXCEL1000个小技巧图10.8选择“模块”命令4返回工作表中，如图10.6所示，单击此按钮，便可执行选定宏所录制的操作。图10.6添加的按钮如何使用MicrosoftVisualBasic编辑器创建宏具体操作步骤如下。1在Excel的菜单栏上选择“工具｜宏｜VisualBasic编辑器”命令，弹出VisualBasic编辑器窗口，如图10.7所示。图10.7VisualBasic编辑器窗口2在菜单栏上选择“插入｜模块”命令，如图10.8所示。3将需要设置的代码输入或复制到模块的代码窗口中。4如果要模块窗口中运行宏，可以直接按F5键。5编写完宏后，在菜单栏上选择“文件｜关闭并返回到MicrosoftExcel”命令即可关闭此窗口，如图10.9所示。图10.9选择“关闭并返回到MicrosoftExcel”命令如何宏命令转化成VBA代码具体操作步骤如下。1在菜单栏上选择“工具｜宏｜宏”命令。2弹出“宏”对话框，在列表框中选择“Macro2”选项，然后单击“编辑”按钮，如图10.10所示。图10.10设置“宏”对话框第1章初识EXCEL3弹出VisualBasic编辑器窗口，在代码编辑区内显示的代码便是宏命令的程序代码，如图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.2VBA中按钮的使用如何将录制的宏指定给自定义的工具按钮具体操作步骤如下。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弹出VisualBasic编辑器，在窗口中的代码编辑区内，选取要复制的程序行，如果要复制整个宏，要在选定区域中包括了“With”和“EndWith”行，如图10.23所示。图10.23选取代码6在VisualBasic编辑器窗口中，在菜单栏上选择“编辑｜复制”命令，如图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切换至VisualBasic编辑器窗口中，在代码编辑区内输入相应的代码，如图10.29所示。图10.29输入代码其中的代码如下：Sub按钮1_单击（）CallleijiaEndSub5在下方添加一个程序leijia()，如图10.30所示。图10.30添加程序其中的代码如下：Subleijia()Dima,b,cAsLonga=Cells(1,2)b=c=0While(b＜a)b=b+1c=c+bWendc=cCells(2,2)=cEndSub第1章初识EXCEL・37・6关闭VisualBasic编辑器窗口，返回工作表中，将按钮上的文本更改为“计算”，如图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弹出VisualBasic编辑器窗口，在代码编辑区内输入代码，如图10.46所示。图10.46输入代码输入的代码如下：Sub弹出提示()ANS=MsgBox(〝请重新输入〞vbYesNo,〝输入错误!〞)IfANS=vbNoThenExitSubEndSub4关闭VisualBasic编辑器窗口，返回工作表中，将按钮名称更改为“输入错误!”，如下图10.47所示。图10.47更改名称5单击“输入错误!”按钮，即可弹出对话框。为何“刷新”时有消息显示对宏的更改将丢失在VisualBasic编辑器窗口中更改宏时，如果又在Microsoft脚本编辑器中更改了工作簿的副本，就会显示此消息。如果要保存对宏所做的更改，可以执行下列操作。1单击“否”按钮。2切换到VisualBasic编辑器窗口中。3导出已更改的任何模块。4在工作表簿的Microsoft脚本编辑器窗口中，单击“刷新”工具栏上的“刷新”按钮。5单击“是”按钮。6导入模块以恢复对宏的更改。如何使用InputBox对话框在工作表中输入信息具体操作步骤如下。1在工作表中建立如图10.48所示的表格。图10.48建立表格2调出“窗体”工具栏，在“窗体”工具栏上单击“按钮”按钮，在建立的表格的右侧单击并拖动出一按钮，弹出“指定宏”对话框，在“宏名”文本框中输入“开始输入”，然后单击“新建”按钮，如图10.49所示。・1・EXCEL1000个小技巧图10.52输入姓名图10.49设置“指定宏”对话框3弹出VisualBasic编辑窗口，在代码编辑区内输入代码，如图10.50所示。图10.50输入代码输入的代码如下：Sub请输入()a=InputBox(〝请输入你的姓名：〞)Cells(1,2)=aIfa〈〉〝〞Thenb=InputBox(〝请输入你的年龄：〞)Cells(2,2)=bEndIfEndSub4关闭VisualBasic编辑器窗口，返回工作表中，更改按钮名称为“请输入”，如图10.51所示。图10.51更改“按钮”名称5单击“请输入”按钮，弹出对话框，提示用户输入姓名，如图1