第59回.コレクション処理（For Each）
For Each は、コレクションの各要素に対して繰り返し処理を実行します。
コレクションはオブジェクトの集まりですので、
For Each は、
コレクションの中から、個別のオブジェクトを取り出して処理する場合に使用します。
コレクションの全ての要素に対しての処理が終わるとループは終了します。
For Each の構文
[statements]
[Exit For]
[statements]
Next [element]
| element | 必ず指定します。 コレクションの各要素を繰り返す変数を指定します。 引数 element にはバリアント型変数、総称オブジェクト型変数、または固有オブジェクト型のオブジェクト変数を指定できます。 |
| group | 必ず指定します。 オブジェクト コレクション名または配列名を指定します。 |
| statements | 省略可能です。 引数 group の各メンバに対して実行するステートメントを指定します。 |
elementのデータ型について
Variant（バリアント型） > Object（総称オブジェクト型） > 固有オブジェクト型
ということになります。
そもそも、コレクション名は解っている訳ですから、
コレクション名の最後のsを取れば、それで通常は、固有オブジェクト型になります。
Dim 変数 As ○○○
For Each 変数 In ○○○s
・・・
Next 変数
○○○がオブジェクト、○○○sがコレクションです。
ただし、
※全てのオブジェクト・コレクションについてこの規則が当てはまるわけではありません。
あくまで、このような命名規則が多いというこです。
Exit For
For Each 変数 In コレクション
・・・
If 終了すべき条件 Then
Exit
For
End If
・・・
Next
このような使い方になります。
For Each の使用例
Dim ws As Worksheet
For Each ws In
Worksheets
ws.PrintPreview
Next ws
これで、全シートが印刷プレビューされます。
（印刷プレビューについては、後々説明します。）
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).PrintPreview
Next
i
このようになります。
.Countは、コレクションの要素数です。
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Debug.Print ws.Name
Next
マクロの書かれているブックのすべてのワークシートをイミィディエイトウインドウに出力しています。
RangeオブジェクトのFor Each
Dim MyRange As Range
Dim i As Long
i = 1
For Each MyRange In
Range("A1:B5")
MyRange = i
i = i +
1
Next
これを実行してみれば解りますが、
A1,B1,A2,B2,・・・
このような順に処理されます。
例えば、とりあえず、横・縦の順でも問題なかったとしても、
その後に、縦・横の順に変更する必要が出てきたときに困る事になります。
従って、このような処理順を気にする必要がないときにのみ使用することになります。
For Each サイト内の参考ページ
同じテーマ「マクロVBA入門」の記事
第56回.Rangeオブジェクト（RangeとCells）
第57回.Applicationのプロパティ（マクロ高速化と警告停止等）
第58回.コレクションとは（Collection）
第59回.コレクション処理（For Each）
第60回.エラー処理（On Error）
第61回.「On Error GoTo」と「Exit Sub」
第62回.「On Error Resume Next」とErrオブジェクト
第63回.ブックを開く（Open,Add）
第64回.ブックを閉じる・保存（Close,Save,SaveAs）
第65回.シートの挿入、名前の変更（Add,Name）
第66回.シートのコピー・移動・削除（Copy,Move,Delete）
新着記事NEW ・・・新着記事一覧を見る
エクセル関連で「いいね」の多かったツイート｜エクセル雑感(2021-05-17)
キーボード操作だけで非表示列を表示｜エクセル雑感(2021-05-11)
変数を考えることはロジックを考える事｜エクセル雑感(2021-04-11)
RangeオブジェクトのFor EachとAreasについて｜VBA技術解説(2021-04-08)
PropertyのSetはLetでも良い｜VBA技術解説(2021-03-31)
エクセル麻雀ミニゲーム｜VBAサンプル集(2021-03-09)
VBA100本ノック 100本目：WEBから100本ノックのリストを取得｜VBA練習問題(2021-03-03)
VBA100本ノック 魔球編：2桁の最小公倍数｜VBA練習問題(2021-02-02)
Select Caseでの短絡評価（ショートサーキット）の使い方｜VBA技術解説(2021-01-03)
VBA100本ノック 迷宮編：巡回セル問題｜VBA練習問題(2020-12-31)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.Excelショートカットキー一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.RangeとCellsの使い方｜VBA入門
5.マクロって何？VBAって何？｜VBA入門
6.繰り返し処理（For Next)｜VBA入門
7.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
8.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
9.セルに文字を入れるとは（Range,Value）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。