怎么在Excel表格中的一个单元格中设置多选下拉框,可以勾选多个选项的那种?

怎么在Excel表格中的一个单元格中设置多选下拉框,可以勾选多个选项的那种?,第1张

单元格中设置多选下拉框是可以做到的

楼主没有举例说明具体需求,下面以选择多个姓名为例,步骤如下:

先在清单表中列举一个姓名列表

在多选下拉菜单表中设置多选下拉框,按Alt+F11键进入VBE编辑器,将如下两段代码粘贴到多选下拉菜单这个表的右侧代码区

Private Sub ListBox1_KeyDown(ByVal KeyCode As MSFormsReturnInteger, ByVal Shift As Integer)

  If KeyCode = 13 Then

  If ListBox1ListIndex = -1 Then Exit Sub

  Dim i&, str$

  With ListBox1

      For i = 0 To ListCount - 1

          If Selected(i) Then

              str = str & ";" & List(i)

          End If

      Next

      TopLeftCellOffset(, -1)Value = Mid(str, 2)

      Visible = False

  End With

  End If

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If TargetCount > 1 Then Exit Sub

  If TargetRow > 2 And TargetColumn = 2 Then

      Dim arr

      arr = Sheets("清单")Cells(2, 1)Resize(Sheets("清单")Cells(RowsCount, 1)End(xlUp)Row - 1)

      With ListBox1

          MultiSelect = 1

          ListStyle = 1

          List = arr

          Top = TargetTop

          Left = TargetLeft + TargetWidth

          Height = TargetHeight 15

          Width = 90

          Visible = True

      End With

  Else

      ListBox1Clear

      ListBox1Visible = False

  End If

End Sub

最终效果如图:

注意:档案要保存为启用宏的工作簿

第一步:先选定其中一个需要多项选择下拉菜单的单元格,点击excle上的数据选项栏——数据有效性——选中下拉中的数据有效性。

第二步:d出数据有效性窗口。

第三步:一般做多项选择下拉菜单的时候,有效性条件允许中找到“序列”选项。

第四步:在来源中,写出你的多项选项的下拉菜单项目(每个项目中间用英文状态下的逗号表示)。例如:我,我们,你,你们,他,他们。

第五步:点击“确定”按钮,在之前选择的单元格中即可看到设置的多项选择下拉菜单。

第六步:如果下面的单元格同样如此,即可点击原有的单元格进行下拉即可。

选择设置区域:在“数据”选项下的“数据有效性”“设置”中,选择“序列”;来源中输入下拉菜单内容,以英文逗号分隔,或直接选择下拉菜单内容所在区域,确定后,即可生成下拉菜单。  


欢迎分享,转载请注明来源:内存溢出

原文地址: https://www.outofmemory.cn/yw/13223750.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-06-22
下一篇 2023-06-22

发表评论

登录后才能评论

评论列表(0条)

保存