當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