Dictionary の要素の値を変更する方法

エクセル VBA で、 Dictionary の要素の値を変更するサンプルコードは次の通りです。

VBA（実行可能なサンプルコード）
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23	Option Explicit Sub test() 'Dictionary　の初期化 Dim dicColors As Object Set dicColors = CreateObject("Scripting.Dictionary") 'キーと値を追加。 dicColors.Add "red", "赤" dicColors.Add "blue", "青" dicColors.Add "pink", "桃" '値の一部を変更 dicColors("red") = "朱" dicColors("pink") = "ピンク" 'ループして中身を確認 Dim key As Variant For Each key In dicColors Debug.Print "キーの値：" & key & "、格納している値：" & dicColors(key) Next key End Sub

VBA（実行可能なサンプルコード）

Option Explicit
 
Sub test()
    'Dictionary　の初期化
    Dim dicColors As Object
    Set dicColors = CreateObject("Scripting.Dictionary")
    
    'キーと値を追加。
    dicColors.Add "red", "赤"
    dicColors.Add "blue", "青"
    dicColors.Add "pink", "桃"
     
    '値の一部を変更
    dicColors("red") = "朱"
    dicColors("pink") = "ピンク"
    
    'ループして中身を確認
    Dim key As Variant
    
    For Each key In dicColors
        Debug.Print "キーの値：" & key & "、格納している値：" & dicColors(key)
    Next key
End Sub

上記の実行結果は次の通りです。

実行結果
1 2 3	キーの値：red、格納している値：朱キーの値：blue、格納している値：青キーの値：pink、格納している値：ピンク

▲このページの一番上に戻る