如何在Excel中使用多个复选框创建下拉列表？

Sub Rectangle1_Click() Updated by Extendoffice 20200730 Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer Dim xV As String Set xSelShp = ActiveSheet.Shapes(Application.Caller) Set xLstBox = ActiveSheet.ListBox1 If xLstBox.Visible = False Then xLstBox.Visible = True xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options" xStr = "" xStr = Range("ListBoxOutput").Value If xStr <> "" Then xArr = Split(xStr, ";") For I = xLstBox.ListCount - 1 To 0 Step -1 xV = xLstBox.List(I) For J = 0 To UBound(xArr) If xArr(J) = xV Then xLstBox.Selected(I) = True Exit For End If Next Next I End If Else xLstBox.Visible = False xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options" For I = xLstBox.ListCount - 1 To 0 Step -1 If xLstBox.Selected(I) = True Then xSelLst = xLstBox.List(I) & ";" & xSelLst End If Next I If xSelLst <> "" Then Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1) Else Range("ListBoxOutput") = "" End If End If End Sub

上述方法过于复杂，难以处理。 在这里强烈推荐 带有复选框的下拉列表 实用程序 Kutools 。 Excel

帮助您轻松创建带有指定范围，当前工作表，当前工作簿或所有打开的工作簿的复选框的下拉列表，具体取决于您的需求。 请参见下面的演示：

立即下载并试用！ (30-天自由行)

  如果您想免费试用（30-day) 这个实用程序， 请点击下载，然后按照上述步骤进行操作。

在Excel下拉列表中键入时自动完成 如果您有一个包含大值的数据验证下拉列表，则需要在列表中向下滚动以查找合适的列表，或直接在列表框中键入整个单词。 如果在下拉列表中键入第一个字母时有允许自动完成的方法，一切将变得更加容易。 本教程提供了解决问题的方法。

在Excel中从另一个工作簿创建下拉列表 在工作簿中的工作表之间创建数据验证下拉列表非常容易。 但是，如果数据验证所需的列表数据位于另一个工作簿中，您将怎么办？ 在本教程中，您将详细了解如何从Excel中的另一个工作簿创建拖放列表。

在Excel中创建可搜索的下拉列表 对于具有众多价值的下拉列表，找到合适的价值并非易事。 以前，我们已经介绍了一种在下拉框中输入第一个字母时自动完成下拉列表的方法。 除了自动完成功能之外，您还可以使下拉列表可搜索，以提高在下拉列表中查找适当值时的工作效率。 为了使下拉列表可搜索，请尝试本教程中的方法。

在Excel下拉列表中选择值时自动填充其他单元格 假设您已经基于单元格区域B8：B14中的值创建了一个下拉列表。 在下拉列表中选择任何值时，都希望在选定单元格中自动填充单元格范围C8：C14中的相应值。 为了解决该问题，本教程中的方法将对您有所帮助。

下拉列表的更多教程...

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！