マクロのコードについて

質問

いつも大変お世話になっております。https://okwave.jp/qa/q9846043.html
以前、こちらで質問したものです。

実際、コードを入力したら、1上がったらオレンジに、1下がったら緑になりました。本当にありがとうございました。
その続きで、そのまま一旦保存し、次回には、3から4に上がったものでも、4のままで色を付けない状態にしたいのですが（数字はそのままで、色付きを色なしにしたい）可能でしょうか？マクロボタン？などでの対応できないでしょうか？

説明が上手く出来ず、大変申し訳ありません。

回答No.1

kkkkkm · ベストアンサー

選択されているセルの色を無しにしたいのでしたら
ボタンのマクロを
Sub ボタン1_Click()
If Application.Intersect(Selection, Range("A1:C10")) Is Nothing Then
Exit Sub
End If
Application.EnableEvents = False
Selection.Interior.Color = xlNone
Application.EnableEvents = True
End Sub

で試してみてください。
前回と同じように対応するセルをA1:C10に指定しています。

お礼

いつもいつも、本当にありがとうございます。

回答No.2

kkkkkm

No1の

If Application.Intersect(Selection, Range("A1:C10")) Is Nothing Then
Exit Sub
End If

は以下に変更してください

If Application.Intersect(Selection, Range("A1:C10")) Is Nothing _
Or Selection.Count > 1 Then
Exit Sub
End If