Question

我有一个按钮，单击该按钮，根据选中的复选框复制特定单元格。

有人可以建议一种方法来改变它，这样一次只能检查一个复选框吗？

提前致谢！

>> c.set_value(10)
>> c.value
ans =
    10
>> set_value(c,5)
>> c.value
ans =
    5

Answer 1

你可能有点偷偷摸摸，只需使用exit 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

应该这样做，对吗？

一次一个复选框

1 个答案: