2006.03.24

VBAで可変配列(Collectionオブジェクト)

要素が不定である、
可変の配列を作成したい場合があります。

.NETではArrayListを使用しており、
Excelマクロ等、VBAで似たことが行いたかったので
方法を調べてみました。

どうやらCollectionオブジェクトで
代用できるようです。

Private Sub CollectionSample()
Dim lcolNameList As Collection
Dim v1 As Variant

 Set lcolNameList = New Collection
  With lcolNameList
   .Add ("けねでぃ")
   .Add ("じょんそん")
   .Add ("にくそん")
   .Add ("ふぉーど")
   .Add ("かーたー")
   .Add ("れーがん")
   .Add ("ぶっしゅ")
   .Add ("くりんとん")
   .Add ("ぶっしゅ")
  End With

  For Each v1 In lcolNameList
    Debug.Print (v1)
  Next

  Set lcolNameList = Nothing

End Sub

知っておくと、なかなか便利かもしれません。

コメントを投稿

(いままで、ここでコメントしたことがないときは、コメントを表示する前にこのブログのオーナーの承認が必要になることがあります。承認されるまではコメントは表示されません。そのときはしばらく待ってください。)

photo
admin