《vba变量声明》由会员分享，可在线阅读，更多相关《vba变量声明（52页珍藏版）》请在金锄头文库上搜索。
1、VBA应用开发与实例,李 辉 微软课程培训讲师,活动行程表,VBA编程环境 Office对象模型 VBA编程技巧与案例 Office XP开发版简介,MS Office开发平台的方向,Office高级用户 模板开发，加载宏或构建小型项目 企业信息部门人员 可用Office对象进行项目设计开发 软件开发厂商 构建供Office使用的加载宏或向导,MS Office开发平台的好处,对企业和公司 降低培训成本，资源的回收利用 对程序开发人员 缩短研发时间，提高系统稳定性 对使用者的好处 减少摸索新系统的挫折,Office平台开发的关键,Office平台的通用语言宏（VBA） 内置于Office应用程
2、序，免费 完整的工作环境 宏录制器 对象浏览窗口,挑战第一关,善用宏简化工作,什么是宏,宏是一段定义好的操作，它可以是一段程序代码，也可以是一连串的指令集合。 宏的作用可以使频繁执行的动作自动化 节省时间，提高工作效率，又能减少失误,开始录制宏,操作步骤,完成宏录制,运行宏,录制宏 需要经常重复执行的某项任务，就可以把执行这些任务的步骤全部录制在宏里，把宏变为可自动执行的任务,执行宏的操作 执行宏的命令 在工具栏上设置宏按钮 使用窗体控件 使用图形对象执行宏,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥Office XP的强大功能，成为Office应用的真正高手,坚如磐石的安
3、全性 宏的安全性,宏，就是一段定义好的操作，它可以是一段程序代码，它也可以是一连串的指令集合。宏的作用可以使频繁执行的动作自动化，它执行一组动作比用户一步一步执行要快得多，而且是完全按用户所设定好的要求，准确无误地执行。这样，既能节省时间，提高工作效率，又能减少失误，起到事半功倍的作用。 你可能听说过由计算机病毒引起的潜在威胁。“病毒”是一种在后台工作的隐藏宏或者软件程序，经常骚扰计算机用户，并且毁坏重要的数据文件以及应用软件。 宏的保护方法： 安全级【高】通常适用于用户没有安装防病毒软件的时候 选择安全级为【中】时，用户可以确保所使用的宏命令是安全的 安全级【低】的情况下，Office XP
4、将不对宏作出任何检查,挑战第二关,深入浅出VBA,宏的结构,Sub 主界面() 主界面 Macro Coren Lee 记录的宏 2002-11-5 Sheets(“主界面“).Select End Sub,宏名,批注,宏程序,Visual Basic编辑器,用来编辑宏程序或制作更高阶的整合性应用程序 附属于Office之下，使用较少的系统资源，达到编辑应用程序的目的。,什么是工程,工程就是模块的集合，包括： 用户窗体 文件，例如Excel中的工作表以及图表工作表 模块 类模块 ActiveX文件 引用的其他工程,为何要使用 VBA 宏缺少伸缩的弹性 记录了许多不需要的步骤 记录了许多不需要的
5、资料 无法使用较深入的功能 无法完成重复性的工作 无法完成需要条件判断的工作,宏,VBA,Visual Basic for Application,认识VBA,VBA是一个通用程序语言，可共享Microsoft各种相关的重要软件。 以VBA编写的程序允许用户将其复制到Visual Basic中加以调试，用Visual Basic宏来控制Excel。 当记录宏不能满足用户需要或用记录宏无法记录命令时，可以用VBA语言创造宏来控制工作簿的各项操作。 创建用户对话框、工具按钮或自定义命令，把Excel提供的多个工具按钮连接起来，作为一个工具按钮。 利用重复语句控制循环宏内操作，利用不同参数执行某个相
6、关功能模块，使宏指令完成一系列复杂操作。来连接多个宏。 VBA提供了许多内部函数，还允许用户自定义函数来简化对工作簿、工作表、图表等复杂操作。,VBA程序的基本架构,对象 面向对象的开发方式 VBA是以操作Office对象为目的的程序语言 属性 对象所属的特性或特征 方法 控制对象的内建动作或功能，以便可以让程序顺利打开 事件 发生于对象上的事情,VBA与Visual Basic的差异,Visual Basic以界面为中心的开发方式 重点在使用者如何进行操作 VBA以文件为中心的开发方式 重点在使用者最后看到什么,Excel对象结构,使用对象的程序语法,Workbooks(“Mybook.xl
7、s”).Worksheets(“Sheet1”).Range(“B5”).Value = “ABCDE”,属性,Workbooks.Close,集合对象,Office 对象模型,顶级对象：Application 层次式对象模型结构 查看结构模型图（帮助） 对象浏览器 自动列出成员功能 对象属性 对象方法 事件：文档级和应用级,VBA的重要语法,Set Object1 = Object Object.Property = Value Object.Method (Setting),VBA程序开发的步骤,设定引用的参数项目 定义对象变量 设置对象变量 完成对象的接口 对象属性 操作方法 事件程序,
8、VBA控制结构,分支结构,If 条件1 Then 语句块1 ElseIf 条件2 Then 语句块2 Else 语句块n+1 End If,Select Case 测试变量 Case 表达式1 语句块1 Case 表达式2 语句块2 Case Else 语句块n+1 End Select,VBA控制结构,循环结构,For 变量=初值 To 终值 Step 步长 语句块 Next 变量,For Each 对象变量 In 对象集 语句块 Next 对象变量,Do While 条件表达式 语句块 Loop,示例：在Excel中打印工资表,Sub InsertTitle() Selection.Cur
9、rentRegion.Select Cells(Selection.Row, Selection.Column).Select Range(Selection, Selection.End(xlToRight).Select Selection.Copy ActiveCell.Offset(2, 0).Range(“A1“).Select Do Until ActiveCell = “ Selection.Insert Shift:=xlDown Range(Selection, Selection.End(xlToRight).Select Selection.Copy ActiveCell
10、.Offset(2, 0).Range(“A1“).Select Loop Application.CutCopyMode = False End Sub,示例：对话框与外部应用程序,Private Sub donkey_Click() MsgBox (“ I am a donkey “) End Sub,Private Sub Wabbit_Click() Call PlaySound(ActiveDocument.Path + “wabbit.wav“) End Sub,Private Sub turtle_Click() Const Answer = “TURTLE“ Dim Tries
11、 As Integer Dim Message, Title, Default0, 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
12、 = InputBox(Message, Title, Default0) MyValue = UCase(MyValue) Convert to uppercase ,示例：保存并关闭系统,Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Dim abc abc = MsgBox(“您确认要关闭本系统吗？“, vbQuestion + vbYesNo + vbDefaultButton2, “确认“) If abc = vbYes Then Worksheets(“股票收益计算器“).Unprot
13、ect Password:=“1“ Worksheets(“股票收益计算器“).Range(“G13“).FormulaR1C1 = “0“ Worksheets(“股票收益计算器“).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=“1“ Sheets(“说明“).Select ActiveWorkbook.Save Else Cancel = True End If End Sub,程序编写的特殊考虑,如何启动特定版本的应用程序 CreateObject 如何使用当前的应用程序 GetObje
14、ct 如何结束应用程序 Application.Quit 如何清除内存的占用 Set appObject = Nothing,挑战第三关,优化与部署,创建用户窗体,提示使用者选取、输入或浏览数据 使用控件 文本框输入文字 列表框选取内容 选择框选取一个或多个功能,用户窗体窗口的操作,建立用户窗体 配置ActiveX控件 设置窗口属性 配置控件属性及其事件 Load与UnLoad语句 加载到内存或从内存中释放 用Show和Hide方法控制对象的显示和隐藏,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥Office XP的强大功能，成为Office应用的真正高手,使用Excel创建
15、进销存管理系统 在Word中完成员工信息的录入和查询 妙用窗体制作小游戏,封装应用程序,菜单栏的替换 窗口环境的替换 工具栏的替换 完成应用程序封装,保护应用程序开发,加入程序修改口令 使用数字签名 Office XP技术允许通过使用“数字证书”对文件或宏进行数字签名。你可以把数字证书看作是身份证的电子版本。 使用“数字签名”以后有什么效果呢？如果整个文件都被签名，任何人（包括你自己）将它修改的话，文件的签名都会被破坏。也就是说，签名将保证自签名以后后该文件没有被修改。,打包向导,打包操作可创建一个程序包，将应用程序安装到用户计算机。 程序包包含一个或多个.cab文件以及运行应用程序所必须安装
16、的其他所有文件 打包步骤 确定需要分发的文件 如果需要，创建应用程序组件的依赖文件 确定要将文件安装到用户计算机的什么位置 创建程序包,DEMO,VBA帮助你完成从必然王国到自由王国的飞跃,充分发挥Office XP的强大功能，成为Office应用的真正高手,挑战第四关,善用Office XP开发版,Office XP产品系列,Microsoft Office 开发平台的特点,降低开发和部署的总成本 可利用 Office 部署工具 利用流行和熟悉的技术 开发量极小 减少使用者的培训负担和支持费用 培训不再必不可少 提高了对需求的及时反应能力和解决方案的灵活性 起点高，开发周期短,MS Office 的开发原则,MS Office 是一个功能齐全的应用系统 MS Office 是一个灵活方便的开发平台 Office 开发的原则 能不开发就不开发 很多功能 Of
