コレクションのインデックス番号は、1から。配列と違い 0 からではないので注意!
Option Explicit
Option Explicit
Dim MyColection As New Collection
Sub TestColAdd()
'1~3まで順番に追加 1,2,3
Dim i As Long
MyColection.Add 1
MyColection.Add 2
MyColection.Add 3
End Sub
Sub TestColAdd2()
'1~3を逆順に追加 3,2,1
Dim i As Long
MyColection.Add 1
MyColection.Add 2, Before:=1
MyColection.Add 3, Before:=1
End Sub
Sub TestPrint()
'コレクションの内容をイミディエイトウィンドウに書き出し
Dim i As Long
For i = 1 To MyColection.Count
Debug.Print MyColection(i)
Next
End Sub
Sub TestColRemove()
'コレクション番号の1番をコレクション数繰り返して全て消す
Dim i As Long
Dim lngNum As Long
lngNum = MyColection.Count
For i = 1 To lngNum
MyColection.Remove (1)
Next
End Sub
Sub TestColRemove2()
'コレクション番号の2番目を消す
Dim i As Long
Dim lngNum As Long
MyColection.Remove (2)
End Sub
Microsoft Office ブログランキングへ