Excel VBA | キーと値のペアを即時ウィンドウに一気に出力する便利なワンライナー

即時ウィンドウでDictionaryのキーと値のペアを一気に出力する便利なワンライナー

Scripting.Dictionary の中身を即時ウィンドウでまとめて確認したいとき、キーと値のペアを一気に出力するワンライナーが役立ちます。

ワンライナー例

For Each k In dict.Keys: Debug.Print k & " => " & dict(k): Next

For Each k In dict.Keys: Debug.Print k & " => " & dict(k): Next

• dict.Keys → キーの一覧を返す
• Debug.Print → 即時ウィンドウに出力
• k & " => " & dict(k) → キーと値を「キー => 値」の形式で表示

実行例

Sub TestDictPairs()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    dict.Add "A", "Apple"
    dict.Add "B", "Banana"
    dict.Add "C", "Cherry"
    
    Stop   ' ← 即時ウィンドウでワンライナーを実行
End Sub

Sub TestDictPairs()
    Dim dict As Object
    Set dict = CreateObject("Scripting.Dictionary")
    
    dict.Add "A", "Apple"
    dict.Add "B", "Banana"
    dict.Add "C", "Cherry"
    
    Stop   ' ← 即時ウィンドウでワンライナーを実行
End Sub

即時ウィンドウで:

For Each k In dict.Keys: Debug.Print k & " => " & dict(k): Next

For Each k In dict.Keys: Debug.Print k & " => " & dict(k): Next

出力:

A => Apple
B => Banana
C => Cherry

ポイント

• ワンライナーなので即時ウィンドウに直接貼り付けて実行できる
• 区切り文字は自由に変更可能（例：":" や " | "）
• 値一覧だけなら Join(dict.Items, ", ") が便利

👉 このワンライナーを覚えておくと、Dictionaryの中身を即時ウィンドウで一気に確認でき、デバッグ効率が大幅にアップします。