エクセルマクロVBA

特定のセル範囲に同じ処理を行う(For Each…Nextステートメント)

投稿日:

特定のセル範囲にまとめて同じ処理を行う場合にも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”)で「A3C10」のセル範囲すべてに対し、For Each文を使って

If セル範囲.Value = “” Then    


セル範囲.Interior.ColorIndex = 12

と記述して、

もし、セルに値が入っていない部分には塗りつぶしを行います。

 





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

-エクセルマクロVBA

Copyright© エクセルVBA使い方入門 , 2020 All Rights Reserved Powered by STINGER.