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

Question

我尝试在Macro中创建userform并为颜色创建组合框选择。

我已成功创建了如下组合框，并阻止用户继续而不填写组合框。这是代码：

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