宏的录制与使用.ppt

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,*,一、宏的录制与使用,1.,什么是宏宏是一连串可以重复使用的指令，并可以自动运行，宏是一个,“,过程,”,或,“,程序,”,，这个,“,过程,”,或,“,程序,”,的代码是自动录制进去的当然宏也可以先录制再进行编辑以使其更紧凑和有效率录制宏利用菜单提供的功能可以录制宏，当开始录制时，宏能够将你所有动作以代码的方式记录下来，而自动产生,VBA,代码，再选自某个使用宏的办法（工具按钮、菜单或组合键）,例,1,：在,Word,中录制一个宏，把一个字右移一个位置（选择当前一个字，剪切它，将插入点右移一个字，再将字粘贴回去）,1.,选择“开发工具”组下的“录制宏”，则打开“录制宏”对话框，输入宏名，选择运行宏的方式、存放位置后确定开始录制2.,选择当前一个字，剪切它，将插入点右移一个字，再将字粘贴回去,3.,完成后点击“停止”例,2,：在,EXCEL,中录制一个样本宏，用于创建一个新工作簿，将月份顺序输入工作簿中并保存。

练习一,练习,1,：录制两个宏，宏,Ss,的功能是将字符变为下标；宏,Swap,可以将两字符的位置互换，最后将宏放在,“,格式,”,工具栏中,“,字符缩放,”,按钮的右侧,练习,2,：创建一个宏,fkh,其快捷键为,Ctrl+,，其功能是输入符号,“,【】,”,，并将光标移至方括号内，等待用户输入其中的文字练习,3,：在,EXCEL,中录制一个宏，能够自动的将,“,A1,”,-,”,D9,”,单元格合并，并将单元格背景颜色改为蓝色练习,4,：在,EXCEL,中录制一个宏，使用,Ctrl+Shift+Z,作为快捷键，分别在,D4,和,D5,单元格中输入,5,和,8,，然后在,D6,单元格计算,D4,和,D5,两个单元格的乘积二、将宏指定到工具栏,如果在录制宏时没有指定运行宏的方式，可以在录制完后再将宏指定到工具栏,1.,打开“选项”,“,自定义功能区,”,对话框,2.,在“从下列位置选择命令”下拉框 中选择“宏”，将显示我们所录制和编写的宏名3.,单击右下角的“新建选项卡”创建自定义的功能区，选中自己的宏名，单击“添加”按钮把它加到新建的选项卡上，然后确定运行录制的宏,保存在当前工作簿中的宏，则在此工作簿的任何工作表中都可以运行，在个人工作簿的宏则可以运行任何工作簿的工作表，在新工作簿的宏则必须打开新工作簿,快捷方式 利用录制时定义的快捷键或工具栏按钮,使用宏对话框,在,VBE,编辑器中直接运行,删除宏,可以在宏对话框或,VBE,中删除,三、运行和删除宏,练习二,练习,1,：把前面录制的宏指定到工具栏中。

练习,2,：通过快捷键、工具栏按钮、宏对话框运行录制的宏练习,3,：在宏对话框中删除一个宏,四、宏代码的编辑与修改,演示：录制一个宏，对宏代码进行编辑，了解,VBE,环境和,VBA,程序的结构演示：在,EXCEL,的,VBE,中编写宏，输入以下代码：,Sub demo(),Sheet1.Range(a1:d5).Select,Selection.Value=12345,Sheet1.Range(g6)=Sheet1.Name,Sheet1.Cells(10,6)=ThisWorkbook.Name,End Sub,练习三,1.,创建一个宏，能够在,A1,到,I9,单元格中填入数字，这些数字分别代表该单元格的行列号例如在,A1,中填入,11,，,B1,中填入,12,，,，,I9,中填入,99,等然后将这些单元格字体设置为“黑体”，字号为,20,，颜色为蓝色编辑查看这个宏的代码及程序的结构2.,在,VBE,环境中创建“,calc,”宏，将“计算器”添加到,Word,工具栏中，以加强,Word,的计算功能3.,利用宏命令统计,word,中某个文本出现的次数五、用户输入与输出,1.MsgBox,函数,MsgBox,函数可用于在对话框中显示信息。

一旦显示出来，消息框将一直保持，直至用户单击某个按钮为止根据用户单击的按钮，会返回不同的整数值语法,:,MsgBox(prompt,buttons,title,helpfile,context),这个函数必须具有的参数只有,prompt,，即将在对话框中作为信息显示的字符串如果去掉函数参数的括号，就是在告诉,VBA,不需要函数的返回值其它参数见帮助,2.INPUTBOX,函数,当只需做出“是”、“否”、“确定”、“取消”等简单的回答时，MsgBox函数非常好用但是，如果需要其他类型的输入，例如数字和文本时，就需要使用InputBox函数,，,I,nputBox函数显示一个对话框，并且提供便于用户输入的文本说明其语法格式为：,InputBox(prompt,title,default,xpos,ypos,helpfile,context),例：,Dim iResult As Integer,iResult=InputBox(Please enter your favorite number:),MsgBox iResult,ActiveCell.Value=iResult,练习四,1.,创建一个名为,UserInfo,的过程。

这个过程功能如下：,1,）显示三个输入框第一个输入框提示用户输入名字，第二个输入框提示用户输入所居住的城市名，第三个提示用户输入年龄2,）在一个消息框中显示前三个输入框的结果。