セルに入力されたら チェックボックスにチェック

タイトルのとおりなのですが、Ａ列にチエックボックスをA・B・C・Dと
作り、たとえばC１にBと入力されたらチェックボックスのBにチェックを
入れたいです。

No.3 回答者： KURUMITO 回答日時： 2010/01/10 09:36

解答Ｎｏ2です。

マクロで対応する方法です。
チェックボックスは「表示」メニューから「ツールバー」さらに「コントロールツールボックス」を選択して、表示されるボックスから「チェックボックス」をクリックして、Ａ1セルやＡ2セル・・・の部分に表示させます。
その後にボックスの中の「コードの表示」をクリックします。
マクロを作成する画面が表示され、そこにはPurivate Sub CheckBox1_Click()のような表示がされるでしょう。
それを消して次のようなコードを入力します。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target=Range("C1") Then
CheckBox1.Value=False
CheckBox2.Value=False
CheckBox3.Value=False
CheckBox4.Value=False
If Range("C1").Value="A" Then
CheckBox1.Value=True
ElseIf Range("C1").Value="B" Then
CheckBox2.Value=True
ElseIf Range("C1").Value="C" Then
CheckBox3.Value=True
ElseIf Range("C1").Value="D" Then
CheckBox4.Value=True
End If
End If
End Sub
最後にコードの入力が済んだら画面を閉じて、コントロールツールボックス上のアクティブとなっている「デザインモードの終了」をクリックしてボックスを閉じます。
その後にＣ1セルにＡと入力すればチェックボックス１にレ点が表示されるでしょう。
なお、フォームからチェックボックスを作成することもできますが、操作がやや複雑となりますのでここではコントロールツールボックスからチェックボックスを作成しています。

この回答へのお礼

ご回答ありがとうございました。
こちらのやり方もいいのですが今回は別の方のやり方で
行いました。

お礼日時：2010/01/11 09:52

No.2 回答者： KURUMITO 回答日時： 2010/01/09 09:07

チェックされた場所やチェックの数を数えるなどに使われるのがチェックボックスの使われ方と思うのですが全く発想が違っていますね。

お望みのことを行うのにはマクロを使わないとできませんがどんな用途で使うのでしょう？

この回答への補足

>チェックされた場所やチェックの数を数えるなどに使われるのがチェックボックスの使われ方
そうですね。
本来はそういう使いかたですよね。
ただ今回のは、説明が難しいのですがアクセスからインポートしてきた
結果をレポートにチェックして提出しなければいけないので
実際は、レポートを印刷してチェックをつけていたのですが、
これができればデータを見ながらチェックをつけるのではなく、
チェックされていれば手間がかからないです。

補足日時：2010/01/09 18:31

この回答へのお礼

解決できました。
ありがとうございます。

お礼日時：2010/01/11 09:55

No.1 回答者： end-u 回答日時： 2010/01/08 20:28

>たとえばC１にBと入力されたら...

入力セルはC1固定ですか？
C1にCと入力されたらチェックボックスのCにチェックを入れる？

そうだとすると。
それぞれのチェックボックスを以下のセルにリンクさせます。
（[フォーム]のチェックボックス[コントロールの書式設定]-[コントロール]タブ）
A…A1
B…A2
C…A3
D…A4

各セルに数式を設定してフォント色を白にします。
A1：=$C$1="A"
A2：=$C$1="B"
A3：=$C$1="C"
A4：=$C$1="D"

実際も"A,B,C,D"という文字列なら
=$C$1=CHAR(ROW()+64)
みたいな数式をコピーすれば良いです。

この回答へのお礼

ご回答ありがとうございました。
できました、大変参考になりました。

お礼日時：2010/01/11 10:00