Collection对象在VBA脚本中还是会被经常使用的。Collection对象作为一个数组,使用起来也非常方便。

一般来说,有两种方法对数组进行遍历。

一种方法是,使用索引下标来访问。

另一种方法是,直接遍历数组的元素。

这两种方法,在使用时,都非常方便。

下面介绍两种方法的示例代码供大家参考:

Sub 按钮1_Click()
    Dim coll As Collection
    Set coll = New Collection
    Dim i As Integer

    i = 1
    For i = 1 To 5
        coll.Add i
    Next

    MsgBox "这是第一种方法"
    For i = 1 To coll.Count
        MsgBox coll(i)
        '上面这一句等价于: MsgBox coll.Item(i)
    Next

    MsgBox "这是第二种方法"
    Dim itm As Variant
    For Each itm In coll
        MsgBox (itm)
    Next
End Sub

注意,在使用for each遍历Collection对象时,接收item的变量要定义为Variant类型。

【点此下载示例源代码文件】

本站所有内容均为原创,本站保留所有权利。在保留原始来源链接的情况下,允许非商业用途的转载。拒绝一切商业性转载。

picture loss