Excel VBA Mapを使う
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)
関連
YAGI Hiroto (piroto@a-net.email.ne.jp)
twitter http://twitter.com/pppiroto
Copyright© 矢木 浩人 All Rights Reserved.