Excel宏基础学习教程.ppt

《Excel宏基础学习教程.ppt》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、EXCEL宏基础知识EXCEL宏介绍什么是EXCEL宏?为什么要使用EXCEL宏?讲解EXCEL宏一、录制宏通过录制宏来学习宏的开发最简单快速的宏开发就是录制一段宏，然后修改成需要的结果。（F1是查看帮助的快捷键）通过录制宏学习复制粘贴通过录制宏来学习赋予单元格颜色录制宏的方法通过菜单中“工具->宏->录制新宏”来录制在弹出的对话框中可指定宏名称，快捷键，保存位置和宏功能说明录制宏的方法在看到下图所示“停止录制”工具栏时表示此时宏录制已经开始了注意：宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包

2、括：字母、数字和下划线。宏名中不允许出现空格。并不是所有的操作过程都可以被宏记录下来查看宏代码打开宏编辑器工具-宏-VisualBasic编辑器右键点击Sheet页名称，点击“查看代码”Alt+F11讲解EXCEL宏一、录制宏二、编写宏最简单的宏弹出窗口Sub弹出窗口（）Msgbox“Hello,World”EndsubEXCEL宏语法介绍一、定义过程名称命名规则：*名字中可以包含字母数字和下划线。*名字中不能包含空格句号惊叹号，也不能包含@&$#字符*名字最多可以包含255个字符。Sub：Sub/endSub

3、Function：Function/endFunction相同点：都可以有参数不同点：Sub不能返回值，Function可以返回值。Sub函数中可以调用Function函数。EXCEL宏语法介绍二、定义变量使用dim语句定义变量例如：Dimnasinteger‘定义n为integer类型的变量Dimstasworksheet‘定义worksheet对象类型的变量DimZeroArray(0To5)‘定义下标范围为0到5的数组Subrun()dimaasintegera=:20EndsubEXCEL宏语法介绍三、

4、常用对象Application：Excel应用程序进程对象，可包含多个WorkBook。WorkBook：Excel工作簿对象，可包含多个worksheet。Worksheet：Excel工作表对象。Sheets：Excel工作表对象集合，可包含多个worksheet。Range：Excel工作表内单元格集合对象，可包含多个Cell。Cells：Excel单元格对象集合，通过cells(r,c)指定行号列号定位到单元格。EXCEL宏语法介绍四、常用函数Trim（）：去掉字符串前后的空格。Mid（）：截取字符串中

5、的指定部分InStr（）：查找一个字符串中另一个字符串出现最初的位置Cstr（）：转换成字符串类型Var（）：转换成数值类型Offset()：'在当前单元格基础上向指定方向移动指定格数Value：获取或设置单元格值(Value2属性不使用Currency和Date数据类型。通过使用Double数据类型，可将用这些数据类型设置格式的数据按浮点数字返回。）Text：取得单元格格式化后的值，只能读取不能写入Address：得到当前单元格的地址Now：获得当前日期时间Name：'获取或设置对象名称IIf(exp,tru

6、epart,falsepart)：根据表达式的真假返回值。Choose(index_num,value1,value2...)：根据序号返回列表中的一个值。EXCEL宏语法介绍五、示例Worksheets.Add'增加一个工作表activesheet.delete'删除当前工作表Workbooks.OpenFileName:="C:Book1.xls"‘打开一个文件ActiveWindow.Close‘关闭当前工作簿ActiveCell.Clear'清除单元格中所有文字、批注、格式、所有的东西MsgBoxSe

7、lection.Rows.Count‘弹出选中范围的单元格的行数MsgBoxSelection.Columns.Count‘弹出选中范围的单元格的列数MsgboxSelection.Address‘弹出选中范围的单元格的地址Application.Runmacro:="text"‘执行一个名为text的宏ActiveWindow.ScrollRow=1‘滚动到第一行InputBox("Enteryourname")‘弹出inputbox输入框kk=Application.GetOpenFilename("EXC

8、EL(*.XLS),*.XLS",Title:="提示：请打开一个EXCEL文件")‘通过打开文件对话框获取文件名Application.Dialogs(xlDialogZoom).Show‘打开zoom对话框程序控制If…then（elseif）（else）endIf例子：ifn=2thena=10elseifn>2thena=20elsea=30endif判断语句程序控制For…t