!!!Excel VBA Mapを使う [Excel VBA] {{amazon 479811958X}} 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)のキーを取り出す {{amazon 4798122084}} {{include_html redirect_html, "!EXCEL_VBA_MAP"}}