使用【宏】设置excel 下拉框可进行多选

宏代码：

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 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 nothing
ElseApplication.EnableEvents = FalsenewVal = Target.ValueApplication.UndooldVal = Target.ValueTarget.Value = newValIf Target.Column = 7 Then '这里规定好哪一列的数据有效性是多选的，A列是第1列，依次类推，如3就是C列，7就是G列If oldVal = "" Then'do nothingElseIf newVal = "" Then'do nothingElseIf 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)ElseTarget.Value = Replace(oldVal, newVal & ",", "") '不是最后一个选项重复的时候处理逗号End IfElse '不是重复选项就视同增加选项Target.Value = oldVal & "," & newVal
'      NOTE: you can use a line break,
'      instead of a comma
'      Target.Value = oldVal _
'        & Chr(10) & newValEnd IfEnd IfEnd IfEnd If
End IfexitHandler:Application.EnableEvents = True
End Sub

可参考：
https://www.zhihu.com/question/20484204/answer/275086097

使用【宏】设置excel 下拉框可进行多选相关推荐

java实现设置Excel下拉框在使用Excel的时候用到了下拉框，实现的效果如下↓
在使用Excel的时候用到了下拉框,实现的效果如下↓ 在生成excel文件时,需要根据给出的下拉框选项列表动态生成下拉框.实现代码如下: private void createSelect(XSSFW ...
JAVA设置excel下拉框默认值,Java设置Excel数据验证(下拉列表)
测试Excel表格设置数据下拉列表 /** * 功能描述: 测试Excel表格设置数据下拉列表 * * @author Jack_Liberty * @date 2021-02-21 16:30 */ ...
Java17 POI5.2.0 Excel 下拉框数据校验
Java 设置Excel 下拉框.自定义数据校验一.工具类 1.ExcelUtil 2.Pom 二.生成文件 1.下拉框 2.数据校验三.Excel 命令 1.获取活动单元格:=INDIRECT( ...
解决POI的SXSSFSheet 创建excel下拉框，下拉框内容过多时不显示的问题
1. 复现 :使用POI导出带下拉框的excel文件,如果下拉框内容过多,下拉框变为了空 2. 解决思路 : 导出时创建隐藏的sheet,下拉框的取值从隐藏的sheet中获取,下拉框显示正常 3. 记 ...
Excel下拉框设置多选
Excel下拉框一般只能单选,但有时候需要多选,多选的方法如下: 以office 2016中的excel为例: 1.数据验证入口 2.设置数据 3.sheet页右击查看代码 4.复制下面代码进去: 5 ...
php下拉多选框,excel下拉框多选打勾的设置方法
excel下拉框多选打勾的设置方法一.显示"开发工具"选项卡.打开Excel2010,点击左上方"文件"图标.点击"选项",弹出" ...
excel下拉框超过255后office打开报部分内容有问题
导出Excel数据用的是EasyExcel插件,为了解决excel下拉框超过255无法正常显示问题,网上找了一大堆解决方案,都类似,wps都可以正常显示,但是office打开报部分内容有问题提示,踩了 ...
若依导出excel时实现excel下拉框
若依里面集成了Apache poi,可以直接自己重写,也可以调用若依的实现. 这里记录一下使用若依自带的属性实现excel下拉框选择,因为实际开发中用户自己填的值可能会不正确,这样不与系统的自带匹配, ...
php excel 下拉菜单,excel下拉框怎么做
excel下拉框怎么做? 在日常工作中有时我们会遇到一些数据会重复的输入,为了减少重复性与错误的概率我们就可以把它作成下拉菜单的方式,这样每次使用时只要选择对应的项就可以了,方便又快捷.这里我们要数据 ...

使用【宏】设置excel 下拉框可进行多选

使用【宏】设置excel 下拉框可进行多选相关推荐

最新文章

热门文章