Sub 多次元コレクション()
Dim 第1コレクション As New Collection
Dim 第2コレクションA As New Collection
Dim 第2コレクションB As New Collection
'コレクションに値を入れる
第2コレクションA.Add "コレクションAの値", "8月"
第1コレクション.Add 第2コレクションA, "A"
第1コレクション.Add 第2コレクションB, "B"
'空っぽだったコレクションに後から追加することも可能
第1コレクション("B").Add "コレクションBの値", "8月"
Debug.Print 第1コレクション("A")("8月")
Debug.Print 第1コレクション("B")("8月")
End Sub
【エクセル/VBA】コレクションの中にコレクションを入れる

コメント