我们知道,在Excel中我们可以给数据添加下拉选择框
即在数据验证当中选择序列,然后输入选择框的选择范围即可
但是这并不能够实现多选的功能
只能选择若干选择中的一项
我们可以在VBA中使用宏来添加多选框
代码如下所示
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count <> 1 Then End
If Intersect(Target, Columns(6)).Cells.Count = 0 Then End
Application.EnableEvents = False
newdata = Target.Value
Application.Undo
olddata = Target.Value
If newdata <> "" Then
If olddata <> "" Then
Target.Value = olddata & "," & newdata
If InStr(olddata, newdata) > 0 Then
Target.Value = olddata
Else
Target.Value = olddata & "," & newdata
End If
Else
Target = newdata
End If
End If
Application.EnableEvents = True
End Sub
使用方法如下图所示
其中Columns y表示的是第y列添加这样的多选下拉框
需要根据需要进行替换