用户窗体下拉列表VBA

-2

所有，用户窗体下拉列表VBA

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

请有人建议我该怎么做？

插入图片以供参考？

来源

2017-09-27 Sean Bailey

做什么？如果没有选择什么都退出？ '如果cmb.listindex = -1，然后退出子' – braX

以填充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

来源

2017-09-27 12:41:04

感谢您的上述 - 我的Userform被称为UserForm3，导致“Fruits_CB”行上的错误，你能告诉我如何解决这个问题？ –

Fruits_CB是组合框的名称，用户窗体被“Me”关键字引用。您需要将Fruits_CB更改为您的组合框所调用的内容。 @SeanBailey – eirikdaude

@SeanBailey你知道eirikdaude在上面的评论中给你写了什么吗？ –

用户窗体下拉列表VBA

回答

相关问题