チェックボックスの動作に対するコードについて

Question

ExcelのVBAについてです．
チェックボックスが二つあった時に，AをクリックしたらAにチェックが入り，Bを押したらAのチェックが消えBがチェックされるという風にしたいです．
下記のようなコードでAまたはBを押した時の動作を命令出来ているように見えるのですが，Aを押してからBを押してもBが反応してくれません．どうしたら，説明のような動作が行えますでしょうか．

    Dim R As Worksheet
    Set R = ActiveSheet
    
    'ここを編集
    Dim R2 As Range
    Set R2 = R.Range("D3")  '反映元セル名
    Dim R3 As Range
    Set R3 = R.Range("D4")  '反映元セル名
    Dim R1 As Range
    Set R1 = R.Range("AI3") '反映先セル名

    'チェックボックス1
    If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn Then
        ActiveSheet.CheckBoxes("Check Box 2").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 3").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 4").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 5").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 6").Value = xlOff
        R1.Value = R2.Value

    ElseIf ActiveSheet.CheckBoxes("Check Box 2").Value = xlOn Then
        ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 3").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 4").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 5").Value = xlOff
        ActiveSheet.CheckBoxes("Check Box 6").Value = xlOff
        R1.Value = R3.Value
    
    ElseIf ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff Then
        R1.Value = ""
    End If

End Sub

Comments

[radames1000]

複数項目から一つ選ぶのであれば、オプションボタンではだめでしょうか。

[Ryuhe]

ありがとうざいます．
ボタンを押したうえで，そのボタンに対応する文字をセルに反映させたいです．

[radames1000]

「VBA オプションボタン」で検索すればセルに反映するサンプルも色々ありますので一度ご自身で検索してみてください。

[hatena19]

一つしか選択できない場合はオプションボタン、
複数選択可能な場合はチェックボックス、
という仕様が現在の主要OS、主要ブラウザのUIで採用されてますので、
それに合わせておかないとユーザーに戸惑いを与えます。

オプションボタン にしておけばコード無しで一つしか選択できないです。

[Ryuhe]

@hatena19様ありがとうざいます．
項目1でAorB
項目2でAorB
と項目ごとに一つしか選択できないというようなものを作成したいのですが，オプションボタンではそのようなことは可能でしょうか．

[hatena19]

オプションボタン に GroupName プロパティがありますでそれに同じ名前を付ければ、同じGroupName内で一つしか選択できません。

[Ryuhe]

ありがとうございます．
ユーザ―フォームを使用することで，グループ化を行い一項目一つだけしか選択できないということが出来るんですね．
勉強になりました．

Answer 1

オプションボタンを使用するのが最適ですが、質問のコードを使用する前提でお答えします。

'分岐1
If ActiveSheet.CheckBoxes("Check Box 1").Value = xlOn Then
    '処理1
    ActiveSheet.CheckBoxes("Check Box 2").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 3").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 4").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 5").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 6").Value = xlOff
    R1.Value = R2.Value

'分岐2
ElseIf ActiveSheet.CheckBoxes("Check Box 2").Value = xlOn Then
    '処理2
    ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 3").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 4").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 5").Value = xlOff
    ActiveSheet.CheckBoxes("Check Box 6").Value = xlOff
    R1.Value = R3.Value

'分岐3
ElseIf ActiveSheet.CheckBoxes("Check Box 1").Value = xlOff Then
    '処理3
    R1.Value = ""
End If

Aをクリックすると分岐1の条件を満たすため、処理1のみを実行します。
その結果Aにチェックが入ります。

Aにチェックが入った状態でBをクリックすると、最初に分岐1の条件を満たすので、処理1のみを実行します。
処理2は実行されないため、Bにチェックは入らず、Aのチェックも消えません。

以下のようなコードなら一応対応できます。

Sub チェックA_Click()
    Dim R2 As Range
    Set R2 = Range("D3")  '反映元セル名
    Dim R1 As Range
    Set R1 = Range("AI3") '反映先セル名
    
    If CheckBoxes("Check Box 1").Value = xlOn Then
        CheckBoxes("Check Box 2").Value = xlOff
        CheckBoxes("Check Box 3").Value = xlOff
        CheckBoxes("Check Box 4").Value = xlOff
        CheckBoxes("Check Box 5").Value = xlOff
        CheckBoxes("Check Box 6").Value = xlOff
        R1.Value = R2.Value
    end if    
end Sub

Sub チェックB_Click()
    Dim R3 As Range
    Set R3 = Range("D4")  '反映元セル名
    Dim R1 As Range
    Set R1 = Range("AI3") '反映先セル名
    
    If CheckBoxes("Check Box 2").Value = xlOn Then
        CheckBoxes("Check Box 1").Value = xlOff
        CheckBoxes("Check Box 3").Value = xlOff
        CheckBoxes("Check Box 4").Value = xlOff
        CheckBoxes("Check Box 5").Value = xlOff
        CheckBoxes("Check Box 6").Value = xlOff
        R1.Value = R3.Value
    end if    
end Sub

チェックボックスの名前は「チェックA」「チェックB」としています。適宜読み替えてください。
ActiveSheetは記述を省略するのが普通なので、省略してあります。

「チェックA」がクリックされたとき、「チェックA」がONなら他のチェックボックスをOFFにします。
「チェックB」がクリックされたとき、「チェックB」がONなら他のチェックボックスをOFFにします。

これなら対応できると思います。

･･････オプションボタンを使うのが一番簡単ですが。