6.3、VBA程序设计基础.ppt

《6.3、VBA程序设计基础.ppt》由会员分享，可在线阅读，更多相关《6.3、VBA程序设计基础.ppt（51页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。

1、6.3 VBA6.3 VBA程序设计基础程序设计基础 6.3.1 6.3.1 数据类型数据类型 6.3.2 6.3.2 常量、变量与数组常量、变量与数组 6.3.3 6.3.3 运算符与表达式运算符与表达式 返回 VBA数据类型继承了传统的Basic语言，如Microsoft QuickBasic。在VBA应用程序中，也需要对变量的数据类型进行说明。VBA提供了较为完备的数据类型，Access数据表中的字段使用的数据类型（OLE对象和备注字段数据类型除外）在VBA中都有对应的类型。VBA数据类型、类型声明符、数据类型和取值范围如表6-5。其中，字符串类型又分为变长字符串（String）和定长字

2、符串（String*length）。除了上述系统提供的基本数据类型外，VBA还支持用户自定义数据类型。自定义数据类型实质上是由基本数据类型构造而成的一种数据类型，我们可以根据需要来定义一个或多个自定义数据类型。6.3.1 6.3.1 数据类型数据类型 表表6-5 VBA6-5 VBA基本数据类型基本数据类型 6.3.2 6.3.2 常量、变量与数组常量、变量与数组 1常量常量2变量变量3 3VBAVBA数组数组常量是指在程序运行的过程中，其值不能被改变的量。常量的使用可以增加代码的可读性，并且使代码更加容易维护。此 外，使 用 固 有 常 量 Microsoft Access、Microsof

3、t for Access Applications等支持的常量，可以保证既是常量所代表的基础值在Microsoft Access版本升级换代后也能使代码正常运行。1常量常量除了直接常量（即通常的数值或字符串值常量，如：123，Lee等，也称为字面常量）外，Microsoft Access还支持三种类型的常量：符号常量：用Const语句创建，并且在模块中使用的常量；固有常量：是Microsoft Access或引用库的一部分；系统定义常量：True、False和Null。（1）符号常量）符号常量 通常，符号常量用来代表在代码中反复使用的相同的值，或者代表一些具有特定意义的数字或字符串。符号常量的

4、使用可以增加代码的可读性与可维护性。符号常量使用Const语句来创建。创建符号常量时需给出常量值，在程序中运行过程中对符号常量只能作读取操作，而不允许修改或为其重新赋值，也不允许创建与固有常量同名的符号常量。下下面面的的例例子子给给出出了了使使用用Const语语句句来来声声明明数数值值和和字字符串常量的几种方法。符串常量的几种方法。Const conPI=3.14159265 可以使用可以使用conPI来代替常用的来代替常用的值。值。Private Const conPI2=PI*2 conPI2被被声声明明为为一一个个私私有有常常量量，同同时时在在计计算算它它的的值值的的表表达达式式中中使使

5、用用不不在在它它前前面面定定义义的的符符号号常常量量。私私有有常常量量只只能能在在定定义义它它的的模模块块(子子程程序序或或函函数数)中中使用。使用。Public Const conVersion=Version Access conVersion被被声声明明为为一一个个公公有有字字符符串串常常量量。公公有有常常量量可可以以在在整整个个应应用用程程序序内内的的所所有有子子程程序序(包包括括事件过程事件过程)和函数中使用。和函数中使用。（2）固有常量）固有常量 除除 了了 用用 Const语语 句句 声声 明明 常常 量量 之之 外外，Microsoft Access还还声声明明了了许许多多固固

6、有有常常量量，并并且且可可以以使使用用VBA常常量量和和ActiveX Data Objects(ADO)常常量量。还还 可可 以以 在在 其其 它它 引引 用用 对对 象象 库库 中中 使使 用用 常常 量量。Microsoft Access旧旧版版本本创创建建的的数数据据库库中中的的固固有有常常量量不不会会自自动动转转换换为为新新的的常常量量格格式式，但但旧旧的的常常量仍然可以使用而且不会产生错误。量仍然可以使用而且不会产生错误。所有的固有常量都可在宏或所有的固有常量都可在宏或VBA代码中使用。代码中使用。任何时候这些常量都是可用的。在函数、方法任何时候这些常量都是可用的。在函数、方法和属

