VBA在EXCEL中应用与入门课件.ppt

《VBA在EXCEL中应用与入门课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VBA在EXCEL中应用与入门VBA究竟是什么?更确切地讲,它是一种自动化语言,它可以使常用的程序自动化,可以创建自定义的解决方案.例如:可以用EXCEL的宏语言来使EXCEL自动化.微软决定让它开发出来的应用程序共享一种通用的自动化语言--------Visual Basic For Application(VBA),可以认为VBA是应用程序开发语言VASUAL BASIC的子集.VBA是什么EXCEL环境中基于应用程序自动化的优点也许你想知道VBA可以干什么?使用VBA可以实现的功能包括:使重复的任务自动化自定义EXCEL工具栏,菜单和

2、界面简化模板的使用自定义EXCEL,使其成为开发平台创建报表对数据进行复杂的操作和分析EXCEL环境中基于应用程序自动化的优点用EXCEL作为开发平台有如下原因:EXCEL本身功能强大,包括打印,文件处理,格式化和文本编辑EXCEL内置大量函数EXCEL界面熟悉可连接到多种数据库EXCEL中VBA简单案例（一）平常工作中，有时会遇到一些慢性病病人缴费时提示农合疾病与医院不一致的情况。需要在农合接口界面和医生诊断找疾病名称一致的，相对起来有些麻烦，这个可以用VBA来进一步简化。EXCEL中VBA简单案例（一）EXCEL中VBA简单案例（一）E

3、XCEL中VBA简单案例（二）EXCEL中VBA简单案例（二）EXCEL中VBA简单案例（三）EXCEL中VBA简单案例（四）EXCEL中VBA简单案例-利用VBA设置工作表使用权限一些私密文件根本要让某些使用者无法操作，但又需要他来操作工作簿中的其他表，怎么办？ 这个同样可以用VBA来实现。录制简单的宏介绍学习VBA，应该花几分钟了解宏。“宏”，指一系列EXCEL能够执行的VBA语句。 以下将要录制的宏非常简单，只是改变单元格颜色。请完成如下步骤：打开新工作簿，确认其他工作簿已经关闭。选择A1单元格。调出“常用”工具栏。选择“工具”―“

4、宏”―“录制新宏”。输入“改变颜色”作为宏名替换默认宏名，单击确定。选择“格式”的“单元格”，选择“图案”选项中的红色,单击“确定”。单击“停止录制”工具栏按钮，结束宏录制过程。宏名最多可为255个字符，并且必须以字母开始。其中可用的字符包括：字母、数字和下划线。查看录制的代码“改变颜色”是宏的名称注意：有一小圆点，它的作用在于简化语句，小圆点代替出现在With后的词,它是With结构的一部分。Sub改变颜色()''改变颜色Macro'宏由FtpDown录制，时间:2018/6/5''WithSelection.Interior.Color

5、Index=3.Pattern=xlSolid.PatternColorIndex=xlAutomaticEndWithEndSub对应VBA的语句执行宏选择任何一个单元格，比如A3选择“工具”―“宏”―“宏”，显示“宏”对话框选择“改变颜色”，选择“执行”，则A3单元格的颜色变为红色执行刚才录制的宏，可以按以下步骤进行：为宏指定快捷键当给宏指定了快捷键后，就可以用快捷键来执行宏，而不必通过“工具”菜单。选择“工具”-“宏”，显示“宏”对话框，选择要指定快捷键的宏，再单击“选项”按钮，通过“选项”对话框进行设置。录制宏的局限性录制的宏无判断

6、或循环能力人机交互能力差,即用户无法进行输入,计算机无法给出提示无法显示EXCEL对话框无法显示自定义窗体希望自动化的许多EXCEL过程大多都可以用录制宏来完成.但是宏记录器存在以下局限性.通过宏记录器无法完成的工作有:EXCEL引用介绍EXCEL单元格的引用分为：“相对引用”、“混合引用”和“绝对引用”。相对引用：复制公式时地址跟着发生变化，如C1单元格有公式：=A1+B1当将公式复制到C2单元格时变为：=A2+B2当将公式复制到D1单元格时变为：=B1+C1EXCEL引用介绍混合引用：复制公式时地址的部分内容跟着发生变化，如C1单元格有

7、公式：=$A1+B$1当将公式复制到C2单元格时变为：=$A2+B$1当将公式复制到D1单元格时变为：=$A1+C$1绝对引用：复制公式时地址不会跟着发生变化，如C1单元格有公式：=$A$1+$B$1当将公式复制到C2单元格时仍为：=$A$1+$B$1当将公式复制到D1单元格时仍为：=$A$1+$B$1注意：工作薄和工作表都是绝对引用，没有相对引用。EXCEL引用介绍相同工作簿不同工作表间相互引用：在引用单元格前加Sheetn!（Sheetn为被引用工作表的名称）举例：如工作表Sheet1中的A1单元格内容等于Sheet2中单元格B2乘以5

8、，则在Sheet1中的A1单元格中输入公式=Sheet1!B2*5不同工作簿间互相引用：在引用单元格前加[Book.xlsx]Sheet!（Book为被引用工作薄名，Sheet为