web-dev-qa-db-ja.com

VBAコレクションのキー/値ペアをループできますか？

VB.NETでは、辞書のキー/値のペアを反復処理できます。

Dictionary<string, string> collection = new Dictionary<string, string>();
collection.Add("key1", "value1");
collection.Add("key2", "value2");

foreach (string key in collection.Keys)
{
    MessageBox.Show("Key: " + key + ".  Value: " + collection[key]);
}

Collectionオブジェクトのvaluesを反復処理できることをVBAで知っています。

Dim Col As Collection
Set Col = New Collection
Dim i As Integer
Col.Add "value1", "key1"
Col.Add "value2", "key2"

For i = 1 To Col.Count
    MsgBox (Col.Item(i))
Next I

Scripting.Dictionary VBAオブジェクトを使用してこれを行うことも知っていますが、コレクションでこれが可能かどうか疑問に思っていました。

VBAコレクションでキー/値のペアを反復処理できますか？

vbaexcel-vbacollectionsexcel
17
Peter Rankin

コレクションからキーの名前を取得することはできません。代わりに、辞書オブジェクトを使用する必要があります。

Sub LoopKeys()
    Dim key As Variant

    'Early binding: add reference to MS Scripting Runtime
    Dim dic As Scripting.Dictionary
    Set dic = New Scripting.Dictionary

    'Use this for late binding instead:
    'Dim dic As Object
    'Set dic = CreateObject("Scripting.Dictionary")

    dic.Add "Key1", "Value1"
    dic.Add "Key2", "Value2"

    For Each key In dic.Keys
        Debug.Print "Key: " & key & " Value: " & dic(key)
    Next
End Sub
30
Peter Albert