[VBA学习]如何在Excel的下拉选中显示多选?

我们知道,在Excel中我们可以给数据添加下拉选择框
即在数据验证当中选择序列,然后输入选择框的选择范围即可
[VBA学习]如何在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

使用方法如下图所示[VBA学习]如何在Excel的下拉选中显示多选?
其中Columns y表示的是第y列添加这样的多选下拉框
需要根据需要进行替换

上一篇:[Word,VBA]英式日期转换函数,效果如 1st Apr 2020


下一篇:vba中字典的一些函数