Dictionaryを使うには

登録したKeyキーとitemアイテムを出力する

6. 連想配列に登録したKeyキーとitemアイテムを出力してみましょう。
   先ほどはメッセージボックスでしたので今回は、イミディエイトウィンドウに出力します。
   イミディエイトウィンドウに出力するには、 Debug.Print を使います。
   すべての連想配列に登録したアイテムを一括で取得するには、ループして取得します。
   「For Each～Next」で取得することも、「For～Next」で取得することもできます。
   はじめにFor Eachで取得してみましょう。

   Sub dict01_b2()
   Dim dic As New Scripting.Dictionary
       dic.Add "peaches", "50"
       dic.Add "apricots", "80"
       dic.Add "watermelons", "20"
       'For Each STATEMENT で取得
       Dim Menber
       For Each Menber In dic
           Debug.Print Menber & " " & dic(Menber) '
       Next
   Set dic = Nothing
   End Sub
   

   
   

   連想配列に登録したKeyキーとitemアイテムを出力For文を使った構文

   

7. つづいて　For 文でDictionaryに登録したメンバーを取得してみましょう。 for 文で回して取得するには、
   Dictionaryオブジェクトに登録された要素の数を取得する必要があります。数を取得
   するには DictionaryのCount メソッドがあります。
   コードの中でマイナス1としているのは dictionary の要素がゼロから始まるからです。
   でも要素の数は1から始まっているということでその差を引いているのです。

   Sub dict01_b3()
   Dim dic As New Scripting.Dictionary
       dic.Add "peaches", "50"
       dic.Add "apricots", "80"
       dic.Add "watermelons", "20"
       ' For STATEMENT で取得
       Dim i As Long   
       For i = 0 To dic.Count - 1
           Debug.Print dic.Keys(i) & " : " & dic.Items(i)
       Next
   Set dic = Nothing  '
   End Sub

   

Dictionaryのキーとアイテムをセルに書き出す場合

8. セルに書き出す場合は、
   Debug.Print dic.Keys(i) & " : " & dic.Items(i)の部分を次のように書き換えることでセルに出力できます。
   Cells(i + 1, 1).Value = dic.Keys(i)
   Cells(i + 1, 2).Value = dic.Items(i)

   Sub dict01_c1()
       Dim dic As New Scripting.Dictionary  'Microsft scriptingRuntime を使った場合
       dic.Add "peaches", "50"
       dic.Add "apricots", "80"
       dic.Add "watermelons", "20"
       For i = 0 To dic.Count - 1
           Cells(i + 1, 1).Value = dic.Keys(i)
           Cells(i + 1, 2).Value = dic.Items(i)
       Next
       Set dic = Nothing
   End Sub

   

ワークシートのデータからDictionaryに登録