アトム電器三軒家店
新規のお客さまからのご注文は休止中です。
(以前からお取引のあるお客様のご注文は引き続き行っております)
2022年6月1日よりPCやネットワーク関連がmuchbowに移動しました。
そのため、お問い合わせはアトム電器三軒家店(有限会社おかもとでんか)では
なく、muchbow (https://www.muchbow.com/)にお願いします。
VBAのコレクション(Collection)のループ処理
-
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
結果
なにぬねの はひふへほ まみうめも やゆよ