ExcelVBAでセルの塗りつぶし~④変数を使う 縦と横の動き

Pocket

縦と横の動きを解説しましたが、それをくっつけます。
A2に縦に動かす行数を、B1に横に動かす列数を入力します。
そしてB2(赤いセル)を基準にその指定した数だけ、塗りつぶしをします。
2605031
VBAのコードです。

Sub 色5()
Dim a As Integer
Dim b As Integer
For a = 2 To Cells(2, 1).Value Step 2
For b = 2 To Cells(1, 2).Value
Cells(a, b).Select
Selection.Interior.Color = 65535
Next b
Next a
End Sub

For~Next関数を二重で回します。
最初に縦を動かし、次に横を動かします。
aが2のとき、bは1~10まで動かします。
aはStep 2 なので2,4,6,8,10と動きます。
ですので、次は
aが4のとき、bは1~10まで動かします。
この繰り返しでセルを塗りつぶしていきます。

実行結果です。
2605032
値を変えて、もう一度実行します。
2505033

GW一日目。
午前中は子供と公園に、午後は不覚にも昼寝でつぶしてしまった・・・
夜は仕事しよ。

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