VBA函数精选之二十（IsArray 函数）

蓝桥玄霜

第1.20例 IsArray函数
一、题目：
要求编写一段代码，运用IsArray函数，返回一个变量是否为一个数组。
二、代码：
Sub 示例_1_20()
      Dim Arr1(1 To 8,1 to 3) As Integer, Arr2   
      Arr2 = Array(1, 2, 3,4,5)   
      MsgBox “Arr1 是否为数组： ” & IsArray(Arr1)     ' 返回 True。
    MsgBox “Arr2 是否为数组： ” & IsArray(Arr2)     ' 返回 True。
End Sub
三、代码详解
1、Sub 示例_1_20()：宏程序的开始语句。宏名为示例_1_20。
2、Dim Arr1(1 To 8,1 to 3) As Integer, Arr2    ：声明变量Arr1为整型数组、Arr2为可变型变量。
3、Arr2 = Array(1, 2, 3,4,5)   ：用Array函数赋值给变量Arr2。
4、MsgBox “Arr1 是否为数组： ” & IsArray(Arr1)   ：用消息框显示Arr1是否为数组，返回 True。

Array 函数
返回一个包含数组的 Variant可变型数据。

Array(arglist)
所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
使用 Array 函数创建的数组的下界受 Option Base 语句指定的下界的决定，默认为0。

IsArray 函数
返回 Boolean 值，指出变量是否为一个数组。

IsArray(varname)
必要的 varname 参数是一个指定变量的标识符。
如果变量是数组，则 IsArray 返回 True；否则返回 False。对于包含数组的 variant 表达式来说，IsArray 尤为有用。

VBA函数精选之十九（InstrRev 函数）：http://club.excelhome.net/thread-374658-1-1.html

龙城飞将III

赞蓝神，第20个函数学习完毕，mark一下！

2821121973

感谢老师无私的奉献！