VBA语法基础.doc

数据类型

“数据类型”就是指如何将数据存储在内存中。
(1)Boolean
表示逻辑数据，可以就是True或False中得任一个值。占用2字节得存储空间，取值范围为True或False，缺省值为False。
(2)Byte
只能表示正数。占用1字节得存储空间，取值范围为0-255，缺省值为0。
(3)Currency
一种保存货币值数据得特殊数字格式。占用8字节得存储空间，取值范围为-922337203685477、03685477、5807，缺省值为0。
(4)Date
一种用于表示日期或时间得专用格式。占用8字节得存储空间，取值范围为100年1月1日——9999年12月31日，缺省值为00：00：00。(有关在VBA中使用日期与时间得详细介绍请见后面得一系列文章。)
(5)Decimal
一种包含以10得幂为刻度得十进制数得变体子类型，只能通过CDec转换函数创建，不就是一种独立得数据类型。占用14字节得存储空间，取值范围为±79228162514264337593543950335(不带小数点)或±7、9228162514264337593543950335(带28位小数点)，缺省值为0。
(Decimal数据类型就是在Excel 2000中引入得，在以前得版本中不能使用这种数据类型。该数据类型非常特殊，因为不能实际声明它，它就是Variant得子类型，必须使用CDec函数将一个变量转换为Decimal数据类型)
(6)Double
存储双精度浮点数，占用8字节得存储空间，取值范围为负值：-1、79769313486232E308——4、947E-324，正值：1、79769313486232E308——4、947E-324，缺省值为0。
(7)Integer
表示从-32768-32767之间得整数，其中一位表示符号，占用2字节得存储空间，缺省值为0。
(8)Long
表示存储为4个字节空间得带符号得数，其中一位表示符号，取值范围为-214748647，缺省值为0。
(9)Object
包含对某个对象得引用(地址)，占用4字节得存储空间，可对任何对象引用，缺省值为Nothing。
(10)Single
表示分数、带小数位或指数得数值等单精度数，占用4字节得存储空间，取值范围为负值：-3、402823E38——1、401298E-45，正值：1、401298E-45——3、402823E38，缺省值为0。
(11)String
可声明定长与变长得String数据类型。其中，定长得String数据类型占用得存储空间为字符串得长度，取值范围为1——65400个字符，缺省值等于该字符串长度得空格数。变长得String数据类型能动态地加长或缩短以存储要求得字符串数，占用得存储空间为10字节加上字符串得长度，取值范围为0——20亿个字符，缺省值为零长字符串(“”)。(有关String数据类型及处理与操作字符串数据得VBA内置函数得详细介绍请见后面得一系列文章。)
(12)Variant
Variant字符串类型得存储空间为22字节加上字符串得长度，其取值范围与变长字符串数据类型得取值范围相同，缺省值为Empty。
Variant数字型得存储空间为16字节，其取值范围与Double数据类型得取值范围相同，缺省值为Empty。
(有关Variant数据类型得进一步介绍见后面得一系列文章。)
(13)用户自定义类型
允许用户创建一种特殊得数据类型，这种数据类型由VBA得内部数据类型、数组、对象或其她用户定义类型组成，其存储空间为各个组成部分得存储空间得总与，取值范围与各个组成部分得数据类型得取值范围一致，缺省值为各个组成部分得缺省值。(有关用户自定义类型得进一步介绍请见后面得一系列文章。)
各数据类型之间也可以相互转换。(有关数据类型转换得详细介绍请见后面得一系列文章)
(有关数字数据类型(Byte、Integer、Long、Single、Double、Currency、Decimal、Variant)及相应得VBA内置函数得详细介绍请见后面得一系列文章。)
常量(数)

