コマンドボタンをクリックしたときの動作を入力します。
コードです。
Private Sub CommandButton1_Click()
Dim a As Integer
Dim b As Integer
For a = TextBox2 To TextBox4 Step 2
For b = TextBox1 To TextBox3
Cells(a, b).Select
Selection.Interior.Color = 65535
Next b
Next a
End Sub
先に行を動かし、列を動かします。
aは、2,4,6,8,10・・・と動きます。
bは、1,2,3,4,5,6,7･･･と動きます。
Cells(a, b).Selectがどこのセルを移動しているのか追ってみて頂ければ
そんなに難しいコードではないと思います。
実行します。
実行結果です。
ピボットテーブルの図であれば、塗りつぶしをしてくれますが、通常の図であると
必要に応じ自分で引く必要があります。結構塗りつぶすのは手間がかかるので、
自分で自由に範囲を指定して塗りつぶしができるだけでも、随分楽になります。
本日も最後までお読み頂きありがとうございます。
