コレクションとは｜ExcelマクロVBA入門

最終更新日：2018-01-27

第58回.コレクションとは

同種のオブジェクトを複数まとめたものを「コレクション」と呼びます、

コレクションもオブジェクトの一種です。

例えば、

Workbookオブジェクトが複数まとまったものは「Workbooksコレクション」

Worksheetオブジェクトが複数まとまったものは「Worksheetsコレクション」

オブジェクト名が単数形であるのに対し、

コレクション名が複数形であることがポイントです。

多くの場合、○○○オブジェクトに対応する、○○○sコレクションがあります。
（全てのオブジェクトにコレクションがあるわけではありません）

従って、Excelには、多くのコレクションがあります。

コレクションの中から、から単一オブジェクトを指定する場合

コレクション.Item(インデックス)

または、

コレクション.Item(オブジェクト名)

なのですが、

普通は、.Itemを省略して、

コレクション(インデックス)

または、

コレクション("オブジェクト名")

のように書きます。

具体的には、

Workbooks("Book1.xls")
Worksheets("Sheet1")
Worksheets(1)

等になります。

この使い方は、既に何度も出てきたものですので、問題は無いでしょう。

セルであるRangeオブジェクトのコレクションは

セルであるRangeオブジェクトのコレクションは、どうなっているのでしょうか。

少なくとも、~~Rangesコレクション~~というものはありません。

Rangeコレクションという言い方も、普通はしません。

言わば、セル（単一セル）のコレクションが、Rangeオブジェクトなのです。

そもそも、単一セルを表すオブジェクトが存在していないのです。

Cellsが複数形で、Cellオブジェクトのコレクションのような感じを受けるにもかかわらず、

Cellオブジェクトなんて存在していない事が、余計に混乱を招いているのかもしれません。

Rangeオブジェクトだけが特別なのです。

Rangeは、オブジェクトでもあり、コレクションでもあります。

コレクションの要素数

コレクション.Count

これで、コレクション内のオブジェクト数を取得できます。

つまり、

コレクション(1)
コレクション(2)
・・・
コレクション(コレクション.Count)

これらが、単一のオブジェクトであり、その集合がコレクションとなっています。

ワークシートの場合なら、

例えば、「Sheet1」「Sheet2」「Sheet3」の３つのシートがある場合

Worksheets.Count　→　3
Worksheets(1)　→　Sheet1
Worksheets(2)　→　Sheet2
Worksheets(3)　→　Sheet3

と言う事になります。

Collectionオブジェクト

Collectionオブジェクトとは、1つのオブジェクトとして参照できる複数の要素の集合です。
Collectionオブジェクを利用すると、互いに関連付けられた複数の要素を 1 つのオブジェクトとして参照できます。
つまり、
文字列、数値、オブジェクトを要素とした独自のコレクション（オブジェクト）を作成できるという事です。

コレクションのメンバは、同じデータ型を共有する必要はありません。
つまり、データ型の違うデータを1つのコレクションに入れられるという事になります。

Collection オブジェクトに、メンバを追加するときにはAddメソッドを使います。
Addメソッドの引数
　引数Itemの値は重複可能ですが、
　引数Keyには重複する値を指定できずエラーとなります。
　引数Key省略可能ですが、その場合は当然キーによる要素へのアクセスは出来なくなります。

メンバを削除するときにはRemoveメソッドを使います。

作成したCollectionオブジェクトの使い方は、前述のコレクションと同様になります。

使用例

Dim cols As New Collection
'または、以下のように、DimとSetを使う
'Dim cols As Collection
'Set cols = New Collection

With cols
　　.Add Item:="アイテム1", Key:="key1"
　　.Add Item:="アイテム2", Key:="key2"
　　.Add Item:="アイテム3", Key:="key3"
　　.Remove ("key3")
　　.Add Item:="アイテム4", Key:="key4"
End With

MsgBox cols.Count '3と表示
MsgBox cols(1) 'アイテム1と表示
MsgBox cols.Item(2) 'アイテム2と表示
MsgBox cols.Item(3) 'アイテム4と表示
MsgBox cols("key4") 'アイテム4と表示