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

連想配列を使用する方法(Dictinaryの使用方法)

スポンサーリンク
VBA(実行可能なサンプルコード)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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 "ループ1回目:" & key
         Debug.Print "ループ1回目:" & dicColors(key)
    Next key
     
    '値の一部を変更
    dicColors("red") = "朱"
    dicColors("pink") = "ピンク"
     
    For Each key In dicColors
         Debug.Print "ループ2回目:" & key
         Debug.Print "ループ2回目:" & dicColors(key)
    Next key
End Sub 
スポンサーリンク
スポンサーリンク