Excel VBA > VBA:実務活用 > DictionaryでKey(キー)やItem(アイテム)をループして取得する方法3種類
このエントリーをはてなブックマークに追加

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

Dictionaryは結構便利だけど・・

たまに使うとループからの取り出しに混乱しませんか(汗)?
セル書き込みや値の確認処理など入れると分かりにくいのでシンプルにいきました。
実際の使用では参照設定またはCreateObjectをお忘れなく。。
(追加)すみません、こちら参照設定のみできます。
このオブジェクトは「Key」と「Keys」、「Item」と「Items」があり、紛らわしいので注意です。

‘==============================================
‘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

カテゴリ:VBA:実務活用