VBAでチェックボックスを有効にしたときに、それをイベントとして別のチェックボックスが有効になるようにしたいです

Question

チェックボックスはフォームコントロールで作成しました。

まず以下のようなVBAを書きました。
これは「チェック 7」という名前のチェックボックスを右クリック→「マクロの登録」から標準モジュールのVBA編集画面を開いて作成しました。

Sub チェック1_Click()
If ActiveSheet.CheckBoxes(3).Value = xlOn And ActiveSheet.CheckBoxes(2).Value = xlOn Then
    ActiveSheet.CheckBoxes("チェック 7").Value = xlOn
  End If
End Sub

ここまでは正常に動作していて、２つのチェックボックスが両方とも有効になったときに「チェック 7」のチェックボックスが有効になるようになっています。

次に、上の処理でチェックボックスにチェックが入って有効になったときに発動することを想定して以下のようなVBAを書きました。
こちらは標準モジュールではなく「Microsoft Excel Objects」の中の「Sheet1(Sheet1)」に書きました。

Sub test2()
If ActiveSheet.CheckBoxes("チェック 7").Value = xlOn Then
ActiveSheet.CheckBoxes("チェック 8").Value = xlOn
End If
End Sub

しかしこの2つ目のマクロが全く動いていないようです。
どうしたらうまくいくでしょうか。

また、2つ目のマクロを以下のように修正しても何の反応もありませんでした。
これは「チェック 8」という名前のチェックボックスを右クリック→「マクロの登録」から標準モジュールのVBA編集画面を開いて作成しました。

Sub チェック8_Click()
If ActiveSheet.CheckBoxes("チェック 7").Value = xlOn Then
ActiveSheet.CheckBoxes("チェック 8").Value = xlOn
End If
End Sub

###やりたいこと
①チェックボックスは少なくとも全部で4つ(チェックボックス1,2,7,8)あり、チェックボックス1と2が両方ともチェックが入ったときにのみチェックボックス7に自動的にチェックが入る（実現済み）

②上記①でチェックボックス7にチェックが入ったことにより、自動的にチェックボックス8にチェックが入る

実際は②でチェックボックス7にマクロによって自動的にチェックが入ったときに、それを検知してチェックボックスへのチェックのほかにもいろいろな何らかの特定の処理が行えるようにしたいですが、マクロでチェックが入った場合は通常のSub チェック8_Click()・・では検知できないようです。

Comments

[ttyp03]

test2を呼び出しているところがなさそうですが。

[sinzou]

①の判定でチェックボックス７とチェックボックス８両方チェック入れる？
てことですか。

Answer 1

んと、いろいろ知っておく必要があることがありますが、
やりたいことから離れてしまうので混乱を避けるため、要点のみ。

フォームコントトールのチェックボックスをクリックした時にマクロを起動したいなら、

1）フォームコントロールは図形の一種と考える
2）図形と同じで、標準モジュールに書かれたマクロを登録する
3）クリックされた図形の名前はApplication.Caller プロパティで取得する

ということになります。

で、やりたいことは、
「チェックボックス 1」クリックでマクロが起動されたときに、
「チェックボックス 1」がOnの状態になっていたら、
「チェックボックス 2」と「チェックボックス 3」を選択可能なオフの状態にする。
そうでなければ、淡色表示の状態にする
「チェックボックス 7」クリックでマクロが起動されたときに、
「チェックボックス 7」がOｎの状態なら、
「チェックボックス 8」をOffの状態にする。
そうでなければ淡色表示にする。

という事でしょうか？
上記をVBAに翻訳するとだいたい以下のようになります。

Option Explicit

Sub チェックボックス_テスト()
    Dim sBoxName As String
    Dim flg As Long
    
    'マクロを呼び出した図形の名前を取得
    sBoxName = Application.Caller

    With ActiveSheet.CheckBoxes
        Select Case sBoxName
            Case "Check Box 1", "Check Box 7"
                flg = IIf(.Item(sBoxName).Value = xlOn, xlOff, xlMixed)
                If sBoxName = "Check Box 1" Then
                    .Item("Check Box 2").Value = flg
                    .Item("Check Box 3").Value = flg
                Else
                    .Item("Check Box 8").Value = flg
                End If
        End Select
    End With
End Sub

Comments

[gunma_user]

「Microsoft Excel Objects」ではなく標準モジュールに書くんですね。
説明がわかりにくくてすみませんでした。
実現したいことを追記させていただきましたので改めてご確認願えますでしょうか。