メニュー 表示 非表示

Scripting.Dictionary@Excel マクロ・VBA

VBAでHashTableみたなものを利用したい場合は、
Scripting.Dictionaryを利用すれば行えます。

Microsoft Scripting Runtimeを参照設定します。
Scripting.Dictionaryを生成します。
もしくは、参照設定せずにCreateObject("Scripting.Dictionary")です。

値の格納は、add キー,値
Existsにより、存在チェックが行えます。

値の取り出しは、item(key)により取得できます。
もしくは、Itemsをループしても取り出せます。



Sub test()

Dim dict As Scripting.Dictionary

'Scripting.Dictionaryを生成
Set dict = New Scripting.Dictionary

dict.Add "keyA", "itemA"
dict.Add "keyB", "itemB"
dict.Add "keyC", "itemC"
dict.Add "keyD", "itemD"

'キーによる存在チェック
If dict.Exists("keyA") Then
    MsgBox ("存在します。")
End If

'値の取り出し
MsgBox (dict.item("keyB"))

'値をすべて取り出し
Dim item
For Each item In dict.Items
    Debug.Print item
Next

End Sub




Copyright (C) Excelマクロ・VBAのお勉強. All Rights Reserved.