14第14章 VBA编程与模块

《14第14章 VBA编程与模块》由会员分享，可在线阅读，更多相关《14第14章 VBA编程与模块（98页珍藏版）》请在金锄头文库上搜索。

1、计算中心 第14章VBA编程与模块 计算机语言的作用 00100001 计算机 你知道12加21是多少 C C VB VC Java C Net 机器语言 自然语言 编程语言 本章将要了解什么问题 VBA是什么 为什么要使用VBA VBA代码可以自动生成吗 如果我要使用VBA编程需要那些知识 编程基础 程序控制 面向对象的概念 模块 VBA编程与模块知识结构图 本章内容 4 3 2 1 5 VBA简介 自动生成VBA代码 VBA程序设计基础 程序基本结构 编程和事件 14 1VBA简介 什么是VBA VBA VisualBasicforApplications 是广泛流行的可视化应用程序开发语

2、言VB VisualBasic 的子集 不包含VB所有功能 VBA语法简单但功能强大 支持基于面向对象 OOP 的程序设计 非常适合初学者使用 作为一种嵌入式语言 VBA编程环境和VBA程序都必须依赖Office应用程序 如Access Word Excel等 Office自动化服务的 将现有的宏转换为VBA代码 见第13章宏 用命令按钮向导创建VBA代码当ACCESS用向导创建一个命令按钮时 它创建一个事件过程 VBA代码 并将其附加到按钮上 可以打开 事件过程 查看其如何工作 然后按自己需要对其进行修改 查看代码方法 打开需要查看按钮所属窗体的 设计视图 打开要查看按钮的属性窗口 选择 事

3、件 选项卡 单击 单击 事件属性的生成器按钮 显示命令按钮的带有过程的模块窗口 如下图 14 2自动生成VBA代码 14 2自动生成VBA代码 14 3VBA程序设计基础 VBA编程环境了解模块模块是由VBA语言编写的程序的集合 编写的程序代码被存放于模块的过程中 两类基本模块可存储在数据库中窗体 报表模块 窗体 报表后台的代码 标准模块 保存在模块对象中 独立于窗体 报表 14 3VBA程序设计基础 模块窗口 编写代码 14 3VBA程序设计基础 如何进入模块窗口窗体 报表属性窗口事件生成器按钮 在窗体或报表的 设计视图 中单击工具栏上代码按钮 在数据库窗口中 单击菜单 工具 宏 Visua

4、lBasic编辑器 命令 选择数据库模块对象 单击数据库窗口中 新建 或者双击其中一个已经存在的模块对象 在窗体或报表 设计视图 单击工具栏生成器按钮 选择代码生成器 14 3VBA程序设计基础 数据类型为什么要有各种不同的数据类型设计表结构时是如何决定各字段数据类型的 14 3VBA程序设计基础 VBA提供了较为完备的数据类型 Access数据表中字段使用的数据类型 OLE对象和备注字段数据类型除外 在VBA中都有对应的类型 包括布尔型 Boolean 日期型 Date 字符串 String 货币型 Currency 字节型 Byte 整数型 Integer 长整型 Long 单精度型 Si

5、ngle 双精度型 Double 对象 Object 变体型 Variant 和用户自定义型 Type 14 3VBA程序设计基础 14 3VBA程序设计基础 常量直接常量即常数 其类型和值由书写形式确定例如 1 23 12ABC True 2001 3 10 符号常量Const常量 AS类型 常量表达式例如 ConstPI 3 14159阅读程序 DimsngCircleAsSingleConstPI 3 14159sngCircle 2 PI 25系统常量是VisualBASIC系统预先定义好的 用户可直接引用 例如 vbRedvbOKvbYes 14 3VBA程序设计基础 变量 14 3

