使用复选框创建下拉列表

Question

我有一个userform，想要创建一个Combobox并在其中包含Checkboxes。 我的目标是一次选择多个选项并显示它们。

我想有这样的事情：

[

有可能吗？我怎么做？

任何领导都会有所帮助。

Answer 1

我认为使用下拉框无法做到这一点。但是你可以用 ListBox

来做到这一点

为此，您必须设置列表框的属性，如下所示：

如果你有这个，你的表格会像这样锁定：

Answer 2

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

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的高度....