下拉框其实很简单,跟着我操作起来
一、单选框
Excel表格中选中数据-有效性-序列-选中数据来源-生成单选下拉框
来源可以框选也可以手动填写,手动填写多个值用英文逗号分隔即可
至此单选框已经可以用了我们来看看成果
二、多选
多选用到了 宏定义,文件格式也不能用xlsx 、xls ,必须要支持宏声明的文件格式 如xlsm ,不然会保存不上
在单选的基础上继续操作,打开VBA编辑界面
选择表格名称(比如sheet1),鼠标右击下面的工作表。选择“查看代码”,就可打开VBA编辑界面。
代码中 Target.Column = 6 把6替换成自己文件中下拉所在的列
如果有多列 可以用or 连接
Target.Column = 4 Or Target.Column = 5
代码如下
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
至此,大功告成!上述代码实现的功能是,
- 点击下拉选项时,选中的会加入到单元格中,多项用逗号分隔;
- 如果单元格中有A,再次选中A时,则会在单元格中删除A,达到了取消选择的效果
温馨提示:
如果从服务器上下载的xlsm文件,会有警告,
1. 如果单个文件,右键该文档-属性,勾选“解除锁定” 即可
2. 如果从改网站下载的文件很多,可以使用如下方法
打开IE-Internet 选项-Internet 属性-安全-受信任的站点-网站,添加受信任的站点(Excel下载的源地址)
以上教程内容希望可以帮助大家解决Excel下拉框多选的问题,另外如果大家运行EXCEL代码中遇到问题,随时留言即可。
参考链接:
Excel函数运用
ExcelVBA字符串函数大全
解决Microsoft已经阻止宏运行,因为此文件的来源不受信任