[[20150412064805]]　『チェックボックス：一つに連動して他もチェック』（初心者）　ページの最後に飛ぶ

『チェックボックス：一つに連動して他もチェック』（初心者）

質問です。
ActiveXコントロールを用いてチェックボックスを作成しました。
一つにチェックを入れると、他の数個にもチェックが入るようにしたいですが、うまく動きません。

全部で12個あるチェックボックスのうち、同時にチェックを入れたいのは1～6です
12番のチェックボックスがオンオフになっていて、オフ時は全て外せるようにもしたいです。
できれば式自体をスッキリとまとめたいです。
以下、書いてみたものを貼っておきます。

Private sub checkbox12_click()
If checkbox12.value Then
Checkbox1 = true
Checkbox2 = true
:
:
Checkbox6 = true
End if
End sub

初歩的なことかもしれませんが、よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

If CheckBox12.Value = True Then
CheckBox1.Value = True
・
・
ElseIf CheckBox12.Value = False Then
CheckBox1.Value = False
・
・
End If
では
（Hara） 2015/04/12(日) 07:34

 >ActiveXコントロールを用いてチェックボックスを作成しました。 
 どこに作成したのですか？　こういうところをはっきり記述してください。

 ActiveXコントロールは、ユーザーフォームにもシートにも貼り付けることができます。
 貼り付けた場所により、同じActiveXコントロールでも記述が違う場合があります。

 殊更ActiveXコントロールと記述するところから、シートに貼り付けたそれだとすると・・・、

 対象シートのモジュールに

 Option Explicit
 Private Sub CheckBox12_Click()
    Dim g0 As Long
    With CheckBox12
       For g0 = 1 To 6
          Me.OLEObjects("checkbox" & g0).Object.Value = .Value
       Next
    End With
 End Sub

（ichinose） 2015/04/12(日) 07:40

シートに作成しておりました。
説明不足で申し訳ありません…。
ichinoseさんのコードで問題なく動作いたしました！
ありがとうございます！
もっと勉強してまいります。。
（初心者） 2015/04/12(日) 09:17

コメント返信：

[ 一覧(最新更新順) ]

[[20150412064805]] 『チェックボックス：一つに連動して他もチェック』（初心者） ページの最後に飛ぶ

[[20150412064805]]　『チェックボックス：一つに連動して他もチェック』（初心者）　ページの最後に飛ぶ