アトム電器 三軒家店(有限会社 おかもとでんか)のホームページ。大阪市大正区にある町の電気屋さん。家電製品の販売、エアコン、電気工事、パソコンからリフォーム、オール電化など電気のことならなんでもお任せ下さい!アトム電器三軒家店

VBAのコレクション(Collection)のループ処理

VBA開発

  • Collectionクラスのインデックスを使ったループ処理。Collectionのインデックスは1から始まります。

    Dim list As New Collection, i As Long
    			
    Call list.Add("あいうえお")
    Call list.Add("かきくけこ")
    Call list.Add("さしすせそ")
    Call list.Add("たちつてと")
    
    For i = 1 To list.Count() Step 1
    Debug.Print list.Item(i)
    Next i
    
    Set list = Nothing

    結果

    あいうえお
    かきくけこ
    さしすせそ
    たちつてと
  • CollectionクラスのFor~Eachでのループ処理。値を保存する変数はVariant型である必要があります。

    Dim list As New Collection, item As Variant
    		
    Call list.Add("なにぬねの")
    Call list.Add("はひふへほ")
    Call list.Add("まみむめも")
    Call list.Add("やゆよ")
    
    For Each item In list
    Debug.Print CStr(item)
    Next
    
    Set list = Nothing

    結果

    なにぬねの
    はひふへほ
    まみうめも
    やゆよ