連想配列を使用する方法（Dictinaryの使用方法）

Option Explicit
 
Sub test()
    Dim dicColors As Object
    Set dicColors = CreateObject("Scripting.Dictionary")
    
    'キーと値を追加。
    dicColors.Add "red", "赤"
    dicColors.Add "blue", "青"
    dicColors.Add "pink", "桃"
    
    '連想配列をループして中身を表示。
    Dim key As Variant
    
    For Each key In dicColors
         Debug.Print "ループ１回目：" & key
         Debug.Print "ループ１回目：" & dicColors(key)
    Next key
     
    '値の一部を変更
    dicColors("red") = "朱"
    dicColors("pink") = "ピンク"
     
    For Each key In dicColors
         Debug.Print "ループ２回目：" & key
         Debug.Print "ループ２回目：" & dicColors(key)
    Next key
End Sub