Userform下拉列表VBA

Question

全部，

我创建了一个Userform（Userform 3），我希望有一个基本的下拉列表，包括4个项目 - 苹果/橘子/梨/香蕉。 （在后台VBA中硬编码）并且如果用户没有选择任何选择以退出sub。

有人可以建议我怎么做吗？

插入图片以供参考？

Answer 1

要填充Fruits_CB活动的UserForm_Initialize组合框，请使用以下代码：

Private Sub UserForm_Initialize()

' populate "Fruits_CB" Combo-Box with fruits
With Me.Fruits_CB
    .Clear ' clear previous items (not to have "doubles")
    .AddItem "Apples"
    .AddItem "Oranges"
    .AddItem "Pears"
    .AddItem "Bananas"
End With

End Sub

如果用户没有从列表中选择任何项目，然后点击该按钮，请使用下面的Sub：

Private Sub CommandButton1_Click()

If Me.Fruits_CB.ListIndex = -1 Then
    Exit Sub
Else
    ' Do something    
End If  

End Sub