灰色的 checkbox2 和 checkbox3 除非 checkbox1 = true

Question

你的另一个 VBA 困境。

我有 checkbox1、checkbox2 和 checkbox3。 如果 checkbox1=true，我希望 checkbox2 和 checkbox3 显示为灰色 我使用了类似的代码来使文本框变灰

    Private Sub CheckBox1_Click()
    Dim en As Boolean
    en = Not CheckBox1.Value
    EnableControls Array(tbappgn, tbappfn), en

'utility sub: enable/disable controls
Private Sub EnableControls(cons, bEnable As Boolean)
    Dim con
    For Each con In cons
        With con
            .Enabled = bEnable
            .BackColor = IIf(bEnable, vbWhite, RGB(200, 200, 200))
        End With
    Next con
End Sub

只是在其他复选框上使用相同的代码时遇到问题。

可以将复选框编号添加到上面的代码中，但我不希望该复选框成为灰色/取消灰色其他复选框的触发器

类似的东西，但使用正确的术语。

Private Sub CheckBox11_Click()
 Dim en As Boolean
   en = Not CheckBox11.Value
    EnableControls Array(checkbox12, checkbox13), en

    Private Sub CheckBox15_Click()
    Dim en As Boolean
    en = Not CheckBox15.Value
    EnableControls Array(checkbox16, checkbox17), en

Private Sub EnableControls(cons, bEnable As Boolean)
    Dim con
    For Each con In cons
        With con
            .Enabled = bEnable
            .BackColor = IIf(bEnable, vbWhite, RGB(200, 200, 200))
        End With
    Next con
End Sub

Answer 1

这是你要求的吗？当 checkbox1 为 true 时，另一个将是灰色的...反之亦然...

Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        CheckBox2.Enabled = False
        CheckBox3.Enabled = False
    Else
        CheckBox2.Enabled = True
        CheckBox3.Enabled = True
    End If        
End Sub