Excel做下拉框单选、多选功能（多选支持取消选择）

大家好，欢迎来到IT知识分享网。

下拉框其实很简单，跟着我操作起来

一、单选框

二、多选

在单选的基础上继续操作，打开VBA编辑界面

Private Sub Worksheet_Change(ByVal Target As Range) 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 = 6 Then If oldVal = "" Then Else If newVal = "" Then Else If InStr(oldVal, newVal) = 1 Then If oldVal = newVal Then Target.Value = "" Else Target.Value = Replace(oldVal, newVal & ",", "") End If Else If InStr(oldVal, newVal) > 1 Then Target.Value = Replace(oldVal, "," & newVal, "") Else Target.Value = oldVal & "," & newVal End If End If End If End If End If End If exitHandler: Application.EnableEvents = True End Sub 

至此，大功告成！上述代码实现的功能是，

1. 点击下拉选项时，选中的会加入到单元格中，多项用逗号分隔；
2. 如果单元格中有A,再次选中A时，则会在单元格中删除A,达到了取消选择的效果
   
   

温馨提示：
如果从服务器上下载的xlsm文件，会有警告，
1. 如果单个文件，右键该文档-属性，勾选“解除锁定” 即可


2. 如果从改网站下载的文件很多，可以使用如下方法
打开IE-Internet 选项-Internet 属性-安全-受信任的站点-网站，添加受信任的站点（Excel下载的源地址）

以上教程内容希望可以帮助大家解决Excel下拉框多选的问题，另外如果大家运行EXCEL代码中遇到问题，随时留言即可。