创建带复选框的下拉菜单

Question

我有一个用户表单，想创建一个组合框并在其中包含复选框。我的目标是 select，同时显示多个选项。

我想要这样的东西：

[

这可能吗？我该怎么做？

任何线索都会有所帮助。

Answer 1

我认为这对于下拉框是不可能的。但是您可以使用 ListBox

为此，您必须像这样设置列表框的属性：

如果你有这个，你的表单将像这样锁定：

Answer 2

您只能使用带多选的列表框（请参阅以下代码进行测试）：

Private Sub UserForm_Initialize()
    ListBox1.AddItem "All"
    ListBox1.AddItem "Project Manager"
    ListBox1.AddItem "Project Scientist"
    ListBox1.AddItem "Software Developer"
End Sub

Private Sub Format_Listbox1()
    ListBox1.MultiSelect = fmMultiSelectMulti
    ListBox1.ListStyle = fmListStyleOption
End Sub

对于 DropDown 效果，您可以添加图片或文本框来更改 Listbox1 的高度....

创建带复选框的下拉菜单

Creating a Dropdown with Checkboxes

excel

vba

userform