Excel VBA Mapを使うの変更点

• 追加された行はこのように表示されます。
• 削除された行はこのように表示されます。

!!!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, "!XXXXX"}}
{{include_html redirect_html, "!EXCEL_VBA_MAP"}}