Excel的下拉多选

新项目需要excel导入时的下拉多选框

Excel表格下拉单选很简单，先给表格做成单选。参照
[excel怎么设置下拉选择项] (https://jingyan.baidu.com/article/1876c85255d929890a13767d.html)
Excel要想做成多选首先需要启用宏，如果Excel中没有宏，需要下载

下载安装

安装完之后重启Excel。

左侧project是你的Excel表格，表格下对应每一个sheet。双击你想要修改的sheet即可打开下图VB编辑器。粘贴下方代码。

点击宏，创建新宏如下图操作。

粘代码

Sub Worksheet_Change(ByVal Target As Range)
'让数据有效性选择 可以多选,不可重复
Dim rngDV As Range
Dim oldVal As StringDim newVal As String
If Target.Count > 1 Then GoTo exitHandlerOn Error Resume Next
Set rngDV = Cells.SpecialCells(xlCellTypeAllValidation)
On Error GoTo exitHandlerIf rngDV Is Nothing Then GoTo exitHandlerIf Intersect(Target, rngDV) Is Nothing Then
'do nothingElse
Application.EnableEvents = False
newVal = Target.Value
If Target.Column = 2 Or 3 Or 6 Then '数字是你想要多选的列是多少，多个用or连接。
Application.Undo
oldVal = Target.Value
Target.Value = newVal
If oldVal = "" Then
Else
If newVal = "" Then
Else '去除重复的字段If InStr(1, oldVal, newVal) <> 0 ThenIf InStr(1, oldVal, newVal) + Len(newVal) - 1 = Len(oldVal) Then '最后一个选项重复Target.Value = Left(oldVal, Len(oldVal) - Len(newVal) - 1)ElseTarget.Value = Replace(oldVal, newVal & ",", "") '不是最后一个选项重复的时候处理逗号End IfElse '不是重复选项就视同增加选项
Target.Value = oldVal _
& "," & newVal '可以是任意符号隔开
End If
End If
End If
End If
End If
exitHandler:
Application.EnableEvents = True
End Sub
提示：在“ ' ”后面的是注释可以删除
保存一下点击运行-->运行子过程/用户窗体，点击你创建的宏后，点击右侧运行。

结果如下图

使用VBA实现Excel下拉多选相关推荐

Excel 下拉多选的设置
试用office版的Excel 先在某列利用数据有效性-建立下拉菜单表. 在下拉表所打开的sheet中(如sheet1),鼠标右击下面的工作表.选择"查看代码",就可打开VBA编辑 ...
单元格下拉全选快捷键_【excel下拉全选快捷键】Excel中全选是Ctrl A,那么反选呢?...
电子表格问题,如何用快捷键一下全选所有的有数据的单元格? 1.先用鼠标左键单击数域的任一格,然后按Ctrl A这样整个数据区域就部选. 2.用鼠标左键单击数据区域中的任意单元格,然后按Ctrl *(就 ...
Java - EasyExcel结合VBA实现Excel导出下拉多选框与单选框
需求:导出一个带有单选下拉框与多选下拉框的excel模板思路:1.使用VBA脚本设置带有多选框的模板2.使用EasyExcel给字段填充单选下拉框数据源一.创建带有多选框宏的excel模板 *.x ...
excel不能插入activex控件_用excel做下拉多选菜单
先看视频: 下拉多选菜单https://www.zhihu.com/video/1070640311239249920 在日常工作中,有时候我们需要在单元格中输入多个固定内容的某几个项,手动输入很麻烦 ...
Excel下拉框设置多选
Excel下拉框一般只能单选,但有时候需要多选,多选的方法如下: 以office 2016中的excel为例: 1.数据验证入口 2.设置数据 3.sheet页右击查看代码 4.复制下面代码进去: 5 ...
php下拉多选框,excel下拉框多选打勾的设置方法
excel下拉框多选打勾的设置方法一.显示"开发工具"选项卡.打开Excel2010,点击左上方"文件"图标.点击"选项",弹出" ...
excel下拉菜单vba_在Excel下拉菜单中显示警告
excel下拉菜单vba With Excel's data validation, you can show a drop down list of items in a cell. You can ...
excel下拉菜单vba_一站式提供不同的Excel下拉菜单
excel下拉菜单vba To help users enter data in a spreadsheet, you can create drop down lists with Excel's ...
excel下拉菜单vba_Excel 2007的经典菜单
excel下拉菜单vba I noticed that Bits du Jour was offering a 70% discount on "Excel 2007 Ribbon to o ...
php excel多级下拉菜单自动匹配,Excel下拉菜单怎么做多级联动+自动匹配教程
Excel一直是近年来办公室工作中的必要软件之一,这个软件功能非常强大,如果你只学会了皮毛那就有些可惜了,而Excel隐藏了许多许多的小技巧.今天UU为大家带来的是Excel下拉菜单怎么做,其中包括多 ...

使用VBA实现Excel下拉多选

新项目需要excel导入时的下拉多选框

使用VBA实现Excel下拉多选相关推荐

最新文章

热门文章