《Excel宏基础学习教程.ppt》由会员分享，可在线阅读，更多相关《Excel宏基础学习教程.ppt（19页珍藏版）》请在三一办公上搜索。
1、EXCEL宏基础知识,EXCEL宏介绍,什么是EXCEL宏?为什么要使用EXCEL宏?,讲解EXCEL宏,一、录制宏,通过录制宏来学习宏的开发,最简单快速的宏开发就是录制一段宏，然后修改成需要的结果。（F1是查看帮助的快捷键）通过录制宏学习复制粘贴通过录制宏来学习赋予单元格颜色,录制宏的方法,通过菜单中“工具-宏-录制新宏”来录制,在弹出的对话框中可指定宏名称，快捷键，保存位置和宏功能说明,录制宏的方法,在看到下图所示“停止录制”工具栏时表示此时宏录制已经开始了,注意：宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。宏名中不允许出现空格。并不是所有的操作过
2、程都可以被宏记录下来,查看宏代码,打开宏编辑器工具-宏-Visual Basic编辑器右键点击Sheet页名称，点击“查看代码”Alt+F11,讲解EXCEL宏,一、录制宏二、编写宏,最简单的宏,弹出窗口Sub 弹出窗口（）Msgbox“Hello,World”End sub,EXCEL宏语法介绍,一、定义过程名称命名规则：*名字中可以包含字母数字和下划线。*名字中不能包含空格句号惊叹号，也不能包含&$#字符*名字最多可以包含255个字符。Sub：Sub/end SubFunction：Function/end Function相同点：都可以有参数不同点：Sub不能返回值，Function可以
3、返回值。Sub函数中可以调用Function函数。,EXCEL宏语法介绍,二、定义变量使用dim 语句定义变量例如：Dim n as integer 定义n为integer类型的变量Dim st as worksheet 定义worksheet对象类型的变量Dim ZeroArray(0 To 5)定义下标范围为0到5的数组Sub run()dim a as integer a=:20End sub,EXCEL宏语法介绍,三、常用对象Application：Excel应用程序进程对象，可包含多个WorkBook。WorkBook：Excel工作簿对象，可包含多个worksheet。Worksh
4、eet：Excel工作表对象。Sheets：Excel工作表对象集合，可包含多个worksheet。Range：Excel工作表内单元格集合对象，可包含多个Cell。Cells：Excel单元格对象集合，通过cells(r,c)指定行号列号定位到单元格。,EXCEL宏语法介绍,四、常用函数Trim（）：去掉字符串前后的空格。Mid（）：截取字符串中的指定部分InStr（）：查找一个字符串中另一个字符串出现最初的位置Cstr（）：转换成字符串类型Var（）：转换成数值类型Offset()：在当前单元格基础上向指定方向移动指定格数Value：获取或设置单元格值(Value2 属性不使用 Curre
5、ncy 和 Date 数据类型。通过使用 Double 数据类型，可将用这些数据类型设置格式的数据按浮点数字返回。）Text：取得单元格格式化后的值，只能读取不能写入Address：得到当前单元格的地址Now：获得当前日期时间Name：获取或设置对象名称IIf(exp,truepart,falsepart)：根据表达式的真假返回值。Choose(index_num,value1,value2.)：根据序号返回列表中的一个值。,EXCEL宏语法介绍,五、示例Worksheets.Add增加一个工作表activesheet.delete删除当前工作表Workbooks.Open FileName:
6、=C:Book1.xls打开一个文件ActiveWindow.Close关闭当前工作簿ActiveCell.Clear清除单元格中所有文字、批注、格式、所有的东西MsgBox Selection.Rows.Count弹出选中范围的单元格的行数MsgBox Selection.Columns.Count弹出选中范围的单元格的列数Msgbox Selection.Address弹出选中范围的单元格的地址Application.Run macro:=text执行一个名为text的宏ActiveWindow.ScrollRow=1滚动到第一行InputBox(Enter your name)弹出inp
7、utbox输入框kk=Application.GetOpenFilename(EXCEL(*.XLS),*.XLS,Title:=提示：请打开一个EXCEL文件)通过打开文件对话框获取文件名Application.Dialogs(xlDialogZoom).Show打开zoom对话框,程序控制,Ifthen（elseif）（else）end If,例子：if n=2 thena=10 elseif n2 then a=20 elsea=30 end if,判断语句,程序控制,Fortonext,循环语句,例子：for i=1 to 10 a=a+1 next,调试与错误处理,调试工具。A,单步
8、执行过程:按下F8键 B,跳过过程(跳过已测试无误的过程节省时间):按下Shint+F8键C,跳出过程(跳过程剩余部份):按下Ctrl十shift十F8键 D,运行到光标处(跳过一组语句):按下Ctrl+F8键 E,设置下一条语句为光标所指语句(要警惕会忽略不执行中间的语句):按下Ctrl十F9键,安全性和保护,要在Excel中运行宏必须设置宏的安全级别，默认情况是高级，此时宏无法运行。需修改成中级或低级。（修改为中级时如打开含有宏的工作簿时系统会弹出是否启用宏的提示，若要运行宏则必须选择启用宏）,安全性和保护,代码的密码保护打开VBE工具VBAProject 属性保护，勾选查看时锁定工程，输入密码后点确定,
