如何實現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有效性驗證下拉多選”的學習就結束了，希望能夠解決大家的疑惑。理論與實踐的搭配能更好的幫助大家學習，快去試試吧！若想繼續學習更多相關知識，請繼續關注億速云網站，小編會繼續努力為大家帶來更多實用的文章！