Auto Select 由另一个复选框触发的复选框

Question

我正在尝试自动 select 一个复选框，如果有任何其他复选框被 selected。所有这些复选框都在同一个 sheet 上，基本上我希望复选框 7 在复选框 3,4 或 5 被 selected 时打勾。

Private Sub Worksheet_Change(ByVal Target As Range)

If Sheets("Start Page").CheckBox3 = True Or Sheets("Start Page").CheckBox4 = True Or 
Sheets("Start Page").CheckBox5 = True Then
Sheets("Start Page").CheckBox7 = True
Else
End If

End Sub

如有任何帮助，我们将不胜感激。

Answer 1

即使您的复选框链接到单元格 (LinkedCell-属性)，当您单击复选框时也不会触发 Worksheet-Change-事件。

您需要勾选复选框的 Click-Event。对于每个复选框，将 Click-event 例程放入 sheet 模块。为防止重复设置“已计算”复选框的逻辑，让这些事件处理程序调用执行计算的通用例程。

Private Sub CheckBox3_Click()
    Call SetMyCheckBox
End Sub

Private Sub CheckBox4_Click()
    Call SetMyCheckBox
End Sub

Private Sub CheckBox5_Click()
    Call SetMyCheckBox
End Sub

Sub SetMyCheckBox()
    Me.CheckBox7.Value = Me.CheckBox3.Value Or Me.CheckBox4.Value Or Me.CheckBox5.Value
End Sub

顺便说一句，你应该考虑给你的复选框起更有意义的名字。

Auto Select 由另一个复选框触发的复选框

Auto Select Checkbox triggered by another checkbox

checkbox

excel

vba