
動画で楽にパソコンが身につく方法はこちら>>
特定のセル範囲にまとめて同じ処理を行う場合にもFor Each…Next文を使用します。
[書式]
For Each 変数 In セル範囲
処理
Next
セル範囲に対象となるセル範囲を指定します。
[例]
For Each セル範囲
In Range(“A3:C10”)
If セル範囲.Value = “” Then
セル範囲.Interior.ColorIndex = 12
End If
Next
[サンプルC111]
Sub C111()
Worksheets(“C111”).Select
Dim セル範囲 As Range ①
For Each セル範囲 In Range(“A3:C10”) ②
If セル範囲.Value = “” Then
セル範囲.Interior.ColorIndex = 12
End If
Next
End Sub
Dim セル範囲 As Range ①
Rangeオブジェクト型の「セル範囲」という名前の変数を宣言しています。
For Each セル範囲 In Range(“A3:C10”) ②
In Range(“A3:C10”)で「A3~C10」のセル範囲すべてに対し、For Each文を使って
If セル範囲.Value = “” Then
セル範囲.Interior.ColorIndex = 12
と記述して、
もし、セルに値が入っていない部分には塗りつぶしを行います。

動画で楽にパソコンが身につく方法はこちら>>