前回は横の塗りつぶしをしましたが、今回は縦の塗りつぶしです。
VBAで下の図のように塗りつぶします。
コードです。
Sub 色3()
Dim a As Integer
For a = 2 To 10
Cells(a, 2).Select
Selection.Interior.Color = 65535
Next a
End Sub
横に塗りつぶすときとほぼ同じです。Cellsの変数の場所が違うだけです。
次に一行ずつ塗りつぶすコードです。
Sub 色4()
Dim a As Integer
For a = 2 To 10 Step 2
Cells(a, 4).Select
Selection.Interior.Color = 65535
Next a
End Sub
ForのループをStep2とすることで、aを
2 4 6 8 10
と動かすことで、一行ずつ塗りつぶします。
あとは始点と終点を自由に変数で定義することで、縦横の塗りつぶしをコードで管理できるように
なります。
今日は久しぶりに一日事務所にいました。
お蔭で随分仕事がはかどりました。
本日も最後までお読み頂きありがとうございました。