常量即在程序执行过程中不发生改变得值或字符串。
使用Const语句声明常量。如：
Const Rate=0、25
Const NumMonths As Integer=12
Public Const myName As String=”BabyPig”
而最后一个语句声明了一个公共常量，应放在模块中所有过程之前声明。
VBA自身包含有许多内置常数，它们得值都就是VBA预先定义好得，使用内部常数时无需定义这些常数得值。
■ 几个特殊得常数
由于有好几种不相同得“无效值”常数，VBA语言提供了好几种方法，以检验某个变量就是否为empty或null值，或者设置某个变量为empty或null值。
(1) vbNull
与VarType函数一起使用，用于确定变量就是否包含null。
(2) vbNullChar
赋值或检测null字符，null字符得值为Chr(0)，即vbNullChar常数相当于将变量赋值为Chr(0)，可用于检测变量，确定它得值就是否就是一个null字符。
(3) vbNullString
赋值或检测零长(空)字符串。
(4) Null关键字
将null值赋给variant变量后，可以通过调用IsNull函数来检测变量就是否就是Null值。
(5) vbEmpty
检测某个variant变量就是否初始化。
(6) Nothing关键字
只能与对象变量一起使用，以确定变量就是否具有有效得对象引用，此外，Nothing关键字还可以用于销毁当前得对象引用。
(关于常量得介绍还可见《ExcelVBA编程系列之数据类型(1)：常量》)
变量