7、性的和属性的“帮助帮助”主题中对用于其中的具体内置主题中对用于其中的具体内置常量都有描述。常量都有描述。固固有有常常量量有有两两个个字字母母前前缀缀指指明明了了定定义义该该常常量量的的对对象象库库。来来自自Microsoft Access库库的的常常量量以以“ac”开开头头，来来自自ADO库库的的常常量量以以“ad”开开头头，而而来来自自Visual Basic库的常量则以库的常量则以“vb”开头，例如：开头，例如：acForm、adAddNew、vbCurrency 因因为为固固有有常常量量所所代代表表的的值值在在Microsoft Access的的以以后后版版本本中中可可能能改改变变，所所

8、以以应应该该尽尽可可能能使使用用常常量量而而不不用用常常量量的的实实际际值值。可可以以通通过过在在“对对象象浏浏览览器器”中中选选择择常常量量或或在在“立立即即”窗窗口口中中输输入入“?固固有有常常量量名名”来显示常量的实际值。来显示常量的实际值。可以在任何允许使用符号常量或用户定义常量的可以在任何允许使用符号常量或用户定义常量的地方（包括表达式中）使用固有常量。如果需地方（包括表达式中）使用固有常量。如果需要，用户还可以用要，用户还可以用“对象浏览器对象浏览器”来查看所有可来查看所有可用对象库中的固有常量列表。如图用对象库中的固有常量列表。如图6-15所示。所示。图图6-15 固有常量查找固

9、有常量查找 3）系统定义常量）系统定义常量 系统定义的常量有三个：True、False和Null。系统定义常量可以在计算机上的所有应用程序中使用。2变量变量 变量实际上是一个符号地址，它代表了命名的存储位置，包含在程序执行阶段修改的数据。每个变量都有变量名，在其作用域范围内可唯一识别。使用前可以指定数据类型（即采用显式声明），也可以不指定（即采用隐式声明）。（1）变量的声明）变量的声明变量名必须以字母字符开头，在同一范围内必须是唯一的，不能超过255个字符，而且中间不能包含句点或类型声明字符。虽然，在代码中允许使用未经声明的变量，但一个良好的编程习惯应该是在程序开始几行声明将用于本程序的所有变

10、量。这样做的目的是为了避免数据输入的错误，提高应用程序的可维护性。对变量进行声明可以使用类型说明符号、Dim语句和DefType语句。使用类型说明符号声明变量类型使用类型说明符号声明变量类型 在在传传统统的的Basic语语言言中中，允允许许使使用用类类型型声声明明符符号号来来声声明明常常量量和和变变量量的的数数据据类类型型，如如：varXyz%是是一一个个整整型型变变量量；123%则则是是一一个个整整型型常常数数。类类型型声声明明符号在使用时始终放在变量或常数的末尾。符号在使用时始终放在变量或常数的末尾。VBA中的类型说明符号有中的类型说明符号有%(Integer)、&(Long)、!(Sin

11、gle)、#(Double)、$(String)和和(Currency)。类型说明符号使用时是作为变量名的一部分，放类型说明符号使用时是作为变量名的一部分，放在变量名的最后一个字符。在变量名的最后一个字符。例例如如，intX%是是一一个个整整型型变变量量；douY#是是一一个个双双精精度度变变量量；strZ$是是个个字字符符串串变变量量。在在使使用用时时不不能能将将类型说明符号省略。如：类型说明符号省略。如：intX%=1243douY#=45665.456 strZ$=Access 使用使用Dim语句声明变量语句声明变量Dim语句使用格式为：语句使用格式为：Dim 变量名变量名As 数据类型

12、数据类型例如：例如：Dim strX As String声明了一个字符串类型变量声明了一个字符串类型变量strX。可可以以使使用用Dim语语句句在在一一行行声声明明多多个个变变量量，例如：例如：Dim intX,douY,strZ As Strring 表示声明了三个变量表示声明了三个变量intX，douY和和strZ，其中其中只有最后一个只有最后一个strZ声明为字符串类型变量，声明为字符串类型变量，intX和和douY都没有声明其数据类型，即遵循类型说都没有声明其数据类型，即遵循类型说明符号规则认定为变体（明符号规则认定为变体（Variant）类型。在一类型。在一行中声明多个变量时，每一个

