网站大量收购闲置独家精品文档,联系QQ:2885784924

62-VBA应用开发与实例.ppt

  1. 1、本文档共42页,可阅读全部内容。
  2. 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VBA应用开发与实例 李 辉 微软课程培训讲师 活动行程表 VBA编程环境 Office对象模型 VBA编程技巧与案例 Office XP开发版简介 什么是宏 宏是一段定义好的操作,它可以是一段程序代码,也可以是一连串的指令集合。 宏的作用可以使频繁执行的动作自动化 节省时间,提高工作效率,又能减少失误 宏的结构 Visual Basic编辑器 用来编辑宏程序或制作更高阶的整合性应用程序 附属于Office之下,使用较少的系统资源,达到编辑应用程序的目的。 什么是工程 工程就是模块的集合,包括: 用户窗体 文件,例如Excel中的工作表以及图表工作表 模块 类模块 ActiveX文件 引用的其他工程 Visual Basic for Application 为何要使用 VBA 宏缺少伸缩的弹性 记录了许多不需要的步骤 记录了许多不需要的资料 无法使用较深入的功能 无法完成重复性的工作 无法完成需要条件判断的工作 认识VBA VBA是一个通用程序语言,可共享Microsoft各种相关的重要软件。 以VBA编写的程序允许用户将其复制到Visual Basic中加以调试,用Visual Basic宏来控制Excel。 当记录宏不能满足用户需要或用记录宏无法记录命令时,可以用VBA语言创造宏来控制工作簿的各项操作。 创建用户对话框、工具按钮或自定义命令,把Excel提供的多个工具按钮连接起来,作为一个工具按钮。 利用重复语句控制循环宏内操作,利用不同参数执行某个相关功能模块,使宏指令完成一系列复杂操作。来连接多个宏。 VBA提供了许多内部函数,还允许用户自定义函数来简化对工作簿、工作表、图表等复杂操作。 VBA程序的基本架构 对象 面向对象的开发方式 VBA是以操作Office对象为目的的程序语言 属性 对象所属的特性或特征 方法 控制对象的内建动作或功能,以便可以让程序顺利打开 事件 发生于对象上的事情 VBA与Visual Basic的差异 Visual Basic以界面为中心的开发方式 重点在使用者如何进行操作 VBA以文件为中心的开发方式 重点在使用者最后看到什么 使用对象的程序语法 Workbooks(“Mybook.xls”).Worksheets(“Sheet1”).Range(“B5”).Value = “ABCDE” Office 对象模型 顶级对象:Application 层次式对象模型结构 查看结构模型图(帮助) 对象浏览器 自动列出成员功能 对象属性 对象方法 事件:文档级和应用级 VBA的重要语法 Set Object1 = Object Object.Property = Value Object.Method (Setting) VBA程序开发的步骤 设定引用的参数项目 定义对象变量 设置对象变量 完成对象的接口 对象属性 操作方法 事件程序 VBA控制结构 分支结构 VBA控制结构 循环结构 示例:在Excel中打印工资表 Sub InsertTitle() Selection.CurrentRegion.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.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 Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Dim abc abc = MsgBox(您确认要关闭本系统吗?, vbQuestion + vbYesNo + vbDefaultButton2, 确认)

文档评论(0)

小玉儿 + 关注
实名认证
内容提供者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档