ExcelのVBAのFor Each文のサンプルです。
For Each文は繰り返し処理を行うことができます。
目次
For Each文
For Each 変数 In コレクション 繰り返される箇所 Next |
- コレクションの数だけ処理を繰り返します。
セルの範囲を指定するサンプル
For Each文でセルの範囲を指定するサンプルです。
4行目は、コレクションとしてセルの範囲を指定しています。
B2からC5まで処理が行われます。
Sub test1()
Dim r1 As Range
For Each r1 In Range("B2:C5")
r1.Value = "1"
Next
End Sub
上記のコードを実行した結果です。
B2からC5まで1がセットされます。
ワークシートを指定するサンプル
For Each文でワークシートを指定するサンプルです。
4行目は、コレクションとしてワークシートを指定しています。
ワークシートの数だけループ処理が行われます。
6行目は、ワークシート名がSheet2の指定したセルの範囲に1をセットしています。
Sub test1()
Dim w1 As Worksheet
For Each w1 In Worksheets
If w1.Name = "Sheet2" Then
w1.Range("B2:C5").Value = "1"
End If
Next
End Sub
関連の記事
Excel VBAのIF文のサンプル
Excel VBAのSelect Case文のサンプル
Excel VBAのFor文のサンプル
Excel VBAのDo Loop文のサンプル
Excel VBAの変数の宣言を強制するサンプル
Excel VBAのデータ型
Excel VBA セルを指定して値を設定/取得するサンプル
Excel VBA セルの値をテキストに出力するサンプル