勾选CheckBox时激活ComboBox

我正在试图使用户窗体，如果checkbox被标记为combobox将被允许被点击。 这是我的代码：

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

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

Answer 1

从你的叙述

如果checkbox被标记

我假设你想对任何checkbox状态变化作出反应，那么你需要一个checkbox事件处理程序

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

Answer 2

您应该确保当用户窗体被初始化时，ComboBox3被禁用，并且只有在CheckBox1被点击时才被启用，否则它应该保持被禁用。

您将需要在用户窗体模块上放置以下两个代码。

 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