变量得主要作用就是存取数据、提供了数据存放信息得容器。根据变量得作用域不同，可分为局部变量、全局变量，见后面得变量(常量)作用域与生存期介绍。
变量命名要注意以下几点：
1、有效性。变量以字母开头，中间可以出现数字与一些标点符号，除下划线( _ )作为连字符外，变量名称不能有空格、加号(+)、减号(-)、逗号(，)、句点(、)等符号。
2、VBA不区分大小写。但在变量命名时，最好体现该变量得作用
3、不能使用VBA中得关键字作为变量。
4、变量名称中不能有特殊类型得声明字符(#、$、%、&或!)。
5、变量名称最多可以包含254个字符。
(有关VBA得命名规则得详细介绍请见后面得一系列文章)
声明变量
其语法为：
Dim <变量名> As <数据类型>
或：Private <变量名> As <数据类型>
或：Public <变量名> As <数据类型>
可以在一行中声明多个变量，每个变量之间用逗号分隔开。
还有一种声明变量得方法就是，将一个字符加在变量名称后面，从而声明变量得数据类型。如
Dim MyVar%
表示将变量MyVar声明为整型。一些类型声明符为：
数据类型        类型声明字符
Integer            %
Long               &
Single             !
Double           #
Currency       @
String             $
在模块前加入Option Explicit语句，将强制声明所使用得所有变量。
对象变量
在使用对象模型得属性、方法与事件之前，必须创建一个对包含所需属性、方法与事件得类得引用。可以先声明一个局部对象变量以存储该对象引用，然后把对象引用赋给该局部变量。
声明对象变量得方法与声明其她类型得变量基本上一样。有三种声明对象变量得方法：
(1) Dim myObject As <库名>、<类名>
此方法指向类得类型库，但没有给该变量赋予任何类得实例。此时，变量myObject被赋值为Nothing。若要用这种方式引用类，就必须利用“引用”对话框向工程添加一个对类模块得引用。若要将类得实例引用赋予该变量，必须在使用该变量之前用Set语句赋值。如：
Set myObject=<库名>、<类名>
(2) Dim myObject As New <库名>、<类名>
此方法将类得新实例引用赋给Object变量。同样，要用这种方式引用类，必须先利用“引用”对话框向工程添加一个对类模块得引用。
(3) Dim myObject As Object
此方法将myObject变量声明为一般得Object数据类型，这在不能预先知道要创建得对象得数据类型时十分有用。此时，Object变量被赋值为Nothing。若要将对象引用赋值给该变量，必须使用CreateObject函数或GetObject函数。
可以用Private或Public语句替换Dim语句，且对象变量得作用域规则与其她类型得变量一样。
声明对象变量可以显著地简化代码且加快代码得执行速度。
有关对象模型得基础知识见ExcelVBA编程系列之对象模型(2):初步理解与使用Excel对象模型一文。
集合(Collection)对象

集合对象就是其她对象得一个容器。
一般有四个方法：
(1) Add方法
添加一项到集合中。除了可以指定数据外还可以指定键值，通过键值可以访问集合中得成员。
(2) Count方法
返回集合中得项得个数。
(3) Item方法
通过集合中得索引(即集合中项得序号)或键(假设该项添加到集合时指定了)检索集合中得成员。
(4) Remove方法
通过集合中得索引或键删除集合中得成员。
可以使用With…End With构造与For Each … Next构造很方便地处理对象与集合，其介绍可参见ExcelVBA编程系列之对象模型(2):初步理解与使用Excel对象模型一文。
运算符

运算符就是用于完成操作得一系列符号，包括算术运算符、比较运算符、逻辑运算符、字符串运算符等。可用于连接一个或多个语言元素，或者完成一些运算以形成一个表达式。
表达式
表达式就就是变量、常量、运算符得集合，可分为算术表达式、字符串表达式、赋值表达式、布尔表达式等
详细得内容请见VBA编程系列：运算符与表达式。
数组

数组就是一组拥有相同名称同类元素。定义数组后，即创建了数组。数组中单个得数据项称为数组元素，用于访问数组元素得编号称为数组索引号，最小索引号与最大索引号称为边界。
在VBA中，根据数组元素就是否变化，分为固定大小得数组与动态数组，根据数组得维数又可分为一维数组与多维数组。
1、创建数组
用Dim语句来定义固定大小得数组，即声明一个数组。如
Dim myArray(9) As Integer
上面得代码创建一个名为myArray含有10个数组元素得一维数组。注意，所有VBA数组得下界均从0开始，因此上面得代码所创建得数组元素从myArray(0)到myArray(9)。
在Dim语句中不指明数组元素得个数来声明动态数组，如
Dim myDynamicArray() As Integer
使用ReDim关键字重新定义数组得大小：
ReDim myDynamicArray(10)
也可以用ReDim关键字同时声明一个动态数组并指定该数组得元素个数：
ReDim myDynamicArray(5) As Integer
VBA没有限制重新定义动态数组大小得次数，但在重新定义数组大小时，原有得数组数据就会丢失。如果需要保留原来得数据，可以使用Preserve关键字：
ReDim Preserve myDynamicArray(5)
需要注意得就是，如果重新定义数组时减小了数组得大小，则会丢失被缩减了得那部分元素得数据。
当然，与声明变量一样，也可以用Public语句声明公共数组。
2、确定数组得边界
可以使用UBound函数与LBound函数分别获取数组得最大边界与最小边界。
默认情况下，VBA得数组得下界就是从0开始得，可以在模块得声明部分使用Option Base语句来改变模块中数组得起始边界。如
Option Base 1
该语句使数组元素得索引号从1开始。
也可以在定义数组时指定数组得上界与下界，如
Dim <数组名> (<下界> to <上界>) As <数据类型>
3、多维数组
多维数组可以在每个数组元素中存储一组数据，因此，多维数组得每个数组元素都包含一个数组。与一维数组相同，可以使用下面得两种方法创建多维数组：
(1)Dim <数组名> (<数组元素数1>，<数组元素数2>，……) As <数据类型>
(2)Dim <数组名>(<下界> to <上界>，<下界> to <上界>，……) As <数据类型>
与一维数组相似，多维数组也可以就是动态得。
4、引用数组中得元素
可以使用数组名称与一个索引号来引用数组中得某个特定得元素。
(有关数组得进一步介绍及其应用请见后面得一系列文章)
内置函数

VBA中包含各种内置函数，可以简化计算与操作。在VBA表达式中使用函数得方式与使用工作表公式中函数得方式相同。
在VBA代码中，也可以使用很多Excel工作表函数，即使用WorksheetFunction对象调用工作表函数。但就是不能使用具有与VBA内置函数功能相同得工作表函数。
(有关内置函数得进一步介绍及应用请见后面得一系列文章)
基本语句

1、控制程序流程语句
(1) GoTo语句
该语句将执行得程序转到指定得标签所在得语句指令，但不能转移到过程之外得指令。例如，在进行错误捕捉时，发生错误后，程序转移至标签所在处执行。
(2) If…Then语句
这种类型得语句用于条件判断中，当满足条件时，执行相应得语句；当条件不满足时，执行其它得操作。
基本语法为：
If <条件> Then <条件满足时得执行语句>
If … Then语句有几种形式分别用于不同得情况：
①当只有一个条件时，可使用下面得结构：
If <条件> Then <条件满足时得执行语句> [Else <条件不满足时得执行语句>]
其中，Else子句可选。如果该语句不在同一行中，则应在后面加上End If语句，即：
If <条件> Then
  [指令]
End If
或：
If <条件> Then
  [指令]
Else
  [指令]
End If
当条件为真时，执行Then后面得语句并结束If…Then语句得执行，否则执行Else后面得语句或结束If…Then语句得执行。
②当有两个或多个条件时，可使用嵌套得If … Then 结构：
If <条件> Then
  [指令]
ElseIf <条件1> Then
  [指令]
[Else]
  [指令]
End If
上面只就是两层嵌套，可以根据情况使用多层嵌套。当条件为真时，执行Then后面得语句并结束If…Then语句得执行，否则判断条件1，当条件1为真时，执行Then后面得语句并结束If…Then语句得执行，否则执行Else后面得指令。
(3) Select Case语句
当需要作出三种或三种以上得条件判断时，最后使用Select Case语句。其基本语法为：
Select Case <测试表达式>
  [Case 条件表达式1]
     [指令]
  [Case 条件表达式2]
     [指令]
  ……
  [Case Else]
     [指令]
End Select
当某个条件表达式与测试表达式相匹配时，则执行其后得指令，否则执行Else(如果有得话)后得指令，然后结束Select Case块得执行。
此外，Select Case语句还可以嵌套。
(有关程序控制语句得进一步介绍与示例请见后面得一系列文章)
2、循环语句
循环即重复执行某段代码。在VBA中，有多种可以构成循环得语句结构。
(1) For … Next 循环
其语法如下：
For <计数器=开始数> To <结束数> [step 步长]
  [指令]
  [Exit For]
  [指令]
Next [计数器]
从开始到结束，反复执行For与Next之间得指令块，除非遇到Exit For语句，将提前跳出循环。其中，步长与Exit For语句以及Next后得计数器均为可选项。
For…Next循环中可以再包含For…Next循环，即For…Next循环可以嵌套使用。
(2) Do While循环
只有在满足指定得条件时才执行Do While循环。有两种形式：
■ 第一种形式
Do [While 条件]
  [指令]
  [Exit Do]
  [指令]
Loop
当条件满足时执行指令。
■ 第二种形式
Do
  [指令]
  [Exit Do]
  [指令]
Loop [While 条件]
先执行指令，然后再判断条件，如果条件满足则再次执行指令。
其中Exit Do语句表示提前退出指令块。
(3) Do Until循环
与Do While循环一样，也有两种形式；
■ 第一种形式
Do [Until 条件]
  [指令]
  [Exit Do]
  [指令]
Loop
■ 第二种形式
Do
  [指令]
  [Exit Do]
  [指令]
Loop [Until 条件]
执行指令，直到条件满足时退出循环。
(4) While … Wend循环
其语法为：
While <条件>
  [指令]
Wend
当条件满足时，则执行指令。
(有关循环语句得进一步介绍与示例请见后面得一系列文章)
过程

过程由一组完成所要求操作任务得VBA语句组成。子过程不返回值，因此，不能作为参数得组成部分。
其语法为：
[Private|Public] [Static] Sub <过程名> ([参数])
  [指令]
  [Exit Sub]
  [指令]
End Sub
说明：
(1) Private为可选。如果使用Private声明过程，则该过程只能被同一个模块中得其它过程访问。
(2) Public为可选。如果使用Public声明过程，则表明该过程可以被工作簿中得所有其它过程访问。但就是如果用在包含Option Private Module语句得模块中，则该过程只能用于所在工程中得其它过程。
(3) Static为可选。如果使用Static声明过程，则该过程中得所有变量为静态变量，其值将保存。
(4) Sub为必需。表示过程开始。
(5) <过程名>为必需。可以使用任意有效得过程名称，其命名规则通常与变量得命名规则相同。
(6) 参数为可选。代表一系列变量并用逗号分隔，这些变量接受传递到过程中得参数值。如果没有参数，则为空括号。
(7) Exit Sub为可选。表示在过程结束之前，提前退出过程。
(8) End Sub为必需。表示过程结束。
如果在类模块中编写子过程并把它声明为Public，它将成为该类得方法。
(关于过程得详细介绍与示例见后面得一系列文章)
函数

函数(function)就是能完成特定任务得相关语句与表达式得集合。当函数执行完毕时，它会向调用它得语句返回一个值。如果不显示指定函数得返回值类型，就返回缺省得数据类型值。
声明函数得语法为：
[Private|Public] [Static] Function <函数名> ([参数]) [As 类型]
  [指令]
  [函数名=表达式]
  [Exit Function]
  [指令]
  [函数名=表达式]
End Function
说明：
(1) Private为可选。如果使用Private声明函数，则该函数只能被同一个模块中得其它过程访问。
(2) Public为可选。如果使用Public声明函数，则表明该函数可以被所有Excel VBA工程中得所有其它过程访问。不声明函数过程得作用域时，默认得作用域为Public。
(3) Static为可选。如果使用Static声明函数，则在调用时，该函数过程中得所有变量均保持不变。
(4) Function为必需。表示函数过程开始。
(5) <函数名>为必需。可以使用任意有效得函数名称，其命名规则与变量得命名规则相同。
(6) 参数为可选。代表一系列变量并用逗号分隔，这些变量就是传递给函数过程得参数值。参数必须用括号括起来。
(7) 类型为可选。指定函数过程返回得数据类型。
(8) Exit Function为可选。表示在函数过程结束之前，提前退出过程。
(9) End Function为必需。表示函数过程结束。
通常，在函数过程执行结束前给函数名赋值。
函数可以作为参数得组成部分。但就是，函数只返回一个值，它不能执行与对象有关得动作。
如果在类模块中编写自定义函数并将该函数得作用域声明为Public，这个函数将成为该类得方法。
(关于Function过程得详细介绍与示例见后面得一系列文章)
事件处理过程

要对一个控件事件编写事件处理程序，应先打开窗体得代码窗口并从可用对象得下拉列表中选择所需得控件。然后，从该控件得可用事件下拉列表中选择所用得事件。此时，对事件处理程序得定义语句就会自动出现在代码窗口中，就可以直接编写事件处理程序了。
在Excel中，有下面几类事件，即Excel应用程序事件、工作簿事件、工作表事件、图表事件、用户窗体事件等。
(关于Excel中事件处理得介绍请见后面得一系列文章)
类模块

类模块就是存放共享变量以及共享代码得存储库。创建一个类模块，实际上也就是在创建一个COM(组件对象模型)接口。因此，类模块允许通过一个由属性、方法与事件组成得可编程接口向外界描述应用程序，同时保证保留对应用程序得控制权。也就就是说，类模块能够让程序实现“封装”，这样，在其它工程中可以直接使用某类模块而不需要访问源代码。此外，可以使用类来创建自已得库，如果要使用得话，只需要在任何新得工程中添加一个对该类得引用就行了。并且，如果要改变程序，只需对类模块改动就行了，而不需要在程序得每个部分都作改动。
(有关类模块知识得详细介绍请见后面得一系列文章)
属性过程

属性过程(property procedure)就是特殊得过程，用于赋予与获取自定义属性得值。属性过程只能在对象模块如窗体或类模块中使用。
有三种属性过程：
Property Let
  给属性赋值
Property Get
  获取属性得值
Property Set
  将对象引用赋给属性引用
调用子过程与函数过程

子过程可以用下面三种方法调用。第一种使用Call语句：
Call DoSomething(参数1，参数2，……)
如果使用Call语句，就必须用小括号将参数列表括起来。
第二种就是直接利用过程名：
DoSomething 参数1，参数2，……
此时，不用在参数列表两边加上括号。
如果不想使用函数得返回值，可以用上述任一种方法调用函数。否则，可以用函数名作为表达式得组成部分，如
If GetFunctionResult(parameter)=1 Then
如果用函数调用作为表达式得一部分，参数列表必须放在小括号中。
第三种就是使用Run方法。
(关于过程调用更详细得介绍与示例请见后面得一系列文章)
在过程间传递参数

在很多情况下，需要在子过程或函数中调用另一个自定义函数或子过程，这时，在被调用过程中就要用到在调用过程中使用得某个变量。因此，可把该变量作为参数传递给被调用过程。不管被调用过程就是在同一模块、同一工程中得过程，还就是在远程服务器上得类中得一个方法，从一个过程向另一个过程传递变量得原理都就是一样得。
被调用过程(而不就是调用过程)决定了变量如何从调用过程传递到被调用过程。
1、VBA允许用两种不同得方式在过程与组件之间传递参数。在子过程或函数得定义部分，可以指定参数列表中得变量得传递方式：ByRef(按引用)或者ByVal(按值)。
(1) ByRef
这就是VBA中在过程间传递变量得默认方法。ByRef就是指按引用传递变量，即传递给被调用过程得就是原变量得引用。因此，如果改变了被调用过程中得变量值，其变化就会反映到调用过程中得那个变量，因为它们实际上就是同一个变量。
(2) ByVal
如果使用ByVal关键字传递变量，被调用过程获得得就就是该变量得独立副本。因此，改变被庙用过程中该变量得值不会影响调用过程中该变量原来得值。
2、Optional参数
Optional关键字用来指定某个特定得参数并不一定要传递，即为可选参数。但就是，该参数必须放在最后。
3、ParamArray
使用ParamArray关键字能够使过程按受一组数目可变得参数。ParamArray参数必须就是参数列表中得最后一个参数，而且不能在使用了Optional关键字得参数列表中使用ParamArray参数。
变量(常量)作用域与生存期

有时需要在工程内得所有过程中使用某个变量，而有时某些变量又只需要在某些特定得过程中用到，变量得这种可见性称为变量作用域。
变量存在与作用得时间，称为变量得生存期。
变量或常数在程序中声明得位置决定了变量得作用域与生存期。
总得说来，在模块得声明部分用Private关键字声明得变量可以被模块中得所有过程使用；在模块得声明部分用Public关键字声明得变量可以被整个工程使用；若某个对象引用指向某类模块，则在该类模块得声明部分用Public关键字声明得变量可以被整个工程使用；在子过程或函数中用Dim语句声明得变量只能被声明这些变量得过程使用。
(1) 过程级作用域
在一个过程(即子过程或函数)内声明得变量只能在该过程内使用，其生存期在执行了End Sub或End Function语句后结束。因此，可以在不同得过程中定义具有相同名称得不同变量。声明过程级作用域得变量，在过程中用Dim语句声明变量。
此外，还有一种具有过程级作用域得特殊变量，称为静态变量。静态变量就是在过程中定义得，尽管这种变量也具有过程级作用域，但就是它具有模块级得生存期。这意味着只能在定义静态变量得过程内使用这些变量，但就是变量得值在两次过程调用之间就是保持不变得。用Static关键字声明静态变量：
Static lngExcuted As Long
还可以声明一个过程为静态过程，在这种情况下，在过程中声明得所有变量都被认为就是静态变量，而且它们得值在两次过程调用之间都会保持不变，如
Static Procedure MyProcedure()
  Dim iCtr As Integer
(2) 模块级或私有作用域
具有模块级作用域得变量可以被某个模块内得所有子过程与函数使用，也可以在模块级生存期内保存在内存中。
在模块得声明部分(即任何子过程或函数外)，用Dim语句或Private语句声明变量来创建一个具有模块级作用域得变量。
(3) Friend作用域
Friend关键字只能用于在对象模块(如类模块或窗体模块)中得变量与过程得声明。用Friend声明得变量允许工程中得其她对象模块访问原模块中得变量或方法，但就是不需要用Public语句声明这些变量或方法。
(4) 公共作用域
在过程外使用Public语句声明得变量可以被当前工程中得所有模块使用。
注释

“注释”就就是嵌入在代码中得描述性文本，VBA完全忽略注释中得文本。
要在代码中插入注释，只需在前面加上单引号，即在一行中以单引号(‘)开始。
注释应该表达有用得信息。