ExcelVBAでセルの塗りつぶし10~色の取消

Pocket

塗りつぶしたところを、塗りつぶしなしに戻せるようにします。

ユーザーフォームにコマンドボタンを配置して、Captionを「取消」とします。
2605211
次のVBAコードを入力します。

Private Sub CommandButton2_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.Pattern = xlNone
Next b
Next a
End Sub
太文字部分は、マクロで塗りつぶしなしを記録させたコードを参考に作りました。
塗りつぶした場合(上)と、塗りつぶしなしにした場合(下)のコードの違いです。
2605214
ざっと見た感じ、Colorと書かれているところは、今回は塗りつぶしをしないので
多分関係ないであろう、そして赤枠部分がNoneと書かれているので、色を使わない
ということなんだろうなあと、勘付けます。この辺は慣れです。
うまくいくまで試してみて下さい。
ちなみにxlSolidの意味さえ分かりませんが、何とかなるのがマクロ記憶のいいところです。
マクロ記録の方法は、こちら。
実行結果です。
2605212
取消をクリックすると色が消えます。
2605213

昨日初めて支部の定時総会に出席しました。
今年から支部の理事になったので、半ば強制参加でしたが、
懇親会では知り合いの先生といろいろとお話しできて良かったです。
また来年も行こうかな。
でも何もこの時期にやらなくてもと思うのは私だけではないはず・・・

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