13、变量的数据类型行中声明多个变量时，每一个变量的数据类型应使用应使用as声明。正确的声明方法如下：声明。正确的声明方法如下：DimintX As Integer,douY As Double,strZ As String最有效、值得提倡的做法是一行只声明一个变量。最有效、值得提倡的做法是一行只声明一个变量。使用使用Dim声明了一个变量后，在代码中使用变量声明了一个变量后，在代码中使用变量名，其末尾带与不带相应的类型说明符号都代名，其末尾带与不带相应的类型说明符号都代表同一个变量。表同一个变量。DefType语句语句 DefType语语句句只只能能用用于于模模块块级级，即即模模块块的的通通用用声声

14、明明部部分分，用用来来为为变变量量和和传传送送给给过过程程的的参参数数设设置置缺缺省省数数据据类类型型，以以及及为为其其名名称称以以指指定定的的字字符符开开头头的的Function和和Property Get过过程程，设设置置返返回回值值类型。类型。DefType语句使用格式如下：语句使用格式如下：DefType 字母字母，字母范围，字母范围例如：例如：DefInt a,b,e-h 说说明明了了在在模模块块中中使使用用的的以以字字母母a,b,e到到h开开头头的的变变量（不区分大小写）的默认数据类型为整型。量（不区分大小写）的默认数据类型为整型。表表6-6列出了列出了VBA中所有可能的中所有可能

15、的DefType语句和语句和对应的数据类型。对应的数据类型。表表6-6 6-6 DefTypeDefType语句和相应的数据类型语句和相应的数据类型 使用变体类型使用变体类型声明变量数据类型可以使用上述三种方法，VBA在判断一个变量的数据类型时，按以下先后顺序进行：I是否使用Dim语句；II是否使用数据类型说明符；III是否使用DefType语句。没有上述三种方法声明数据类型的变量默认为变体类型（Variant）。用户自定义类型的声明与使用用户自定义类型的声明与使用用用户户自自定定义义类类型型可可以以是是任任何何用用Type语语句句定定义义的的数数据据类类型型。用用户户自自定定义义类类型型可可

16、包包含含一一个个或或多多个个基基本本数数据据类类型型的的数数据据元元素素、数数组组或或一一个个先先前前定定义义的用户自定义类型。例如：的用户自定义类型。例如：Type MyType MyName As String*l0 定定义义字字符符串串变变量量存存储储一一个名字。个名字。MyBirthDate As Date 定定义义日日期期变变量量存存储储一一个个生日。生日。MySex As Integer 定义整型变量存储性别定义整型变量存储性别End Type （0 为女，为女，1 为男）为男）上上例例定定义义了了一一个个名名称称为为“MyType”的的数数据据类类型型。MyType类类 型型 的

17、的 数数 据据 具具 有有 三三 个个 域域 MyName、MyBirthDate和和MySex。在在自自定定义义数数据据类类型型时时应应注注意意：Type语语句句只只能能在在模模块块级级使使用用。可可以以在在Type前前面面加加上上Public或或Private来来声声明明自自定定义义数数据据类类型型的的作作用用域域，这这与与其其它它VBA基基本本数数据据类类型型相相同同。声声明明自自定定义义数数据据类类型型的的域域时时，如如果果使使用用字字符符串串类类型型，最最好好定定长长字字符符串串，如如MyName As String*l0。使用使用Type语句声明了一个用户自定义类型后，就语句声明了

18、一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变可以在该声明范围内的任何位置声明该类型的变量。可以使用量。可以使用Dim、private、Public、ReDim或或Static来声明用户自定义类型的变量。来声明用户自定义类型的变量。下面的例程说明了自定义数据类型的使用。Option Compare Database自定义一个公共数据类型Type MyType MyName As String*l0 定义字符串变量存储一个名字。MyBirthDate As Date 定义日期变量存储一个生日。MySex As Integer 定义整型变量存储性别（0 为女，1 为男）End

