《VBA数组用法案例详解》

介绍

本文主要介绍VBA语言中数组的使用方法。数组是一种变量类型，用于存储包含多个值的数据集合。数组的应用方法可以大大提高开发者的编码效率，从而使编程工作更加轻松。本篇文章会从基础的单一维数组到多维数组，并介绍如何遍历和操作数组。

基础数组

创建数组

创建VBA数组的方法非常简单，只需要声明数组的变量名以及数组的长度就可以了。

Dim myArray(3) As Integer

上述语句就创建了一个包含4个整数值的数组。

初始化数组

初始化数组指为数组中的元素分配初始值。有两种常见的初始化方法，即逐个初始化和整体初始化。

逐个初始化：

myArray(0) = 0
myArray(1) = 1
myArray(2) = 2
myArray(3) = 3

整体初始化：

Dim myArray() As Integer
myArray = Array(0, 1, 2, 3)

数组中元素的下标从0开始。所以上述初始化方法中元素的下标分别为0,1,2,3。

访问数组

访问数组中的元素也非常简单，只需要调用数组的变量名以及元素的下标即可。

myArray(2)

上述语句会返回数组中下标为2的元素的值，即2。

修改数组

修改数组的元素同样非常容易。

myArray(2) = 4

上述语句修改了数组中下标为2的元素的值，由原来的2变为了4。

多维数组

多维数组即是含有多个维度的数组。VBA中支持两种及以上维度的数组。

创建多维数组

创建一个二维数组的方法如下：

Dim myArray(2, 3) As Integer

上述语句将创建一个大小为3 * 4的二维数组。

初始化多维数组

逐个初始化多维数组同逐个初始化一维数组相同，代码如下：

myArray(0,0) = 1
myArray(0,1) = 2
myArray(0,2) = 3
...

同样，整体初始化也可以像一维数组一样通过调用Array函数来完成。

访问多维数组

访问二维数组中的元素需要指定两个下标，即行数和列数

myArray(2, 3)

修改多维数组

修改二维数组中的元素同样需要指定两个下标。

myArray(2, 3) = 10

遍历数组

遍历数组即是将数组中的元素一个一个地取出来进行处理。遍历一维数组的方法如下：

Dim i As Integer
For i = Lbound(myArray) To Ubound(myArray)
    ' do something
Next i

遍历二维数组的方法如下：

Dim i As Integer
Dim j As Integer
For i = Lbound(myArray, 1) To Ubound(myArray, 1)
    For j = Lbound(myArray, 2) To Ubound(myArray, 2)
        ' do something
    Next j
Next i

示例

示例1 - 计算一个数组元素的总和

Sub CountSum()
    Dim myArray(3) As Integer
    myArray = Array(1, 2, 3, 4)
    Dim count as Integer
    For i = Lbound(myArray) To Ubound(myArray)
        count = count + myArray(i)
    Next i
    MsgBox "Sum of array is: " & count
End Sub

示例2 - 打印具有二维数组的所有元素

Sub PrintElements()
    Dim myArray(2, 3) As Integer
    myArray = Array(Array(1, 2, 3, 4), _
                    Array(5, 6, 7, 8), _
                    Array(9, 10, 11, 12))

    Dim i as Integer, j as Integer
    For i = Lbound(myArray, 1) To Ubound(myArray, 1)
        For j = Lbound(myArray, 2) To Ubound(myArray, 2)
            MsgBox "myArray(" & i & "," & j & "): " & myArray(i, j)
        Next j
    Next i
End Sub

上述示例中分别演示了单一维数组和多维数组的相关操作，包括数组的创建、初始化、访问、修改、遍历等。开发者可以根据实际情况进行参考。