【发布时间】:2018-03-27 23:46:57
【问题描述】:
我已成功创建组合框,如下所示,并阻止用户在不填充组合框的情况下继续。这是代码:
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
但是,用户可以在组合框中键入随机文本,我无法阻止它。 有没有办法让用户只能从提供的来源中选择值?就是这样。
【问题讨论】: