当CheckBox被勾选时激活ComboBox

Question

我想让UserForm在CheckBox被标记为ComboBox的地方被允许点击。这里是我的代码：

Private Sub ComboBox3_Change() 
    If CheckBox1.Value = True Then 
    ComboBox3.Enabled = False 
    End If 
End Sub 

它没有工作，我不知道为什么。

Answer 1

从你的叙述

如果复选框被标记

我会假设你想要的任何复选框状态的变化做出反应，那么你需要一个复选框事件处理程序

Private Sub CheckBox1_Click() 
    ComboBox3.Enabled = CheckBox1.Value 
End Sub 

Answer 2

你应该确保当UserForm被初始化时，ComboBox3被禁用，并且只有在CheckBox1被点击时才被启用，否则它应该保持disabl编辑。

您需要在UserForm模块上放置以下两个代码。

Private Sub UserForm_Initialize() 
Me.ComboBox3.Enabled = False 
End Sub 

Private Sub CheckBox1_Click() 
If CheckBox1 Then 
    Me.ComboBox3.Enabled = True 
Else 
    Me.ComboBox3.Enabled = False 
End If 
End Sub