防止用户在宏Excel中正确选择组合框

Question

我试图在宏中创建用户窗体并为颜色创建组合框选择。

我已经成功地创建组合框为遵循，防止用户继续没有填写组合框。这里是代码：

Private Sub UserForm_Initialize() 
ComboBox1.RowSource = "Sheet1!A1:A" & Range("G" & Rows.Count).End(xlUp).Row 
End Sub 
-------------------------------------------- 
Private Sub CommandButton1_Click() 

If ComboBox1.Text = "" Then 
    MsgBox "Please Select Color!" 
    Exit Sub 

Else 
Sheets("Sheet1").Range("B1").Value = ComboBox1.Value 
ActiveWorkbook.Close 
End If 

但是，用户可以在组合框上键入随机文本，我无法阻止它。 有什么办法让用户只能从提供的源中选择值吗？情况就是如此。

Answer 1

将组合风格fmStyleDropDownList