チェックボックスにチェックをいれることでセルに色をつけたい（エクセル)

質問

行方向(例えばA2、B2、C2)に三つの項目「実施」「不十分」「未実施」を
置き、それぞれの項目の下の列方向に、表示→フォームからもってきたチェックボックスを入れます。
3つの項目のうち1つにしかチェックをいれない条件で
「不十分」にチェックをいれたときその横のＤ列のセルが黄色、「未実施」
にチェックをいれたときその横のＤ列のセルが赤色になるようにマクロを
組みたいのですが、いろんなサイトをみながらトライしても上手くいき
ません。
学習した上で質問すればいいのですがその場渡りの質問で申し訳ありません。よろしくお願いいたします。

回答No.2

deecyan

なーんか　セキュリティチェックシートみたいだなぁ

さてチェックボックスよりラジオボタン（オプションボタン）の方がいいと思うんですが
まず　A列は　質問を書く事にして　B列は　答えの表示をするとします。

１）表示→ツールバー→フォームとして　グループボックス（XYZって書いてあるやつ）を選びます。
それを　シートにドラッグします（ちょっと大きめにね）
２）オプションボタンをえらんで先ほどの　グループボックスにきちんと入るようにいれ
　　オプションってなっている所を　実施とします
３）同様に　オプションボタンをえらんで先ほどの　実施の横において（グループボックスにきちんと入るようにいれてね）
　　オプションってなっている所を　不十分とします　　同様に未実施も作ります。（必ずグループボックスに入るように）

4）クループボックスとオプションボタンをすべて選択し　必要な数だけコピーしてきれいに並べます。（ちょっと大変だけど）

5）上から順番に　実施のオプションボタンを右クリックして　コントロールの書式設定をえらび
　コントロールのタブの　リンクするセルのところに　C2　と入れます

6）次の　実施のオプションボタンを右クリックして　同様に　C3　といれます。後はこの繰り返し

7）B2には　式をいれます　=IF(C2=1,"実施",if(C2=2,"不十分",if(c2=3,"未実施","")))
B2に　条件付書式をいれます　”数式が”　をえらんで　式に　=c2=1 として　好きな色とか選びます。
条件の追加として　　”数式が”　をえらんで　式に　=c2=2　として　好きな色とか選びます。
条件の追加として　　”数式が”　をえらんで　式に　=c2=3　として　好きな色とか選びます。

8）B2をコピーして　B3からB21まで貼り付けます。（20問として）

9）後は　B22に　=COUNTIF(C2:C21,1) といれます　これが　実施を選んだ個数
　　　　　B23に　=COUNTIF(C2:C21,2) といれます　これが　不十分を選んだ個数
　　同様に　B24に　=COUNTIF(C2:C21,3) といれます　これが　未実施を選んだ個数
です

VBAを使わないで出来る方法をかきましたが　VBAが使えるなら簡単な方法もあるんで　ゆうてください。

お礼

遅くなり申し訳ありません。ご回答ありがとうございました。
教えていただいた方法を応用して上手くいきそうなのですが、グループ
ボックスが可視状態だといけないので、ボックスを右クリック⇒切り取り
していくと、３つのボタンで１グループなのに、3つから6つ9つ（あとは
3の倍数）・・・・というふうに全部が１グループになっていきます（泣)。
これを解消できないでしょうか(回答は無理しないで)。
丁寧な回答を頂きながらすみません。でもわからなかったら
いいです（すみません）。
VBAが使えるならお聞きしたいとこですが、このグループの広がりを
解消したいです。