VBA开发与实例.ppt

  1. 1、本文档共52页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
VBA应用开发与实例 李 辉 微软课程培训讲师 活动行程表 VBA编程环境 Office对象模型 VBA编程技巧与案例 Office XP开发版简介 MS Office开发平台的方向 Office高级用户 模板开发,加载宏或构建小型项目 企业信息部门人员 可用Office对象进行项目设计开发 软件开发厂商 构建供Office使用的加载宏或向导 MS Office开发平台的好处 对企业和公司 降低培训成本,资源的回收利用 对程序开发人员 缩短研发时间,提高系统稳定性 对使用者的好处 减少摸索新系统的挫折 Office平台开发的关键 Office平台的通用语言——宏(VBA) 内置于Office应用程序,免费 完整的工作环境 宏录制器 对象浏览窗口 挑战第一关 什么是宏 宏是一段定义好的操作,它可以是一段程序代码,也可以是一连串的指令集合。 宏的作用可以使频繁执行的动作自动化 节省时间,提高工作效率,又能减少失误 挑战第二关 宏的结构 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

文档评论(0)

junjun37473 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档