Excel VBA Mapを使う

Excel VBA Mapを使う

[Excel VBA]

link

Excelで統計を学ぶ。すごくわかりやすい！！

VBScript Dictionary オブジェクト

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/script56/html/jsobjdictionary.asp

• 連想配列、マップと同じ。項目はデータの任意の形式で配列に保存。
• 各項目には、項目を一意に識別するためのキーが関連付けられる。
• キーは、配列以外の値を使用する。

メソッド

メソッド	用法	内容
Add	object.Add (key， item)	1 組のキーと項目を追加
Exists	object.Exists(key)	キーが Dictionary オブジェクト内に存在する場合は、真
Items	object.Items()	オブジェクト内のすべての項目を格納した配列を返す
Keys	object.Keys()	すべての既存キーを格納した配列を返す
Remove	object.Remove(key)	キーと項目の組みを削除
RemoveAll	object.RemoveAll()	すべてのキーと項目を削除

プロパティ

プロパティ	用法	内容
Count	object.Count	項目の数を返す
Item	object.Item(key)[ = newitem]	指定されたキーと関連付ける項目を設定、取得
Key	object.Key(key) = newkey	キーを設定

例

Dim map          As Object
Dim key          As String
dim value        as String

'Map生成
Set map = CreateObject("Scripting.Dictionary")

'データ投入
Call map.Add(key, value)

'キーセット取得
Dim keys   As Variant
Dim i As Long
 
keys = map.keys()
For i = 0 To map.Count - 1
    Debug.Print keys(i)
Next

' 存在を確認
If map.Exists(key) Then
    Debug.Print "Exsists."
End If

' 値を取得(格納する値がObjectの場合、Setキーワードが必要)
value = map.Item(key)

関連

• JavaScript 連想配列(Map)のキーを取り出す

link