分かりやすく、使いやすく。

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 

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

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