哈罗，我是星光，话说咱们很久以前分享过一个教程，如何制作显示多列内容的下拉菜单？动动鼠标，制作比数据有效性更炫酷的下拉菜单然后更进一步的问题是，如何制作显示多列同时可以选择多项的下拉菜单？比如下图酱紫，显示三列下拉菜单，可以选择任意多个项目合并到一个单元格……
打个响指……打开书抄段代码，待会回来。.首先，咱们得有个数据表，用来填充选项菜单的数据。嗯，我们把这份工作表命名为“参数表”，数据如下图所示。A列是商品代码，B列是商品，C列是负责人。
然后，我们在需要制作选项菜单的工作表放一个列表框控件。具体步骤是在【开发工具】选项卡下单击【插入】按钮，在弹出来的选项菜单中选择ActiveX控件列表框，画在当前工作表。位置随便，大小不论，丑美无关……毕竟这些你说了都不算，待会代码会设置。
需要说明的是，如果这是你放置的第1个列表框控件，它会被系统默认名称为ListBox1。这个名字很重要，代码里都是按这个名字控制它的最后退出设计模式，也就是点击【开发工具】选项卡下的【设计模式】按钮。
好了，把以下代码复制粘贴到目标工作表的VBE编辑窗口即可。比如我们这里是粘贴到名称为“入库单”工作表。
代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Row < 4 Then ListBox1.Visible = False: Exit Sub
    '如果选中的单元格不是第2列，或者小于4行，也就是不在目标范围内，则退出程序
    If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then ListBox1.Visible = False: Exit Sub
    '如果选中的单元格大于1个，则退出程序
    With Sheets("参数表")
        r = .Range("a1:c" & .Cells(Rows.Count, "a").End(xlUp).Row).Value
    End With
    With ListBox1
        '调整位置到单元格处
        .Top = Target.Top 'listbox的顶端位置
        .Left = Target.Left + Target.Width 'listbox的左端位置
        .Width = 250 '宽度
        .Height = 150 '高度
        .Visible = True '可见
        '.ColumnHeads = True '显示标题行
        .ColumnCount = 3 '三列
        .ColumnWidths = "50;120;50" '设置第一列宽度50第二列宽度120……
        .List = r '数据来源
        .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
        .ListStyle = fmListStyleOption '选项按钮设置为方形
    End With
End Sub
Private Sub ListBox1_Change()
    Dim i As Long, strMy As String
    With ListBox1
        If .Selected(0) = True Then .Selected(0) = False
        '如果用户选取的是标题行那么撤销选取
        For i = 1 To .ListCount - 1
        '遍历listbox的记录，如果被选中则按换行符合并
            If .Selected(i) = True Then
                strMy = strMy & vbCrLf & .List(i, 1)
                '取list的第二列
                '无论列还是行的索引都是从0开始的，因此第二列为1
            End If
        Next
    End With
    ActiveCell.Value = Mid(strMy, 3)
    '数据写入单元格
End Sub

小贴士：代码有两个部分，一部分是工作表的Worksheet_SelectionChange事件。当用户选择单元格时，设置列表框的位置、大小和数据。本例中列表框只出现在B列，且行数大于3的情况下。这个可以根据实际情况，自己进行修改。另一部分是列表框的ListBox1_Change事件，当用户选择列表框的数据时，将数据写入单元格。其实相关代码都有注释，这里就不再啰嗦了示例文件下载：https://pan.baidu.com/s/1sKf9dl64E8ocKYWxY7Edng
提取码：ebgb
更多资源和教程
零基础学SQL in Excel 25篇合集
VBA爱好者请进，VBA代码宝概述
©EH看见星光
《VBA经典代码应用大全》当当、天猫、京东均有销售~

	

HI，大家好，我是星光。
很久以前我们分享过一个教程，如何制作显示多列内容的下拉菜单？
动动鼠标，制作比数据有效性更炫酷的下拉菜单
然后更进一步的问题是，如何制作显示多列同时可以选择多项的下拉菜单？
比如下图酱紫，显示三列下拉菜单，可以选择任意多个项目合并到一个单元格……
打个响指……发个广告，待会回来。
.
假装
有
广告
.
首先，咱们得有个数据表，用来填充选项菜单的数据。嗯，我们把这份工作表命名为“参数表”，数据如下图所示。A列是商品代码，B列是商品，C列是负责人。
然后，我们在需要制作选项菜单的工作表放一个列表框控件。
具体步骤是在【开发工具】选项卡下单击【插入】按钮，在弹出来的选项菜单中选择ActiveX控件列表框，画在当前工作表。位置随便，大小不论，丑美无关……毕竟这些你说了都不算，待会代码会设置。
需要说明的是，如果这是你放置的第1个列表框控件，它会被系统默认名称为ListBox1。这个名字很重要，代码里都是按这个名字控制它的。
最后退出设计模式，也就是点击【开发工具】选项卡下的【设计模式】按钮。
好了，把以下代码复制粘贴到目标工作表的VBE编辑窗口即可。比如我们这里是粘贴到名称为“入库单”工作表。
代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Or Target.Row < 4 Then ListBox1.Visible = False: Exit Sub
    '如果选中的单元格不是第2列，或者小于4行，也就是不在目标范围内，则退出程序
    If Target.Columns.Count > 1 Or Target.Rows.Count > 1 Then ListBox1.Visible = False: Exit Sub
    '如果选中的单元格大于1个，则退出程序
    With Sheets("参数表")
        r = .Range("a1:c" & .Cells(Rows.Count, "a").End(xlUp).Row).Value
    End With
    With ListBox1
        '调整位置到单元格处
        .Top = Target.Top 'listbox的顶端位置
        .Left = Target.Left + Target.Width 'listbox的左端位置
        .Width = 250 '宽度
        .Height = 150 '高度
        .Visible = True '可见
        '.ColumnHeads = True '显示标题行
        .ColumnCount = 3 '三列
        .ColumnWidths = "50;120;50" '设置第一列宽度50第二列宽度120……
        .List = r '数据来源
        .MultiSelect = fmMultiSelectMulti '允许通过鼠标点击的方式进行多选
        .ListStyle = fmListStyleOption '选项按钮设置为方形
    End With
