エクセルでチェックボックスをクリックしたらセルに数値を入力＆消去
下記のような表を作成しています。
□はチェックボックス（コントロールツールボックスから作成したもの）で、
A1のチェックボックスにチェックするとD1とE1に○印が入り、
チェックを消すと○印も消えるようにしたいのです。
（B,Cのチェックボックスは違うセルに○印を入れるのですが、
他のチェックボックスと○を付ける項目が重複している所もあります）
ＡＢＣＤＥＦＧ
１□□□
２□□□
コードはこのようなものを書きました。
Private Sub CheckBox1_Click()
Dim teiban As Integer
teiban = ActiveSheet.CheckBox1.Value
Select Case teiban
Case True
Range("D1,E1").Value = "○"
Case False
Range("D1,E1").Value = ""
Case Else
Range("D1,E1").Value = ""
End Select
End Sub
同じ列にあるチェックボックスは違う行で同じ列に○印が入るのですが、
コードはいちいちチェックボックスごとに書かなければいけないでしょうか？
それと、行数を増やす場合があるのですが、1行目をコピーして3行目に
貼り付けてもチェックボックスはコピーされません。
何か方法がありますでしょうか？
もしチェックボックスではこのような事ができないのであれば
他にやり方などあれば教えていただけたらと思います。
使用しているのはWINDOWS98,EXCEL97です。
ご存知の方、よろしくお願いします。
お礼
回答ありがとうございました。 参考になりました！