一度に1つのチェックボックス

Question

クリックすると、チェックボックスがオンになっている特定のセルがコピーされます。

誰もが一度に1つのチェックボックスしかチェックできないように変更する方法を提案できますか？

ありがとうございます！

Public Sub CopyButton_Click() 

    if(CheckBox1.Value = true) then 
     ActiveSheet.Range("A1").copy 
    end if 

    if(CheckBox2.Value = true) then 
     ActiveSheet.Range("A2").copy 
    end if 

    'copy the chunk above for more check boxes 

End Sub 

Answer 1

あなたは正しい、それについて少し卑劣なことや、単にトリックを行う必要があり、この

Public Sub CopyButton_Click() 

    If (CheckBox1.Value = True) and (CheckBox2.Value = True) Then 
     MsgBox "Only one box can be checked at a time" 
     Exit Sub 
    ElseIf (CheckBox1.Value = true) Then 
     ActiveSheet.Range("A1").Copy 
    Else 
     ActiveSheet.Range("A2").Copy 
    End if 
End Sub 

のように、終了潜水艦とmsgboxesを使用することができますか？