DictionaryでKey(キー)やItem(アイテム)をループして取得する方法3種類

‘==============================================
‘Dictionaryからループを使ってデータを取得する
‘==============================================
Sub Dictionaryループ()

    Dim dic As New Dictionary
    Dim i As Integer

    dic.Add "キー1", "アイテム1"
    dic.Add "キー2", "アイテム2"
    dic.Add "キー3", "アイテム3"

    ‘————————————————
    ‘■「アイテム」を取り出す ※インデックスは0から
    ‘————————————————
    For i = 0 To dic.Count – 1

        Debug.Print dic.Items(i)

    Next i

    ‘————————————————
    ‘■「キー」を取り出す
    ‘————————————————
    For i = 0 To dic.Count – 1

        Debug.Print dic.Keys(i)

    Next i

    ‘————————————————
    ‘■両方同時に取り出す(キー → アイテム)
    ‘————————————————
    Dim Var As Variant

    For Each Var In dic

        Debug.Print Var & “,” & dic.Item(Var)

    Next Var

End Sub