如何在 Excel 中创建包含多个复选框的下拉列表?

ms excelmicrosoft technologiescomputers更新于 2024/8/29 14:04:17

Excel 是一款功能强大的数据组织和分析工具，其最实用的功能之一就是创建下拉列表。这些列表允许用户从预定义列表中选择项目，从而提高数据输入的效率和准确性。但是，如果您想让用户从下拉列表中选择多个项目，该怎么办?这时，带有多个复选框的下拉列表就派上用场了。

在 Excel 中创建包含多个复选框的下拉列表可能有点棘手，但如果您想让您的电子表格更加用户友好，这项技能必不可少。在本教程中，我们将介绍在 Excel 中创建包含多个复选框的下拉列表的步骤，包括创建列表、添加复选框以及将复选框链接到列表。完成本教程后，您将能够创建包含多个复选框的下拉列表，从而简化数据输入流程，提高电子表格的效率。

创建包含多个复选框的下拉列表

在这里，我们将首先插入一个 Active X 控件列表框，然后创建一个矩形，最后为其分配一个宏。让我们通过一个简单的过程来了解如何在 Excel 中创建包含多个复选框的下拉列表。

步骤 1

假设有一张 Excel 工作表，其中包含与下图类似的名称列表。

首先，点击"开发人员"，然后点击"插入"，并绘制一个活动的 X 控件列表框。

步骤 2

然后右键单击该列表框并选择"属性"。编辑以下内容 -

对于 ListFillRange 框，输入您将在列表中显示的源范围。

对于 ListStyle 框，选择 1 - fmList StyleOption;

对于 MultiSelect 框，选择 1 - fmMultiSelectMulti;

步骤 3

然后点击一个空单元格，将其命名为 ListBoxOutPut，然后点击 Enter。

步骤4

现在点击"插入"，然后点击"形状"，并绘制一个如下图所示的框。

步骤 5

现在右键单击形状，选择"分配宏"，点击"新建"，然后将代码替换为下面提到的代码。

代码

Sub Rectangle1_Click()
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