2つ以上のチェックボックスを連動させるには?

質問

Eecelで、同一シートに複数のチェックボックスがあるとき、ある特定のチェックボックスにチェックを入れると、他の特定のチェックボックスに自動的にチェックが入るようにするには、どうすればいいのでしょうか?

回答No.1

noname#165268 · ベストアンサー

チェックボックスは「フォーム」のチェックボックスを使用されていますか？
その場合、リンクするセルを指定できるはずです。
ここでVBAを使って
仮に１A1にあるのチェックボックスにチェックを入れた時、
B1、C1のチェックボックスにチェックを入れたいとします。
Sub test()
If Cells(1, 1) = true Then
cells(1,2)=true
cells(1,3)=true
elseif Cells(1, 1) = False Then
cells(1,2)=false
cells(1,3)=false
End if

これをA1のチェックボックスの「マクロを登録」のところで指定して下さい。

これで連動すると思いますが。

お礼

ありがとうございます。よく分かりました。

回答No.3

noname#165268

わざわざVBAを使わなくても
＃２の方がおっしゃる通り、リンクするセルを同じにしておけば
連動して動きます。
失礼しました。

お礼

ありがとうございます。しかし、VBAの勉強になりました。

回答No.2

Trick--o--

チェックボックスにチェックすると、
「リンクするセル」で指定したセルに「TRUE」が入ります。
チェックを外すと「FALSE」が入ります。
灰色表示だと「#N/A」が入ります。

セルの内容を上記のいずれかにすると、それに合わせてチェックの状態も変わります。
なので、「リンクするセル」を同じにすると、片方をチェックするともう片方もチェックされるようになります。

応用してください。

お礼

スマートな方法ですね。ありがとうございました。