次に変数を使ってまとめて塗りつぶしをします。
B4からJ4までまとめて塗りつぶします。
実行するコードです。
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までセルを一つ飛ばしで塗りつぶします。
実行するコードです。
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 と設定することで、一つ飛ばしで塗りつぶします。
基本的にこの二つを組み合わせることで、自由自在にセルを塗りつぶすことができます。
今日は家電量販店でパソコンを物色。
お客さんに購入を頼まれたので、家電量販店を見てきましたが、
やはりネットでダイレクトで買った方が、安くていいのが買えるような
気がしました。
本日も最後まで御読み頂きありがとうございます。
