用户表单下拉列表 VBA

Question

所有，

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

有人可以告诉我该怎么做吗？

插入图片以供参考？

Answer 1

要在 UserForm_Initialize 事件上填充 Fruits_CB 组合框，请使用以下代码：

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

用户表单下拉列表 VBA

Userform Drop down list VBA

excel

vba

userform