vba应用开发与实例

《vba应用开发与实例》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、VBA应用开发与实例李辉微软课程培训讲师活动行程表VBA编程环境Office对象模型VBA编程技巧与案例OfficeXP开发版简介什么是宏宏是一段定义好的操作，它可以是一段程序代码，也可以是一连串的指令集合。宏的作用可以使频繁执行的动作自动化节省时间，提高工作效率，又能减少失误开始录制宏操作步骤完成宏录制运行宏录制宏需要经常重复执行的某项任务，就可以把执行这些任务的步骤全部录制在宏里，把宏变为可自动执行的任务执行宏的操作执行宏的命令在工具栏上设置宏按钮使用窗体控件使用图形对象执行宏DEMOVBA帮助你完成从必然王国到自由王国的飞跃充分发挥OfficeXP的强大功能，成为Offi

2、ce应用的真正高手宏的结构Sub主界面()''主界面Macro'CorenLee记录的宏2002-11-5''Sheets("主界面").SelectEndSub宏名批注宏程序VisualBasic编辑器用来编辑宏程序或制作更高阶的整合性应用程序附属于Office之下，使用较少的系统资源，达到编辑应用程序的目的。什么是工程工程就是模块的集合，包括：用户窗体文件，例如Excel中的工作表以及图表工作表模块类模块ActiveX文件引用的其他工程为何要使用VBA宏缺少伸缩的弹性记录了许多不需要的步骤记录了许多不需要的资料无法使用较深入的功能无法完成重复性的工作无法完成需要条件判断的工

3、作宏VBAVisualBasicforApplication认识VBAVBA是一个通用程序语言，可共享Microsoft各种相关的重要软件。以VBA编写的程序允许用户将其复制到VisualBasic中加以调试，用VisualBasic宏来控制Excel。当记录宏不能满足用户需要或用记录宏无法记录命令时，可以用VBA语言创造宏来控制工作簿的各项操作。创建用户对话框、工具按钮或自定义命令，把Excel提供的多个工具按钮连接起来，作为一个工具按钮。利用重复语句控制循环宏内操作，利用不同参数执行某个相关功能模块，使宏指令完成一系列复杂操作。来连接多个宏。VBA提供了许多内部函数，还允许

4、用户自定义函数来简化对工作簿、工作表、图表等复杂操作。VBA程序的基本架构对象面向对象的开发方式VBA是以操作Office对象为目的的程序语言属性对象所属的特性或特征方法控制对象的内建动作或功能，以便可以让程序顺利打开事件发生于对象上的事情VBA与VisualBasic的差异VisualBasic以界面为中心的开发方式重点在使用者如何进行操作VBA以文件为中心的开发方式重点在使用者最后看到什么ApplicationWorkbooksWindowsAddins……WorksheetsChartsCellsRange…………Excel对象结构使用对象的程序语法Workbooks(“

5、Mybook.xls”).Worksheets(“Sheet1”).Range(“B5”).Value=“ABCDE”容器容器属性Workbooks.Close集合对象Office对象模型顶级对象：Application层次式对象模型结构查看结构模型图（帮助）对象浏览器自动列出成员功能对象属性对象方法事件：文档级和应用级VBA的重要语法SetObject1=ObjectObject.Property=ValueObject.Method(Setting)VBA程序开发的步骤设定引用的参数项目定义对象变量设置对象变量完成对象的接口对象属性操作方法事件程序VBA控制结构分支结构If

6、〈条件1〉Then〈语句块1〉ElseIf〈条件2〉Then〈语句块2〉·Else〈语句块n+1〉EndIfSelectCase〈测试变量〉Case〈表达式1〉〈语句块1〉Case〈表达式2〉〈语句块2〉·CaseElse〈语句块n+1〉EndSelectVBA控制结构循环结构For〈变量〉=〈初值〉To〈终值〉Step〈步长〉〈语句块〉Next〈变量〉ForEach〈对象变量〉In〈对象集〉  〈语句块〉Next〈对象变量〉DoWhile〈条件表达式〉〈语句块〉Loop示例：在Excel中打印工资表SubInsertTitle()Selection.CurrentRegi

7、on.SelectCells(Selection.Row,Selection.Column).SelectRange(Selection,Selection.End(xlToRight)).SelectSelection.CopyActiveCell.Offset(2,0).Range("A1").SelectDoUntilActiveCell=""Selection.InsertShift:=xlDownRange(Selection,Selection.End(xlToRight)).S