ExcelVBAでセルの塗りつぶし12~チェックボックスの規制

Pocket

色を選択するときに、違う色に✔が二つ以上ついてしまいます。
2605281
これを一つ色を選択したら、他の色が選択されないようにします。

チェックボックスをクリックしたときに、他のチェックボックスの値をfalseに
するVBAコードです。
2605282
実行してみると、チェックボックスをクリックするたびに、違う色についていた✔が消えます。
2605283

もし二つ以上✔がついていた場合、VBAのコードが、青 緑 黄 赤の順番で流れていく
ので、後ろの色が最終的に選択されます。
例えば、青と黄にチェックがついていたら、黄 という具合です。
あんまりいい状態とはいえないので、やはり✔が一つしかつけないように規制する必要があります。

バタバタだった5月が終わろうとしています。あと1件決算が残っていますが、
すぐ終わるので、やっと落ち着けます。
しかし今月は一人でテンパって、随分周りの人に迷惑をかけてしまいました。
来年はこうならないように、来月から準備です。

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