End Sub
Private Sub ListBox1_Change()
    Dim i As Long, strMy As String
    With ListBox1
        If .Selected(0) = True Then .Selected(0) = False
        '如果用户选取的是标题行那么撤销选取
        For i = 1 To .ListCount - 1
        '遍历listbox的记录，如果被选中则按换行符合并
            If .Selected(i) = True Then
                strMy = strMy & vbCrLf & .List(i, 1)
                '取list的第二列
                '无论列还是行的索引都是从0开始的，因此第二列为1
            End If
        Next
    End With
    ActiveCell.Value = Mid(strMy, 3)
    '数据写入单元格
End Sub
小贴士：
代码有两个部分，一部分是工作表的Worksheet_SelectionChange事件。当用户选择单元格时，设置列表框的位置、大小和数据。本例中列表框只出现在B列，且行数大于3的情况下。这个可以根据实际情况，自己进行修改。
另一部分是列表框的ListBox1_Change事件，当用户选择列表框的数据时，将数据写入单元格。
其实相关代码都有注释，这里就不再啰嗦了。
示例文件下载：https://pan.baidu.com/s/1sKf9dl64E8ocKYWxY7Edng  提取码：ebgb
晚安。
	

在表格的中录入人员信息时，针对“性别”、“婚姻状态”、“学历”等信息，我们可以通过“下拉选项卡”来提高录入效率及降低出错概率。
前面我们和大家分享在Excel中制作下拉菜单的方法，可点击下方链接查看：
输入太慢、总是打错字？Excel制作多级下拉菜单，选择录入更高效
但是，很多同学可能不知道，其实在Word也可以制作下拉列表。
今天 ，和大家分享在Word中如何制作下拉列表。
演示效果
演示效果
通过上图我们可以看到通过下拉选项卡可以高效的录入固定项，那么，这种下拉列表选项卡应该如何制作呢？
操作方法
一、添加“开发工具”选项卡
因为制作需要使用到“下拉列表控件”，需要先添加“开发工具”选项卡。
在选项卡功能区按右键，选择“自定义功能区”，打开Word选项对话框，在自定义功能区选项卡右侧，勾选“开发工具”。
添加“开发工具”选项卡
二、插入“下拉列表内容控件”
光标定位于单元格中，点击“开发工具”选项卡——控件——下拉列表内容控件。
插入“下拉列表内容控件”
三、设置控件属性
选择“下拉列表内容控件”，点击“开发工具”选项卡——控件——控件属性，打开内容控件属性对话框 ，点击下方“添加”按钮，添加下拉列表属性内容。
添加下拉列表选项内容
设置好属性后，将下拉列表控件复制到下一单元格中，其他的单元格直接按【F4】重复操作即可。
将设置好的下拉列表复制到其他单元格
到此，下拉列表制作完成，我们可以通过点击下拉列表，从中选择快速录入固定项。
下拉列表可以重复选择，但如果在控制属性设置中勾选了“内容被编辑后删除内容控件”，那么选择一次后下拉列表控件将被删除，不能再次选择。
勾选“内容被编辑后删除内容控件”只能使用一次
好了，今天有关Word制作下拉列表的内容就分享到这里，您学会了吗？如果您有更好的技巧，欢迎下方留言评论和我们分享，喜欢【稻客说】请为我们点赞。关注我们，掌握更多办公技巧。

单个或多个单元格设置:
1.选中单元格 点击菜单栏的"数据"-"有效性";
2.选择"设置"选项卡(默认也就是选中这个选项卡);
3.在"允许"下拉框中选择"序列";
4.勾上"忽略空值","提供下拉箭头";
5.在"来源"里输入下拉选择项,用英文逗号隔开,点击"确定".
 
整列单元格设置:
1.如果没有列名的话,选中整列,其他的操作跟上面一样;
2.如果有列名的话,先把整列都设置成下拉框列,然后只选中列的第一行,点击菜单栏的"数据"-"有效性"-"设置"-"允许"下拉框中选择"任何值",也就是只把第一行再改回来.