Excel VBA编程 数组的赋值

Excel VBA 编程 数组的赋值

在VBA 中，创建数组后将自动初始化数组中的每个元素。对于数值型的数组，每个元素都将初始化为0，而字符串型数组的每个元素的值则为空。

1．给数组元素赋初值

通过数组中的元素赋初值，可以利用Array 函数来实现对数组中各个元素赋值，但其类似只能是Variant 。

格式：Array(参数列表)

其中，所需的参数列表是一个用逗号隔开的值表，这些值用于所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为0的数组。例如，输出当前日期，如图5-6所示。

图5-6 输出当前日期

实现该效果的代码如下： Sub 日期()

Dim w, d

'给数组赋值

w = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")

'返回当前日期

d = w(Day(Now))

'输出当前日期

Debug.Print "Today is " & d

End Sub

在该代码中，利用Array 函数将显示星期的值赋值给变量w ，这样取得当前日期，并输出到

【立即窗口】中。

2．数组的复制 在VBA 中，可以直接将一个数组的值复制给另一个数组，即使用“=”号进行复制。这样复制后的数组元素中同时包含本身和另一个数组中的元素。 例如，将数组a 的值赋值给数组b ，如图5-7所示。 提 示 如果数组中的元素过多的话，可以使用循环来为其赋值。利用循环可以很方便的

为数组中的元素赋值。只要设定好条件，对数组中符合条件的数组元素，进行赋值。可以这样不必对数组中每一个元素赋值。 输出

数组