如何实现vba有效性验证下拉多选

这篇文章主要介绍"如何实现vba有效性验证下拉多选"，在日常操作中，相信很多人在如何实现vba有效性验证下拉多选问题上存在疑惑，小编查阅了各式资料，整理出简单好用的操作方法，希望对大家解答"如何实现vba有效性验证下拉多选"的疑惑有所帮助！接下来，请跟着小编一起来学习吧！

有效性验证下拉多选

• 建立下拉单选

• 设置多选代码：

Sub Worksheet_Change(ByVal Target As Range)    Dim xRng As Range    Dim xValue1 As String    Dim xValue2 As String    ' 为了确保用户在Excel操作时只选中了单个单元格    If Target.Count > 1 Then Exit Sub        ' 当加上On Error Resume Next语句后，如果后面的程序出现"运行时错误"时，会继续运行，不中断。    On Error Resume Next        ' 定位含有验证条件的单元格    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)        If xRng Is Nothing Then Exit Sub        Application.EnableEvents = False        ' Intersect函数 返回两个或多个单元格重叠的部分 例子：Intersect(Range('a1:d5'), Range('c4:g9'))    If Not Application.Intersect(Target, xRng) Is Nothing Then        xValue2 = Target.Value        ' 事件响应，假如工作表发生改变，Undo，撤销该表        Application.Undo                xValue1 = Target.Value                Target.Value = xValue2                If xValue1 <> "" Then            If xValue2 <> "" Then                ' InStr函数                ' 第1个参数1代表从xValue1的第一个位置开始查找；                ' 第2个参数 要搜索的字符串；                ' 第3个参数 搜索到的字符串                ' & 字符串连接符                If xValue1 = xValue2 Or InStr(1, xValue1, "，" & xValue2) Or InStr(1, xValue1, xValue2 & "，") Then                    Target.Value = xValue1                Else                    Target.Value = xValue1 & "，" & xValue2                End If            End If        End If    End If            Application.EnableEvents = True        End Sub

到此，关于"如何实现vba有效性验证下拉多选"的学习就结束了，希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习，快去试试吧！若想继续学习更多相关知识，请继续关注网站，小编会继续努力为大家带来更多实用的文章！