如何在代码运行时创建数组

VBA语言専攻 2023-01-31

103

【分享成果，随喜正能量】世界上有三件事情做起来最吃亏：为尚未发生的事情而担忧；为自己想象的结果而焦虑；为过去的过错而不断自责。过去心不可得，现在心不可得，未来心不可得。。

《VBA代码解决方案》(10028096)这套教程是我最早推出的教程，目前已经是第三版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一样把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过渡教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第59讲：如何在代码运行时创建数组

第五十九讲如何在代码运行时创建数组

大家好，我们今日继续讲解VBA代码解决方案的第59讲内容：如何在代码运行时创建数组。

1 Array函数和LBound函数、UBound函数

数组大家并不陌生，为此我有专门的教程讲解，详细阐述数组的利用价值。今日讲的是在VBA中代码运行的时候如何创建数组，为了实现这个目的，我们需要梳理一下下面的几个知识点：

1）创建数组函数：Array函数。这个函数返回一个包含数组的Variant，语法如下：

Array(arglist)

Arglist参数是一个用逗号隔开的值表，这些值用于给Variant所包含的数组的各元素赋值。如果不提供Arglist参数，则创建一个长度为 0 的数组。使用Array函数可以在代码运行时创建数组并把一系列数据保存在数组中，

2） LBound函数和UBound函数取得数组的最小和最大下标。

LBound函数：返回一个Long型数据，其值为指定数组维可用的最小下标，

语法如下：LBound(arrayname[, dimension])

UBound函数：返回一个Long型数据，其值为指定数组维可用的最大下标，

语法如下：UBound(arrayname[, dimension])

参数arrayname是必须的，数组变量的名称。

参数dimension是可选的，指定返回哪一维的下界，1表示第一维，2表示第二维，如此类推。默认为1。

l特别注意点：UBound函数与LBound函数一起使用，可以用来确定数组的大小。

3） Option Base数组下界的声明：Option Base用来声明数组下标缺省下界的函数，在模块级别中使用。由于下界的缺省设置是 0，因此无需使用 Option Base 语句。如果使用该语句，则必须写在模块的所有过程之前。一个模块中只能出现一次 Option Base，且必须位于带维数的数组声明之前。注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。