2016/09/17

VBAでJavaのListっぽいこと

'' 変数宣言
Dim list As Object

'' リストオブジェクト作成
Set list = CreateObject("Scripting.Dictionary")

'' キー、値追加
list.add "key", "value"

'' キーを指定して、値を参照
list("key")

'' 件数
list.Count

'' 指定したキーが存在するかどうかチェック
list.Exists("key")

'' ループ
Dim listKey as Object
Dim val As Object

Set listKey = list.Keys
For Each val In listKey
  '' キーを指定してリストにアクセス
  list(val)
Next