下拉列表的制作,基本上大家都会做,使用数据有效性-列表即可处理
如果还不会,查看
往期的教程:
智能下拉菜单系系列-可配置的一级下拉
项目实战系列-增强智能下拉列表【2】
以上都是一个单元格,只能选择一个项目,如果我们要选择多个如何处理呢?
请看效果图:
效果图
如何制作:
1、常规下拉列表制作
2、粘贴VBA代码
'作者:Excel办公实战-小易 '日期:2019-8-12 '功能:下拉框多选 '****************************************************** Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count <> 1 Then End 'Columns(3)-这里的3表示下拉列表所在的列(C列) If Intersect(Target, Columns(3)).Cells.Count = 0 Then End A = False newdata = Target.Value A olddata = Target.Value If newdata <> "" Then If olddata <> "" Then Target.Value = olddata & "," & newdata If InStr(olddata, newdata) > 0 Then Target.Value = olddata Else Target.Value = olddata & "," & newdata End If Else Target = newdata End If End If A = True End Sub - 进入VBE,双击对应的工作表名称,复制附上代码,粘贴关闭,即可使用
- 如上代码,已经过滤掉重复的选取
系列往期教程:
【技巧1001-1】谁绿了Excel
【技巧1001-2】3秒搞定最大、最小、首次、最新
【技巧1001-3】批量提取姓名电话号码
【技巧1001-4】-批量提取文件名并建立超链接
【技巧1001-5】-数据透视表字段批量计数转求和,效率提高100%!
【技巧1001-6】-Excel版的AI智能处理
【技巧1001-7】-元和万元之间自由切换
【技巧1001-8】-终极指南|0基础制作工作表目录
【技巧1001-9】-看完,还不会按颜色求和就是你的不对了
头条号:Excel办公实战