如何实现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有效性验证下拉多选”的学习就结束了,希望能够解决大家的疑惑。理论与实践的搭配能更好的帮助大家学习,快去试试吧!若想继续学习更多相关知识,请继续关注创新互联网站,小编会继续努力为大家带来更多实用的文章!


网站名称:如何实现vba有效性验证下拉多选
转载来源:http://myzitong.com/article/gcsdhe.html