【VBA】Dictionaryオブジェクト(連想配列)

Option Explicit
'-------------------------------------------------------------------
' 関数: dictionary_test
' 説明:
'   Scripting.Dictionary オブジェクトの基本操作
'    （生成・追加・参照）を確認するテスト用関数
'
'   <生成>
'   ・Dictionary の生成方法 2 パターン
'     ※ 使用前に「参照設定」で「Microsoft Scripting Runtime」に
'        チェックを入れること｡
'   ・参照設定なし（遅延バインディング）の方法 1 パターン
'   <追加>
'   ・Key と Item の追加方法 2 パターン
'   <参照>
'   ・特定キーの値取得
'   ・Keys / Items を使った全要素の列挙
'
' 注意:
'   ・使用前に「参照設定」で「Microsoft Scripting Runtime」に
'     チェックを入れること。
'   ・Dictionary は Key の重複を許可しない。
'   ・Keys(i), Items(i) は 0 から Count-1 のインデックスでアクセス可能。
'
' 使用例:
'   Call dictionary_test
'
' 戻り値:
'   なし（MsgBox に結果を表示）
'-------------------------------------------------------------------
Sub dictionary_test()
'   <生成>
    '---------------------------------------------
    ' 変数設定
    '---------------------------------------------
    Dim i As Integer    ' ループ用
    Dim s As String     ' MsgBox 表示用文字列

    ' Dictionary の生成（パターン1）
'     Dim tests As New Scripting.Dictionary
    
    ' Dictionary の生成（パターン2）
'     Dim tests As Scripting.Dictionary
'     Set tests = New Scripting.Dictionary

    ' 参照設定なし（遅延バインディング）の場合
    Dim tests As Object
    Set tests = CreateObject("Scripting.Dictionary")
    Dim keysArr As Variant
    Dim itemsArr As Variant

'   <追加>
    '---------------------------------------------
    ' Key と Item の追加
    '---------------------------------------------
    ' Key と Item の追加（パターン1）
'     tests.Add Key:="A", Item:="あいうえお"
'     tests.Add Key:="B", Item:="いろはにほへと"
'     tests.Add Key:="C", Item:="AABBCCDDEE"
'     tests.Add Key:="D", Item:="永氷水"

    ' Key と Item の追加（パターン2）
     tests.Add "A", "あいうえお"
     tests.Add "B", "いろはにほへと"
     tests.Add "C", "AABBCCDDEE"
     tests.Add "D", "永氷水"

'   <参照>
    '---------------------------------------------
    ' 特定キーの値を取得して表示
    '---------------------------------------------
    MsgBox tests.Item("B")

    '---------------------------------------------
    ' Dictionary の全要素を列挙して文字列化 / 表示
    '---------------------------------------------
    ' 参照設定なし（遅延バインディング）の場合 ここから
    keysArr = tests.Keys
    itemsArr = tests.Items
    ' 参照設定なし（遅延バインディング）の場合 ここまで
    
    s = "dictionary" & vbCrLf

    For i = 0 To tests.Count - 1
    ' 参照設定あり（事前バインディング）の場合
'        s = s & tests.Keys(i) & "=" & tests.Items(i) & vbCrLf
    ' 参照設定なし（遅延バインディング）の場合
        s = s & keysArr(i) & "=" & itemsArr(i) & vbCrLf
    Next

    ' 結果を表示
    MsgBox s

End Sub

　注意にも書きましたが、事前(早期)バインディングの「Dictionary の生成（パターン1）」及び「（パターン2）」では、使用前に「参照設定」で「Microsoft Scripting Runtime」にチェックを入れることをお忘れなく。

　Wordでも動くはずです。
(「Scripting.Dictionary」を「Dictionary」にすると、Wordでは動かないので、昔ハマった)

You get articles that match your needs
You can efficiently read back useful information
You can use dark theme

What you can do with signing up