一次一个复选框

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

你可以有点偷偷摸摸，简单地使用退出 subs 和 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

这应该可以解决问题，对吧？