エクセルのセルをチェックボックス代わりにしたい

A1～A20に質問があり、それに対する回答を
B1～B20にチェックを入れる形にしたいと思っています。
クリックひとつで、チェックがついたり外れたり
する機能をつけるにはどうしたらよいですか？
A1→B20は罫線によって表が作られて
います。従って、フォームツールバーで作れるような
チェックボックスを使いたくないのです。
宜しくお願いいたします。

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2006/05/31 11:43

B1:B20 のフォントを、Webdings か marlett にしてからシートタブをクリックし、

コードの表示 を選択してください。
開いた画面に、以下をコピペしてから、その画面を閉じます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
　If Target.Column <> 2 Then Exit Sub
　If Target.Row > 20 Then Exit Sub
　Select Case Target.Value
　　Case Is = ""
　　　Target.Value = "a"
　　Case Else
　　　Target.Value = ""
　End Select
　Target.Offset(0, -1).Select
End Sub

この回答へのお礼

お礼が遅くなり申し訳ありません。
理想通りのものができました！
ありがとうございましたm(__)m

お礼日時：2006/06/01 09:45

No.6 回答者： misatoanna 回答日時： 2006/05/31 12:31

すみません。

＃５の訂正です。
> 処理後に強制的に右隣のセル（問題が書かれたセル）を選択
左隣りの間違いでした。

No.5 回答者： misatoanna 回答日時： 2006/05/31 12:27

＃１です。

> アクティブセル(現在のセル)をクリックしても発生しません。
SelectionChangeイベントにつきましては、＃４さまのおっしゃるとおりです。
そのため、最後の行
Target.Offset(0, -1).Select
デ、処理後に強制的に右隣のセル（問題が書かれたセル）を選択させています。

No.4 回答者： M-SOFT#2 回答日時： 2006/05/31 12:06

No.1さんの回答ですが、SelectionChangeイベントを使っているようですが、これだと「クリックしてチェックのオン・オフ」の仕様に対しては不完全ではないでしょうか？

SelectionChangeイベントは「選択範囲を変更したとき」に発生するイベントです。

「クリック」してセルを移動したときに発生するのでクリックして発生するイベントのように思いがちですが、アクティブセル(現在のセル)をクリックしても発生しません。

ところがチェックの場合は同じセルをクリックする場合が多々あると思います。

どうでしょうか？

No.3 回答者： aminaka 回答日時： 2006/05/31 11:57

ご要望とは多少違うかもしれませんが、データの入力規則のリストで、レとスペースとのリストを作成と言うのは如何でしょう？

この回答へのお礼

そういう発想の転換も必要ですね。
参考にさせて頂きます。
ありがとうございました。

お礼日時：2006/06/01 09:46

No.2 回答者： M-SOFT#2 回答日時： 2006/05/31 11:53

こんにちは。

チェックボックスを使いたくないとのことですが、となるとVBAを使うことになりますがよろしいでしょうか？

それとVBAでも正確には希望道理のことはほぼ無理だと思いますので代案となります。

それでよろしければ回答いたしますがよろしいでしょうか？

この回答へのお礼

いろいろ考えていただきまして
ありがとうございましたm(__)m

お礼日時：2006/06/01 09:47