向用户表单添加验证

Question

我在VBA上相当新，我有一个userform，用户可以从下拉列表中选择一个值，该值从动态变化的表中获取其值。我需要添加验证，以便用户只能从动态表中选择值，否则退出sub。非常感谢任何帮助，谢谢！

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

  

我需要添加验证，以便用户只能从动态表中选择值

我认为这就是你想要的？

将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

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