excel如何实现下拉框复选

excel如何实现下拉框复选？

EXCEL选择下拉框实现复选

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

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

代码如下：Private Sub Worksheet_Change(ByVal Target As Range)' Developed by Contextures Inc.' www.contextures.comDim rngDV As RangeDim oldVal As StringDim newVal As StringIf Target.Count > 1 Then GoTo exitHandler On Error Resume NextSet rngDV = Cells.SpecialCells(xlCellTypeAllValidation)On Error GoTo exitHandler If rngDV Is Nothing Then GoTo exitHandler If Intersect(Target, rngDV) Is Nothing Then'do nothingElseApplication.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 IfEnd If exitHandler:Application.EnableEvents = TrueEnd Sub更多Excel相关技术文章，请访问Excel基础教程栏目！以上就是excel如何实现下拉框复选的详细内容，更多请关注小潘博客其它相关文章！