Excel VBA编程数组的赋值

《Excel VBA编程数组的赋值》由会员分享，可在线阅读，更多相关《Excel VBA编程数组的赋值（2页珍藏版）》请在金锄头文库上搜索。

1、Excel VBA编程 数组的赋值Excel VBA编程 数组的赋值 在VBA中，创建数组后将自动初始化数组中的每个元素。对于数值型的数组，每个元素都将初始化为0，而字符串型数组的每个元素的值则为空。 1给数组元素赋初值 通过数组中的元素赋初值，可以利用Array函数来实现对数组中各个元素赋值，但其类似只能是Variant。 格式：Array(参数列表) 其中，所需的参数列表是一个用逗号隔开的值表，这些值用于所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为0的数组。例如，输出当前日期，如图5-6所示。 输出 图5-6 输出当前日期 实现该效果的代码如下： Sub 日期 Dim w,

2、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所示。 为数组中的元素赋值。只要设定好条件，对数组中符合条件的数组元素，进行赋如果数组中的元素过多的话，可以使用循环来为其赋值。利用循环可以很方便的数组 图5-7 数组赋值 其代码如下： Sub 赋值数组 Dim a(3) As Integer, b As Integer a(0) = 0: a(1) = 5: a(2) = 3: a(3) = 3 b = a For i = 0 To 3 Debug.Print b(i) Next i End Sub 在数组之间赋值时要注意： l l l 数组之间的数据类型必须一致。 如果“=”左边是一个动态数组，则赋值时系统自动将该动态数组的大小声明成右边同样大小的数组。 静态数组不能赋值