コレクションのインデックス番号は、から。配列と違い 0 からではないので注意!

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 ブログランキングへ