ExcelVBAでセルの塗りつぶし~②変数を使う

Pocket

次に変数を使ってまとめて塗りつぶしをします。

B4からJ4までまとめて塗りつぶします。
2604291
実行するコードです。

Sub 色2()
Dim a As Integer
For a = 2 To 10
Cells(4, a).Select
Selection.Interior.Color = 65535
Next a
End Sub

4行目を変数aをつかって、B列からJ列まで動かし、塗りつぶしていきます。

次に、同じくB4からJ4までセルを一つ飛ばしで塗りつぶします。
2604292

実行するコードです。

Sub 色2()
Dim a As Integer
For a = 2 To 10 Step 2
Cells(6, a).Select
Selection.Interior.Color = 65535
Next a
End Sub

6行目を変数aをつかって、B列からJ列まで動かし、塗りつぶしていきます。
但し、Step 2 と設定することで、一つ飛ばしで塗りつぶします。

基本的にこの二つを組み合わせることで、自由自在にセルを塗りつぶすことができます。

今日は家電量販店でパソコンを物色。
お客さんに購入を頼まれたので、家電量販店を見てきましたが、
やはりネットでダイレクトで買った方が、安くていいのが買えるような
気がしました。

本日も最後まで御読み頂きありがとうございます。