6、VBA程序设计基础 变量内存存储单元一个符号名通过引用符号名来访问其所对应的存储单元使用变量有三个步骤 声明变量 告诉程序要使用的变量的名称和数据类型 变量赋值 赋予变量一个要保存的值 使用变量 检索变量中保存的值 并在程序中使用它 14 3VBA程序设计基础 声明变量命名变量必须以字母字符开头 不能包含内嵌的空格 不能使用VBA关键字 必须有唯一的名称 不多于255个字符 工程上命名一般要遵守一定的规范 如 匈牙利表示法 即 前缀 变量含义 变量的含义为一个或多个英文单词 变量前缀为三个小写字母示意其类型 例如 intCount strName curSalary 14 3VBA程序设计基础

7、 声明变量语句Dim语句的格式Dim变量名 AS类型 变量名 AS类型 例如 DimstrNameasstring在程序中 通过Dim语句声明了变量名和数据类型 称为显示声明 如果在Dim语句中只定义了变量名 未定义数据类型 或没有变量声明语句而通过赋值语句直接使用 称为隐式声明 通过设置 要求变量声明 所有变量必须进行显示说明 称为强制声明 变量作用域 变量在程序中的作用范围 后续讲解 14 3VBA程序设计基础 变量赋值使用 说明 格式中的等号称为赋值号 与数学中等号意义不同 如表达式a a 1在数学上不成立 在赋值语句中经常使用 赋值号左边只能是变量名 不能是常量或表达式 赋值语句有计算

8、和赋值双重功能 将赋值号右边的计算结构赋给左边的变量 赋值号两边要类型匹配 例如 strName Tom intCount 300 4 14 3VBA程序设计基础 使用变量阅读一段简单的程序 DimintAAsInteger intBAsIntegerDimintSumAsIntegerintA 3200intB 760intSum intA intB 14 3VBA程序设计基础 常用系统函数数学函数 14 3VBA程序设计基础 函数举例 通过int 和rnd 函数可产生某个范围的随机整数公式 Int 上限 下限 1 Rnd 下限 如 int 10 rnd 产生0 9之间的随机整数int 10

9、1 rnd 100 产生100 200之间的随机整数 14 3VBA程序设计基础 字符函数 14 3VBA程序设计基础 转换函数 14 3VBA程序设计基础 日期函数 14 3VBA程序设计基础 测试函数 14 3VBA程序设计基础 颜色函数 1 QBColor函数QBColor N 功能 通过N 颜色代码 的值产生一种颜色 2 RGB函数RGB N1 N2 N3 功能 通过N1 N2 N3 红 绿 蓝 三种基本颜色代码产生一种颜色 其中N1 N2 N3的取值范围为0 255之间的整数 例如 RGB 255 0 0 产生的颜色是 红 色 14 3VBA程序设计基础 输入 输出函数输出函数Msg

10、box格式 msgbox 显示信息 按钮数目 图标类型 标题栏字符串 功能 在对话框中显示消息 等待用户单击按钮 返回一个整数 该值代表用户单击了哪个按钮 例如 intSelect MsgBox 选择正确吗 vbQuestion vbOKCancel vbDefaultButtion1 项目选择 提示 帮助了解更详细 14 3VBA程序设计基础 输入函数inputBox格式 inputBox 提示信息 标题栏字符串 默认值 功能 提示用户输入一个字符串或数值 说明 1 提示信息 是必选项 是一个字符串 显示在输入框中 2 标题栏字符串 是可选项 省略此项 标题栏将显示应用程序名 3 默认值是可

11、选项 是字串或数字 省略此项 系统会自动匹配数据类型 4 函数返回值是在输入框中输入的数字或字符串 14 3VBA程序设计基础 例如 当执行下列命令后 将显示图所示的输入窗口ame InputBox 输入查询的学生姓名 输入命令演示 demo hlp 10 标题信息 提示信息 默认值 14 3VBA程序设计基础 表达式算术运算符及表达式 14 3VBA程序设计基础 字符运算符及表达式 14 3VBA程序设计基础 关系运算符及表达式 14 3VBA程序设计基础 逻辑运算符及表达式 逻辑运算规则 14 3VBA程序设计基础 编码规则命名规则 见 命名变量 程序注释注释语句是非执行语句 用来提高程序

