-
让品牌有温度、有情感
专注品牌策划15年
下拉菜单怎么设置多选（下拉菜单怎么设置多选选项）
发布时间：2023-04-19 02:08:12
稿源：
创意岭 阅读：
83
大家好！今天让创意岭的小编来大家介绍下关于下拉菜单怎么设置多选的问题，以下是小编对此问题的归纳整理，让我们一起来看看吧。
开始之前先推荐一个非常厉害的Ai人工智能工具，一键生成原创文章、方案、文案、工作计划、工作报告、论文、代码、作文、做题和对话答疑等等
只需要输入关键词，就能返回你想要的内容，越精准，写出的就越详细，有微信小程序端、在线网页版、PC客户端
创意岭作为行业内优秀的企业，服务客户遍布全球各地，如需了解SEO相关业务请拨打电话175-8598-2043，或添加微信：1454722008
本文目录:
一、excel下拉框多选设置
第一步：新建一个excel且设置数据有效性【选中X列--数据--有效性】
第二步：开发工具--查看代码--把代码复制进去保存就OK了
代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
' Developed by Contextures Inc.
' www.contextures.com
Dim rngDV As Range
Dim oldVal As String
Dim newVal As String
If Target.Count > 1 Then GoTo exitHandler
On Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandler
If rngDV Is Nothing Then GoTo exitHandler
If Intersect(Target, rngDV) Is Nothing Then
'do nothing
Else
Application.EnableEvents = False
newVal = Target.Value
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If Target.Column = 7 Then '这里规定好哪一列的数据有效性是多选的，A列是第1列，依次类推，如3就是C列，7就是G列
If oldVal = "" Then
'do nothing
Else
If newVal = "" Then
'do nothing
Else
If InStr(1, oldVal, newVal) <> 0 Then '重复选择视同删除
If InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一个选项重复
Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)
Else
Target.Value = Replace(oldVal, newVal & ",", "") '不是最后一个选项重复的时候处理逗号
End If
Else '不是重复选项就视同增加选项
Target.Value = oldVal & "," & newVal
' NOTE: you can use a line break,
' instead of a comma
' Target.Value = oldVal _
' & Chr(10) & newVal
End If
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
二、怎么在Excel表格中的一个单元格中设置多选下拉框，可以勾选多个选项的那种？
单元格中设置多选下拉框是可以做到的
楼主没有举例说明具体需求，下面以选择多个姓名为例，步骤如下：
先在【清单】表中列举一个姓名列表
在【多选下拉菜单】表中设置多选下拉框，按Alt+F11键进入VBE编辑器，将如下两段代码粘贴到【多选下拉菜单】这个表的右侧代码区
Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If ListBox1.ListIndex = -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
.TopLeftCell.Offset(, -1).Value = Mid(str, 2)
.Visible = False
End With
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Row > 2 And Target.Column = 2 Then
Dim arr
arr = Sheets("清单").Cells(2, 1).Resize(Sheets("清单").Cells(Rows.Count, 1).End(xlUp).Row - 1)
With ListBox1
.MultiSelect = 1
.ListStyle = 1
.List = arr
.Top = Target.Top
.Left = Target.Left + Target.Width
.Height = Target.Height * 15
.Width = 90
.Visible = True
End With
Else
ListBox1.Clear
ListBox1.Visible = False
End If
End Sub
最终效果如图：
注意：档案要保存为启用宏的工作簿
三、excel制作下拉菜单多选
制作一级菜单：
以选择性别为例，制作有男、女选项的下拉菜单：
选中“性别”数据区域；
执行“数据/有效性”命令，打开“数据有效性”对话框；
单击“设置”选项卡，在“允许”栏选择“序列”，“来源”中输入“男，女”（不含引号，用英文单引号分隔）；
单击“确定”按钮。
“在下拉菜单中选择一个值之后能同时在另一个单元格里对应出一个数值或是文字”，这要根据实际情况再加工的哦！
制作二级下拉菜单：
设置“数据”表
A列
B列
部门员工
A
张三
李四
B
王二
郑大
C
刘一
王五
D
初一
赵钱
……
命名：
选中A列，在“名称框”中输入“部门”，回车确认。
选中B列，在“名称框”中输入“员工”，回车确认。
（名称框位置：“名称框”在标题栏、工具栏下方的空白域，就是当你的鼠标放在任一单元格时，在表格的上方一栏都会显示“A-Z多少列”空白区，当你的鼠标放在指向上面时，就会显示“名称框”。
）
在“菜单”表制作下拉菜单：
制作一级下拉菜单
选中A1：B1单元格区域；
执行“数据/有效性”命令，打开“数据有效性”对话框；
在“设置”选项卡下，“允许”选择“序列”、“来源”中输入“部门，员工”（不含引号，用英文逗号分隔）；
选中“忽略空值”、“提供下拉箭头”，单击“确定”按钮，完成一级下拉菜单制作。
此时在A1、B1中，单击右侧的下拉按钮进行选择输入。
制作二级下拉菜单
从A2单元格起向下选中单元格区域；
执行“数据/有效性”命令，打开“数据有效性”对话框；
在“设置”中，“允许”选择“序列”、“来源”中输入公式“=INDIRECT(A$1)”；
(注：OFFICE2007与以前的版本不一样)
选中“忽略空值”、“提供下拉箭头”，单击“确定”按钮，完成“部门”的二级菜单制作。
同法制作“员工”的二级菜单。此时“来源”中输入公式“=INDIRECT(B$1)”。
此时在部门、员工下面的单元格中，单击右侧的下拉按钮进行“部门”、“员工”的选择输入。
我刚试了只能实现一级下拉菜单，不能实现二级菜单
四、如何在excel表格中设置多选下拉菜单
设置单元格“数据有效性”
1、选中要设置下拉列表的单元格。
2、选中数据菜单
3、2003版选择“有效性”，2010版选择“数据有效性。
4、出现”数据有效性“选项卡
以上就是关于下拉菜单怎么设置多选相关问题的回答。希望能帮到你，如有更多相关问题，您也可以联系我们的客服进行咨询，客服也会为您讲解更多精彩的知识和内容。
推荐阅读：
华为手机下拉菜单怎么设置不了了（华为手机下拉菜单怎么设置不了了呀）
赣公网安备 50019002502384号
