Vba 使用复选框创建下拉列表

我有一个用户表单，希望创建一个组合框，并在其中设置复选框。 我的目标是一次选择多个选项并显示它们

我想要这样的东西：

[

有可能吗？我怎样才能做到

---

任何线索都会有帮助。

我认为使用下拉框是不可能的。但您可以使用列表框来实现这一点

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

如果您有此选项，您的表单将如下锁定：

---

我认为使用下拉框是不可能的。但您可以使用列表框来实现这一点

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

如果您有此选项，您的表单将如下锁定：

---

您只能将列表框与Multiselect一起使用（请参阅以下测试代码）：

---

对于下拉效果，您可以添加图片或文本框来更改Listbox1的高度。…

您只能将Listbox与Multiselect一起使用（请参阅以下代码进行测试）：

---

对于下拉效果，您可以添加图片或文本框来更改列表框1的高度。…

您不能使用VBA在组合框中放置复选框，也不能创建多选组合框。@braX我应该使用列表框吗？使用checkbox@braX我想要上面的图片抱歉，我看不到图片listbox是唯一的w可以在VBA中完成多选。如果您使用vb.net，您将有更多的选项。您不能使用VBA在组合框中放置复选框，也不能创建多选组合框。@braX我应该使用列表框吗？带checkbox@braX我想要上面的图片对不起，我看不到图片listbox是在VBA中完成多重选择。如果使用vb.net，您将有更多选项。

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