vba - 如何更改集合中某个项目的值

Question

使用此代码(在 excel-vba 中)，我根据数组向集合添加多个项目。
我使用数组的值作为键，使用字符串“NULL”作为添加的每个项目的值。

Dim Coll As New collection
Dim myArr()

Set Coll = New collection
myArr() = Array("String1", "String2", "String3")

For i = LBound(myArr) To UBound(myArr)
    Coll.Add "NULL", myArr(i)
Next i

现在，如果我想更改某个项目的值，通过键识别它，我必须删除该项目，然后添加具有相同键的项目，或者是否可以更改项目值？

这是唯一的方法吗？

Coll.Remove "String1"
Coll.Add "myString", "String1"

或者有类似的东西:(我知道这不起作用)

Coll("String1") = "myString"

Answer 1

您还可以编写一个(公共(public))函数来更新集合。

public function updateCollectionWithStringValue(coll as Collection, key as string, value as string) as collection
    coll.remove key
    coll.add value, key
    set updateCollectionWithStringValue = coll
end function

您可以通过以下方式调用此函数:

set coll = updateCollectionWithStringValue(coll, "String1","myString")

然后你就可以调用一个衬垫了。