Excel VBA编程 数组函数

Excel VBA编程数组函数
在程序中，根据实际情况，需要判断某个变量是否为数组，或者数组的下标范围，可以使用系统提供的函数来进行这些操作。

下面分别介绍这些函数。

1．检测数组下标
利用Lbound与Ubound函数，可以返回指定数组中的最小或最大下标，即数组中的最小值和最大值。

格式：Lbound/Ubound(<数组名>[,<数组维序号>])
函数值为数组某维的下界(Lbound)或上界(Ubound)，类型为Long，其中数组维序号为可选项，表示数组的指定维号，默认为1。

例如，显示数组中的数组元素，如图5-14所示。

显示
图5-14 显示的结果
其代码如下：
Sub 显示数组()
Dim A(-1 To 50, 10 To 30, -13 To 4, -5 To 15)
'显示最小下标
Debug.Print "第一维数组最小下标：" & LBound(A, 1)
Debug.Print "第二维数组最小下标：" & LBound(A, 2)
Debug.Print "第三维数组最小下标：" & LBound(A, 3)
Debug.Print "第四维数组最小下标：" & LBound(A, 4)
'显示最大下标
Debug.Print "第一维数组最大下标：" & UBound(A, 1)
Debug.Print "第二维数组最大下标：" & UBound(A, 2)
Debug.Print "第三维数组最大下标：" & UBound(A, 3)
Debug.Print "第四维数组最大下标：" & UBound(A, 4)
End Sub
2．判断数组
在实际应用中，数组和变量的区分不是很清晰，特别是定义的动态数组和变量更加难以区分。

为此VBA提供了isarray函数来判断是否是数组。

格式：isarray(变量名)
其值为逻辑型，指出指定的变量是否为一个数组.是则值为true，否则为false。

例如，声明数组s和变量a，b，判断其是否数组，其代码如图5-15所示。

显示
图5-15 显示效果
代码如下：
Sub 判断数组()
'声明数组变量
Dim s(1 To 5) As Integer, a, b
b = IsArray(a)
Debug.Print b
'使用数组函数
a = Array(1, 2, 3)
b = IsArray(s)
Debug.Print b
b = IsArray(a)
Debug.Print b
'Debug.Print s(1); a(1)
End Sub
3．数组的清除
对于静态数组，在创建完成后，其内存空间也分配完成，数组的大小将不能再改变。

如果需要清除数组的内容或对数组重新定义，可以使用erase语句来完成，其格式如下：格式：erase <数组变量名表列>
对指定的固定大小数组进行初始化，对指定的可调数组则释放其所占内存空间，数组变量名表列用来指定数组，由一个或多个用逗号隔开的数组变量名组成。

利用erase语句，可以对不同类型的静态数组产生不同的结果，如下表5-1所示。

表5-1 使用erase语句
例如，声明变量，然后使用erase语句清除。

Sub 清除数组()
'声明数组变量
Dim NumArray(10) As Integer
Dim StrVarArray(10) As String
Dim StrFixArray(10) As String * 10 Dim VarArray(10) As Variant
Dim DynamicArray() As Integer '分配存储空间
ReDim DynamicArray(10)
'将每个元素设为0。

Erase NumArray
'将每个元素设为零长度字符串Erase StrVarArray
'将每个元素设为0。

Erase StrFixArray
'将每个元素设为Empty
Erase VarArray
'释放数组所用内存。

Erase DynamicArray
End Sub。