其他分享
首页 > 其他分享> > [VBA学习]如何在Excel的下拉选中显示多选?

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

作者:互联网

我们知道,在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列添加这样的多选下拉框
需要根据需要进行替换

标签:olddata,VBA,End,多选,Excel,Value,Application,newdata,Target
来源: https://blog.csdn.net/weixin_44230172/article/details/117407260