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
|