12、的可读性 不被解释和编译 注释语句显示为绿色 格式1 rem注释内容说明 用rem引导的注释语句 如果放在其他语句后面 之间用冒号分隔 格式2 注释内容说明 用单引号引导的注释语句 放在其他语句后面时无需使用冒号分隔 14 3VBA程序设计基础 注释语句举例 14 3VBA程序设计基础 立即窗口是检验函数 程序如何运行的非常好的工具启动立即窗口方法在模块窗口 选择菜单 视图 立即窗口 或按Ctrl G 语句的构成由保留字及语句体构成 语句体又是由命令短语和表达式构成的 保留字 系统规定的 专用 符号 指示计算机 做什么 必须严格按系统要求来写 语句体 表达式由用户定义 用户要按语法规则来写 例

13、如 DimintA1AsInteger程序书写规则通常每条语句占一行 一行最多允许255个字符 一行书写多条语句 语句之间用冒号 隔开 语句一行写不完 可用连接符空格和下划线 14 3VBA程序设计基础 14 4程序基本结构 什么是流程控制我们一天的生活早上起床刷牙洗脸吃早饭上午上四节课午餐午休下午上四节课 程序也和日常生活一样 是按照顺序执行的 这就是流程 14 4程序基本结构 实际的流程并非完全是按顺序的 它可能会因为一些原因发生变化 日常生活的例子早上起床刷牙洗脸 没有牙膏 停水 吃早饭上午上课 老师生病 程序的执行 也会因情况不同 执行过程产生一些变化 14 4程序基本结构 程序执行的

14、顺序因为情况的变化而选择不同的执行过程 称之为流程控制 flowcontrol 流程控制是计算机程序的灵魂 我们将会学到 条件判断判断条件的真假 然后程序根据真假选择不同过程执行If语句和SelectCase语句循环控制程序依指定的条件做判断 若条件成立则进入循环执行循环內的动作 每执行完一次循环內动作 便再回头做一次条件判段 直到条件不成立後才结束循环 For语句和While语句 14 4程序基本结构 顺序结构根据程序中语句的书写顺序依次执行的语句序列 流程图 14 4程序基本结构 分支结构分支结构最常用到的就是if语句 它就如同日常生活中常使用的如果 就 是一样的意思 比方說如果明天没下雨

15、 就去爬山以图形来表示就是 14 4程序基本结构 IF语句单路分支 格式一 IfThenEndIf格式二 IfThen 14 4程序基本结构 例如 输出两个整数中的最大数 DimintAAsInteger intBAsIntegerintA 12 intB 8IfintA intBThenintA intBMsgBox 最大值为 intA vbInformation 消息框 14 4程序基本结构 双路分支格式一 IfThenElseEndIf格式二 IfThenElse 14 4程序基本结构 你有钱吗 大国的提问 DimintReturenAsIntegerintReturen MsgBox

16、你有钱吗 vbQuestion vbYesNo 提问 IfintReturen vbYesThenmsgbox 借我一些吧 Elsemsgbox 我也没有钱哪 EndIf 14 4程序基本结构 多分支 期末数据库考试90分以上出国游80分买笔记本电脑70分逛街不及格吃一个月馒头多分支语句和上面的例子类似使用SELECTCASE语句 14 4程序基本结构 SelectCase语句 根据多个表达式列表的值 选择多个操作中的一个对应执行格式 SelectCaseCaseCase Case CaseElse EndSelect 14 4程序基本结构 编程完成上述任务 DimintScoreAsIntegerintScore Val InputBox 请输入期末VB课程考试成绩 提示输入 SelectCaseintScoreCase90To100MsgBox 恭喜 你可以出国旅游了 祝旅途愉快 Case80To89MsgBox 恭喜 买一台心爱的笔记本电脑 再接再厉 Case70To79MsgBox 还需努力 不要放弃学习 逛逛街放松一下心情吧 Case0To59MsgBox 埋头苦学 惩罚自己