19、Type Sub useType()Dim UdtXyz as MyTypeUdtXyz.MyName=XyzUdtXyz.MyBirthDate=75/12/17UdtXyz.MySex=1Debug.Print UdtXyz.MyName,UdtXyz.MyBirthDate,UdtXyz.MySexEndSub 例程先在通用声明中自定义了MyType数据类型，然后在useType()过程中使用它来声明Xyz为一个MyType数据类型变量。（2）变量的作用域和生命周期）变量的作用域和生命周期 在在前前面面己己经经学学习习了了变变量量的的三三种种声声明明方方法法，对对于于变变量量的的作作用用

20、域域，还还须须作作明明确确的的声声明明才才能确定。能确定。在在声声明明变变最最作作用用域域时时可可以以将将变变量量声声明明为为Locate（本本 地地）、Private（私私 有有，Module模块级）或模块级）或Public（公共）。公共）。本地变量：仅在声明变量的过程中有效。本地变量：仅在声明变量的过程中有效。在过程和函数内部所声明的变量，不管是在过程和函数内部所声明的变量，不管是否使用否使用Dim语句，都是本地变量。本地变语句，都是本地变量。本地变量具有在本地使用的最高优先级，即当存量具有在本地使用的最高优先级，即当存在与本地变量同名的模块级的私有或公共在与本地变量同名的模块级的私有或公

21、共变量时，模块级的变量则被屏蔽；变量时，模块级的变量则被屏蔽；私私有有变变量量：在在所所声声明明的的模模块块中中的的所所有有函函数数和和过过程程都都有有效效。私私有有变变量量必必须须在在模模块块的的通通用用声声明明部部分分使使用用“Private变变量量名名As数数据据类型类型”进行声明；进行声明；公公共共变变量量：在在所所有有模模块块的的所所有有过过程程和和函函数数都都可可以以使使用用。在在模模块块通通用用声声明明中中使使用用“Public变量名变量名As数据类型数据类型”声明公共变量。声明公共变量。图图9-2对私有变量和公共变量的声明进行对私有变量和公共变量的声明进行了示例，并说明了作用范

22、围。了示例，并说明了作用范围。图6-16 变量作用域 模块对象 模块APublic intA1 as integerPrivate intA2 as integerSub A1()本地变量私有变量 intA2公共变量intA1,intB1End SubSub A2()本地变量私有变量 intA2公共变量intA1,intB1End Sub 模块BPublic intB1 as integerPrivate intB2 as integerSub B1()本地变量私有变量 intB2公共变量intB1,intA1End SubSub B2()本地变量私有变量 intB2公共变量intB1,int

23、A1End Sub 变变量量的的生生命命周周期期与与作作用用域域是是两两个个不不同同的的概概念念，它它是是指指变变量量从从首首次次出出现现（执执行行变变量量声声明明，为为其其分分配存储空间）到消失的代码执行时间。配存储空间）到消失的代码执行时间。本本地地变变量量的的生生命命周周期期是是过过程程或或函函数数调调用用被被开开始始调调用到运行结束的时间（静态变量除外）。用到运行结束的时间（静态变量除外）。公公共共变变量量的的生生命命周周期期是是从从声声明明到到整整个个Access应应用用程序结束。程序结束。对于本地变量的生命周期的一个例外是静态变对于本地变量的生命周期的一个例外是静态变量。静态变量的

24、声明使用量。静态变量的声明使用“Static变量名变量名As数据数据类型类型”。静态变量在。静态变量在Access程序执行期间一直存程序执行期间一直存在，它们的作用范围是声明它的子程序或函数。在，它们的作用范围是声明它的子程序或函数。静态变量可以用来计算事件发生的次数或者是静态变量可以用来计算事件发生的次数或者是函数与过程被调用的次数。函数与过程被调用的次数。3VBA数组数组 数组是由一组具有相同数据类型的变量（称为数组元素）构成的集合。（1）数组的声明）数组的声明在VBA中不允许隐式说明数组，用户可用Dim语句来声明数组，声明方式为：Dim 数组名(数组下标上界)As 数据类型如：Dim i

