《VBA应用开发与实例》由会员分享，可在线阅读，更多相关《VBA应用开发与实例（42页珍藏版）》请在金锄头文库上搜索。
1、 VBA应应用开发发与实实例李 辉辉微软课软课 程培训讲师训讲师活动动行程表VBA编程环境Office对象模型VBA编程技巧与案例Office XP开发版简介什么是宏u宏是一段定义好的操作，它可以是一 段程序代码，也可以是一连串的指令 集合。v宏的作用可以使频繁执行的动作自动化 v节省时间，提高工作效率，又能减少失误 开始录制宏开始录制宏操作步骤操作步骤完成宏录制完成宏录制运行宏运行宏录制宏录制宏需要经常重复执行的某项任务，就可需要经常重复执行的某项任务，就可 以把执行这些任务的步骤全部录制在以把执行这些任务的步骤全部录制在 宏里，把宏变为可自动执行的任务宏里，把宏变为可自动执行的任务 执行宏
2、的操作执行宏的操作 执行宏的命令执行宏的命令 在工具栏上设置宏按钮在工具栏上设置宏按钮 使用窗体控件使用窗体控件 使用图形对象执行宏使用图形对象执行宏 VBAVBA帮助你完成从必然王国到自由王国的飞跃帮助你完成从必然王国到自由王国的飞跃充分发挥充分发挥Office XPOffice XP的强大功能，成为的强大功能，成为OfficeOffice应用的真正高手应用的真正高手宏的结构Sub 主界面() 主界面 Macro Coren Lee 记录的宏 2002-11-5 Sheets(“主界面“).SelectEnd Sub宏名宏名批注批注宏程序宏程序Visual Basic编辑器u用来编辑宏程序或
3、制作更高阶的整合性应用程序u附属于Office之下，使用较少的系统资源，达到编辑应用程序的目的 。什么是工程u工程就是模块的集合，包括：v用户窗体v文件，例如Excel中的工作表以及图表工作 表v模块v类模块vActiveX文件v引用的其他工程为何要使用 VBAv宏缺少伸缩的弹性v记录了许多不需要的步骤v记录了许多不需要的资料v无法使用较深入的功能v无法完成重复性的工作v无法完成需要条件判断的工作宏宏VBAVBAVisual Basic for Application认识VBAuVBA是一个通用程序语言，可共享Microsoft各种相关的 重要软件。u以VBA编写的程序允许用户将其复制到Vis
4、ual Basic中加 以调试，用Visual Basic宏来控制Excel。u当记录宏不能满足用户需要或用记录宏无法记录命令时， 可以用VBA语言创造宏来控制工作簿的各项操作。u创建用户对话框、工具按钮或自定义命令，把Excel提供 的多个工具按钮连接起来，作为一个工具按钮。u利用重复语句控制循环宏内操作，利用不同参数执行某个 相关功能模块，使宏指令完成一系列复杂操作。来连接多 个宏。uVBA提供了许多内部函数，还允许用户自定义函数来简化 对工作簿、工作表、图表等复杂操作。VBA程序的基本架构u对象v面向对象的开发方式vVBA是以操作Office对象为目的的程序语言u属性v对象所属的特性或特
5、征u方法v控制对象的内建动作或功能，以便可以让程 序顺利打开u事件v发生于对象上的事情VBA与Visual Basic的差异uVisual Basic以界面为中心的开发方式 重点在使用者如何进行操作uVBA以文件为中心的开发方式 重点在使用者最后看到什么ApplicationApplicationWorkbooksWorkbooksWindowsWindowsAddinsAddinsWorksheetsWorksheetsChartsChartsCellsCellsRangeRangeExcelExcel对象结构对象结构使用对象的程序语法Workbooks(“Mybook.xls”).Work
6、sheets(“Sheet1”).Range(“B5”).Value = “ABCDE”容器容器属性Workbooks.Close集合对象Office 对象模型u顶级对象：Applicationu层次式对象模型结构u查看结构模型图（帮助）u对象浏览器u自动列出成员功能u对象属性u对象方法u事件：文档级和应用级VBA的重要语法uSet Object1 = ObjectuObject.Property = ValueuObject.Method (Setting)VBA程序开发的步骤u设定引用的参数项目u定义对象变量u设置对象变量u完成对象的接口v对象属性v操作方法v事件程序VBA控制结构u分支结
7、构If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 Else 语句块n+1 End IfSelect Case 测试变量 Case 表达式1 语句块1 Case 表达式2 语句块2 Case Else 语句块n+1 End SelectVBA控制结构u循环结构For 变量=初值 To 终值 Step 步长 语句块 Next 变量For Each 对象变量 In 对象集 语句块 Next 对象变量 Do While 条件表达式 语句块 Loop 示例：在Excel中打印工资表Sub InsertTitle()Selection.CurrentRegion.SelectC
8、ells(Selection.Row, Selection.Column).SelectRange(Selection, Selection.End(xlToRight).SelectSelection.CopyActiveCell.Offset(2, 0).Range(“A1“).SelectDo Until ActiveCell = “Selection.Insert Shift:=xlDownRange(Selection, Selection.End(xlToRight).SelectSelection.CopyActiveCell.Offset(2, 0).Range(“A1“).S
9、electLoopApplication.CutCopyMode = FalseEnd Sub示例：对话框与外部应用程序Private Sub donkey_Click() MsgBox (“ I am a donkey “) End SubPrivate Sub Wabbit_Click() Call PlaySound(ActiveDocument.Path + “wabbit.wav“) End SubPrivate Sub turtle_Click() Const Answer = “TURTLE“ Dim Tries As Integer Dim Message, Title, De
10、fault0, MyValue As String Tries = 0 Message = “What am I?“ Set prompt. Title = “What am I?“ Set title. Default0 = “*“ Set default for input field. Question: Tries = Tries + 1 If Tries = 3 Then Default0 = “T*“ End If If Tries = 4 Then Default0 = “TUR*“ End If MyValue = InputBox(Message, Title, Defaul
11、t0) MyValue = UCase(MyValue) Convert to uppercase 示例：保存并关闭系统Private Sub Workbook_BeforeClose(Cancel As Boolean)On Error Resume NextDim abcabc = MsgBox(“您确认要关闭本系统吗？“, vbQuestion + vbYesNo + vbDefaultButton2, “确认“)If abc = vbYes ThenWorksheets(“股票收益计算器“).Unprotect Password:=“1“Worksheets(“股票收益计算器“).Ra
12、nge(“G13“).FormulaR1C1 = “0“Worksheets(“股票收益计算器“).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=“1“Sheets(“说明“).SelectActiveWorkbook.SaveElseCancel = TrueEnd IfEnd Sub程序编写的特殊考虑u如何启动特定版本的应用程序vCreateObjectu如何使用当前的应用程序vGetObjectu如何结束应用程序vApplication.Quitu如何清除内存的占用vSet appObje
13、ct = Nothing创建用户窗体u提示使用者选取、输入或浏览数据u使用控件v文本框输入文字v列表框选取内容v选择框选取一个或多个功能用户窗体窗口的操作u建立用户窗体u配置ActiveX控件u设置窗口属性u配置控件属性及其事件uLoad与UnLoad语句v加载到内存或从内存中释放v用Show和Hide方法控制对象的显示和隐藏VBAVBA帮助你完成从必然王国到自由王国的飞跃帮助你完成从必然王国到自由王国的飞跃充分发挥充分发挥Office XPOffice XP的强大功能，成为的强大功能，成为OfficeOffice应用的真正高手应用的真正高手 使用使用ExcelExcel创建进销存管理系统创建
14、进销存管理系统 在在WordWord中完成员工信息的录入和查询中完成员工信息的录入和查询 妙用窗体制作小游戏妙用窗体制作小游戏封装应用程序u菜单栏的替换u窗口环境的替换u工具栏的替换u完成应用程序封装保护应用程序开发u加入程序修改口令u使用数字签名Office XP技术允许通过使用“数字证书”对文件或宏 进行数字签名。你可以把数字证书看作是身份证的电子版 本。使用“数字签名”以后有什么效果呢？如果整个文件 都被签名，任何人（包括你自己）将它修改的话，文件的 签名都会被破坏。也就是说，签名将保证自签名以后后该 文件没有被修改。打包向导u打包操作可创建一个程序包，将应用程序 安装到用户计算机。u程
15、序包包含一个或多个.cab文件以及运行 应用程序所必须安装的其他所有文件u打包步骤v确定需要分发的文件v如果需要，创建应用程序组件的依赖文件v确定要将文件安装到用户计算机的什么位置v创建程序包Office XP产品系列Office XP标准版专业 版企业版开发版WordExcelOutlookPowerPointAccessFrontPage (SharePoint)开发工具小型语言套件(英文界面)素材库建议市场零售价 普通版全包装产品￥3940￥4720-￥6310普通版许可证￥2925￥3528￥4405￥4926升级版全包装产品￥1970￥2750-￥4340 升级版许可证￥1408￥2
16、102￥2605￥3510Microsoft Office 开发平台的特点u降低开发和部署的总成本v可利用 Office 部署工具v利用流行和熟悉的技术v开发量极小u减少使用者的培训负担和支持费用v培训不再必不可少u提高了对需求的及时反应能力和解决方案 的灵活性v起点高，开发周期短MS Office 的开发原则uMS Office 是一个功能齐全的应用系统uMS Office 是一个灵活方便的开发平台uOffice 开发的原则v能不开发就不开发v很多功能 Office 原已提供v对 Office 了解越多，开发者的效率越高uOffice 开发者：全球 260 万uOffice 开发版Office 完备开发工具Off
