将validation添加到用户窗体

我在VBA是相当新的，我有一个用户窗体，用户可以从下拉列表中select一个值，从一个dynamic变化的表中获取它的值。 我需要添加validation，以便用户只能从dynamic表中select值，否则退出子。 任何帮助将不胜感激谢谢！

Private Sub CommandButton1_Click() If ComboBox1.Text = "" Then MsgBox "Please Select a Version", vbOKOnly + vbExclamation, "Entry Error" Worksheets("New Revision ").Range("B6").Value = ComboBox1.Value Unload Me End Sub Private Sub UserForm_Initialize() If Range("converter").Count = 1 Then ComboBox1.Value = "01" Else ComboBox1.List = Application.Transpose(Range("converter")) End If End Sub 

Answer 1

我需要添加validation，以便用户只能从dynamic表中select值

我想这是你想要的？

将ComboBox的样式设置为fmStyleDropDownList

 Private Sub UserForm_Initialize() ComboBox1.Style = fmStyleDropDownList If Range("converter").Count = 1 Then ComboBox1.AddItem "0" Else ComboBox1.List = Application.Transpose(Range("converter")) End If End Sub 

这将确保用户必须从列表中select一个项目。