25、ntArray(l0)As Integer 这条语句声明了一个有10个元素的数组，每个数组元素为一个整型变量。这是只指定数组元素下标上界来定义数组。在使用数组时，可以使用Option Base来指定数组的默认下标下界是0或l。默认情况下，数组下标下界为0。所以，用户只需使用它来指定默认下标下界为l。Option Base能用在模块的通用声明部分。VBA允许在指定数组下标范围时使用To，如下例所示：Dim intArray(-3 to 3)As Integer该语句定义一个有7个元素的数组，数组元素下标从-3到3。如果要定义多维数组，声明方式为：Dim 数组名(数组第1维下标上界，数组第2维下标

26、上界)As 数据类型如：Dim intArray(2,3)As Integer 语句定义了一个二维数组，第一维有3个元素，第二维有4个元素。在VBA中，还允许用户定义动态数组。动态数组的定义方法是，先使用Dim来声明数组，但不指定数组元素的个数。而在以后使用时再用ReDim来指定数组元素个数，称为数组重定义。在对数组重定义时，可以使用ReDim后加保留字Preserve来保留以前的值否则使用ReDim后，数组元素的值会被重新初始化为默认值，下面的例子说明了动态数组的定义方法：Dim intArray()As Integer 声明部分ReDim Preserve intAma(l0)在过程中重定

27、义，保留以前的值ReDim intArray(l0)在过程中重新初始化 同样，用户可以使用Public、Private或Static来声明公共数组、私有数组或静态数组。（2）数组的使用）数组的使用数数组组声声明明后后，数数组组中中的的每每个个元元素素都都可可以以当当作作单单个个的的变变量量来来使使用用，其其使使用用方方法法同同相相同同类类型型的的普普通通变量。其元素引用格式为：变量。其元素引用格式为：数组名数组名(下标值表下标值表)其中：如果该数组为一维数组，则下标值表为其中：如果该数组为一维数组，则下标值表为一个范围为一个范围为数组下标下界，数组下标上界数组下标下界，数组下标上界的的整数；如

28、果该数组为多维数组，则下标值表为整数；如果该数组为多维数组，则下标值表为一个由多个（不大于数组维数）用逗号分开的一个由多个（不大于数组维数）用逗号分开的整数序列，每个整数（范围为整数序列，每个整数（范围为数组该维下标下数组该维下标下界，数组该维下标上界界，数组该维下标上界）表示对应的下标值。）表示对应的下标值。例如可以如下引用前面定义的数组：例如可以如下引用前面定义的数组：intAma(2)引用一数组引用一数组intAma的第的第3个元素。个元素。intArray(0,0)引引用用二二数数组组intArray的的第第1行行第第1个个元素。元素。例例如如，若若要要存存储储一一年年中中每每天天的的

29、支支出出，可可以以声声明明一一个个具具有有365个个元元素素的的数数组组变变量量，而而不不是是365个个变变量量。数数组组中中的的每每一一个个元元素素都都包包含含一一个个值值。下下列列的的语语句句声声明明数数组组curExpense具具有有365个个元元素素。按按照照缺缺省省规规定定，数数组组的的索索引引是是从从零零开开始始，所所以以此此数组的上标界是数组的上标界是364而不是而不是365。Dim curExpense(364)As Currency 若若要要设设置置某某个个元元素素的的值值，必必须须指指定定该该元元素素的的索索引引（即即下下标标值值表表）。下下面面的的示示例例对对于于数数组组

30、中中的的每每个元素都赋予一个初始值个元素都赋予一个初始值20。Sub FillArray()Dim curExpense(364)As Currency Dim intI As Integer For intI=0 to 364 curExpense(intI)=20 NextEnd Sub 6.3.3 6.3.3 运算符与表达式运算符与表达式 1 1算术运算符与算术表达式算术运算符与算术表达式 2 2字符串连接符与字符串表达式字符串连接符与字符串表达式 3 3关系与逻辑运算符、逻辑表达关系与逻辑运算符、逻辑表达式及其取值式及其取值 4 4对象运算符与对象运算表达式对象运算符与对象运算表达式

31、算术运算符是常用的运算符，用来执行简单的算术运算。VBA提供了8个算术运算符，表6-7列出了这些算术运算符。在8个算术运算符中，除取负（-）是单目运算符外，其它均为双目运算符。加（+），减（-），乘（*），取负（-）等1 1算术运算符与算术表达式算术运算符与算术表达式 表表6-7 6-7 算术运算符算术运算符(1)指数运算指数运算指数运算用来计算乘方和方根，其运算符为，28表示2的8次方，而2（1/2）或20.5是计算2的平方根。(2)浮点数除法与整数除法浮点数除法与整数除法浮点数除法运算符（/）执行标准除法操作，其结果为浮点数。例如，表达式5/2的结果为2.5，与数学中的除法一样。整数除法运

32、算符（）执行整除运算，结果为整型值，因此，表达式52的值为2。整除的操作数一般为整型值。当操作数带有小数时，首先被四舍五入为整型数或长整型数，然后进行整除运算。操作数必须在（-2147483648.5，214748367.5）范围内，其运算结果被截断为整型数（Integer）或长整数（Long），不再进行舍入处理。(3)取模运算取模运算 取模运算符（Mod）用来求余数，其结果为第一个操作数整除第二个操作数所得的余数。表9-3按优先顺序列出了算术运算符。在8个算术运算符中，指数运算符（）优先级最高，其次是取负（-）运算符、乘（*）、浮点除（）、整除（/）、加（+）、减（-）。其中乘和浮点除是同级

33、运算符，加和减是同级运算符。当一个表达式中含有多种算术运算符时，必须严格按上述顺序求值。此外，如果表达式中含有括号，则先计算括号内表达式的值；有多层括号时，先计算内层括号中的表达式。字符串连接（&）用来连接多个字符串（字符串相加）。例如：A$=MyB$=HomeC$=A$+B$运算结果为：变量C$的值为MyHome。在VBA中，“+”既可用作加法运算符，还可以用作字符串连接符，但“&”专门用作 字符串连接运算符，其作用与“+”相同。在有些情况下，用“&”比用“+”可能更安全。2 2字符串连接符与字符串表达式字符串连接符与字符串表达式 (1)关系运算符与关系表达式 关系运算符也称比较运算符，用来

34、对两个表达式的值进行比较，比较的结果是一 个 逻 辑 值，即 真（True）或 假（False）。用关系运算符连接两个算术表达式所组成的表达式叫做关系表达式。VBA提供了6个关系运算符，如表6-8所示。3 3关系与逻辑运算符、逻辑表达式及其取关系与逻辑运算符、逻辑表达式及其取值值 表表6-8 6-8 关系运算符列表关系运算符列表 在VBA中，允许部分不同数据类型的量进行比较，但要注意其运算方法。关系运算符的优先次序如下：（1）=、或的优先级别相同，、=、=优先级别也相同，前两种关系运算符的优先级别低于后四种关系运算符。（最好不要出现连续的关系运算，可以考虑将其转化成多个关系表达式。）（2）关系

35、运算符的优先级低于算术运算符。（3）关系运算符的优先级高于赋值运算符（=）。(2)逻辑运算符逻辑运算符 逻辑运算也称布尔运算，由逻辑运算符连接两个或多个关系式，组成一个布尔表达式。VBA的逻辑运算符有表6-9所列6种：表6-10列出了逻辑运算真值表。表表6-9 逻辑运算符列表逻辑运算符列表 表表6-10 逻辑运算真值表逻辑运算真值表（1）对象运算符）对象运算符对象运算表达式中使用!和.两种运算符，使用对象运算符指示随后将出现的项目类型。！运算符！运算符！运算符的作用是指出随后为用户定义的内容。使用!运算符可以引用一个开启的窗体、报表或开启窗体或报表上的控件。表9-7列出了3种引用方式。.(点点

36、)运算符运算符 .(点)运算符通常指出随后为 Microsoft Access 定义的内容。例如，使用.(点)运算符可引用窗体、报表或控件等对象的属性。4 4对象运算符与对象运算表达式对象运算符与对象运算表达式 （2）在表达式中引用对象）在表达式中引用对象在表达式中可以使用标识符来引用一个对象或对象的属性。例如，可以引用一个开启的报表的Visible属性：Reports！发货单！货主国家.Visible，发货单引用“报表”集合中的“发货单”报表，货主国家引用“发货单”报表上的“运货商”控件。例如：将标签0的颜色设置为红色的代码为：标签0.color=255!运算表达式如表6-11所示。表表6-11 ！的引用示例！的引用示例