Один флажок за один раз

Question

У меня есть кнопка, которая при щелчке копирует определенную ячейку в зависимости от того, какой флажок установлен.

Может ли кто-нибудь предложить способ его изменить, чтобы в любой момент можно было проверить только один флажок?

Заранее благодарен!

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

Вы можете быть немного трусливый об этом и просто использовать выхода подлодки и msgboxes, как этот

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 

Это должно сделать трюк, не так ли?