VBA静态变量与常量

核心提示： VarType(varname)必要的 varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量，VBA静态变量与常量(3)，下面这个表表示VarType返回的值的意义：常数 值 描述vbEmpty 0 Empty（未初始化）vbNull 1 Null（无有效数据）v

VarType(varname)

必要的 varname 参数是一个 Variant，包含用户定义类型变量之外的任何变量。

下面这个表表示VarType返回的值的意义：

常数 值 描述

vbEmpty 0 Empty（未初始化）

vbNull 1 Null（无有效数据）

vbInteger 2 整数

vbLong 3 长整数

vbSingle 4 单精度浮点数

vbDouble 5 双精度浮点数

vbCurrency 6 货币值

vbDate 7 日期

vbString 8 字符串

vbObject 9 对象

vbError 10 错误值

vbBoolean 11 Boolean 值

vbVariant 12 Variant（只与变体中的数组一起使用）

vbDataObject 13 数据访问对象

vbDecimal 14 十进制值

vbByte 17 位值

vbUserDefinedType 36 包含用户定义类型的变量

vbArray 8192 数组

变量因声明的位置与使用Public或Private关键字，其有效范围可能为3种：过程范围、模块范围与全局范围。当变量放在模块头部，并使用Public代替Dim时，这个变量就是全局变量；而如果是用Dim或者用Private代替Dim时，这个变量是模块级变量；而当变量在过程中声明就是过程变量了。

通常的过程变量在过程结束后值是不保存，但如果子程序使用Static语句，或者用Static声明的过程变量是例外的，下面用两个实例说明一下。

Static Sub ExcelbaSub2()

Dim X As Integer

MsgBox "X = " & X

X = X + 1

End Sub

Sub ExcelbaSub3()

Static Y As Integer

MsgBox "Y = " & Y

Y = Y + 1

End Sub

运行上面的过程，你就比较容易理解Static的用途了。

除了变量，我们还经常用到一些常量，包含系统定义与自定义的常量。常量与变量有很多相似之处，但常量的值是保持不变的，如果代码中常常出现一个数值，最好的方法就是定义成常量，这样既使代码易于编写，也让代码容易阅读。定义常量的关键词是Const，其语法是：

语法

[Public | Private] Const constname [As type] = expression

其中的expression就是常量的值，其它与变量相同，就不重复了。