欧非资源网：安全、免费、专业放心的资源下载站！ 最新软件|软件分类

excel怎么制作表格 office 2020激活版下载

• 网站首页安卓应用安卓游戏电脑软件office教程

Office专区Word专区Excel专区PPT专区电脑专区手机专区其他专区

您的位置：欧非资源网 > Excel专区 > Excel教程 > excel如何实现下拉框复选

excel如何实现下拉框复选

时间：2021-01-30 16:47作者：admin来源：未知人气：1535我要评论(0)

excel如何实现下拉框复选？

EXCEL选择下拉框实现复选

第一步：新建一个excel且设置数据有效性【选中X列--数据--有效性】

第二步：开发工具--查看代码--把代码复制进去保存就OK了

代码如下：

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

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

相关阅读 你想学的FILTER函数用法，很全了当Excel体积臃肿，运行卡顿时，我们应该做些什么？带合并单元格的表格，求和计数也不难​Excel筛选条件怎么设置​ExcelA4页面怎么设置​Excel表格A列被隐藏了怎么恢复​Excel图例位于底部怎么设置​Excel图表怎么嵌入单元格​Excel没保存不小心关闭怎么恢复​Excel图表怎么设置X轴Y轴

文章评论

查看所有0条评论>>

发表评论

提交评论

分类索引

• Excel教程
• Excel函数
• Excel模板
• Excel技巧

热门文章 excel怎么制作表格？制作excel表格的步骤技巧excel 常见的六个排序方法，你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法

最新文章 你想学的FILTER函数用法，很全了当Excel体积臃肿，运行卡顿时，我们应该做些什么？ 带合并单元格的表格，求和计数也不难​Excel筛选条件怎么设置​ExcelA4页面怎么设置​Excel表格A列被隐藏了怎么恢复

人气排行 excel怎么制作表格？制作excel表格的步骤技巧excel 常见的六个排序方法，你必须要学会excel自动换行显示不全怎么办excel 数据透视表 选定区域不能分组 的原因和解决方法Excel高级筛选怎么用 excel高级筛选多个条件（并且、或用法）excel if函数的多个条件使用方法Excel中的快速填充键ctrl+e没反应，不能用是为什么？excel 判断两列数据是否一致的四种方法