<Excel, VBA> Dictionaryのキーと要素を同時に取り出す。

pythonでも似たようなことを探した覚えがあるが、
連想配列Dictionaryのキーkeyと要素itemを同時に取り出す。

Sub hage()

    Dim Var As Variant

    For Each Var In dic

        MsgBox  Var + “ ” + dic.Item(Var)

    Next Var

End Sub

あと、keyだけとか、itemだけとか、、

Sub hage()

    For i = 0 To dic.Count – 1

        MsgBox  dic.Keys(i)

    Next i

End Sub

Sub hage()

    For i = 0 To dic.Count – 1

        MsgBox dic.Items(i)


    Next i

End Sub

何故かインデックスindexは0からスタート。注意。