VBA 集合包含 - VBA

在 VBA 中，集合是一组对象的容器，可从其中添加、删除或查找对象。集合类似于数组，但与数组不同，它们可以根据需要自动增长或缩小。在 VBA 中，集合是一个类（Collection Class），可以通过它来管理对象集合。

创建一个集合

要创建一个集合，请使用以下语法：

Dim collectionName As New Collection

其中，collectionName是你定义的集合的名称，可以自己根据实际情况进行修改。

向集合添加元素

要向集合中添加元素，请使用以下语法：

collectionName.Add item, key, before, after

其中，

• item：要添加到集合中的对象。
• key（可选参数）：用于检索对象的键（关键字）。
• before 和 after（可选参数）：用于将新项添加到指定键之前或之后的项的键。

例如：

Dim fruits As New Collection
fruits.Add "apple", "fruit1"
fruits.Add "banana", "fruit2", "fruit1"
fruits.Add "orange", , , "fruit2"

这段代码创建了一个名为 fruits 的集合，并向其中添加了三个元素。

访问集合中的元素

要访问集合中的元素，请使用以下语法：

collectionName.Item(key)

其中，key 是要访问的元素的键（关键字）。

例如：

MsgBox fruits.Item("fruit2")

这会弹出一个消息框，显示 banana，因为 banana 是键为 "fruit2" 的项的值。

遍历集合中的元素

要遍历集合中的元素，请使用以下语法：

For Each item In collectionName
    statement(s)
Next item

其中，item 是集合中的每个元素。

例如：

For Each fruit In fruits
    Debug.Print fruit
Next fruit

这段代码会将集合中的每个元素的值打印到“立即”窗口。

从集合中删除元素

要从集合中删除元素，请使用以下语法：

collectionName.Remove(key)

其中，key 是要删除的元素的键（关键字）。

例如：

fruits.Remove("fruit2")

这会从集合中删除键为 "fruit2" 的元素（也就是 banana）。

检查集合中是否存在指定的元素

要检查集合中是否存在指定的元素，请使用以下语法：

collectionName.Contains(key)

其中，key 是要检查的元素的键（关键字）。

例如：

If fruits.Contains("fruit2") Then
    Debug.Print "Fruits contains banana."
End If

如果集合中存在键为 "fruit2" 的元素，那么此代码会在“立即”窗口中打印 Fruits contains banana.。

总结

在 VBA 中，集合是一组对象的容器，可从其中添加、删除或查找对象。使用集合可以更方便地管理对象集合，并且可以根据需要自动增长或缩小。本文介绍了创建集合、向集合中添加元素、访问集合中的元素、遍历集合中的元素、从集合中删除元素以及检查集合中是否存在指定的元素等基本操作。