這篇文章主要介紹“如何實(shí)現(xiàn)vba有效性驗(yàn)證下拉多選”，在日常操作中，相信很多人在如何實(shí)現(xiàn)vba有效性驗(yàn)證下拉多選問題上存在疑惑，小編查閱了各式資料，整理出簡單好用的操作方法，希望對大家解答”如何實(shí)現(xiàn)vba有效性驗(yàn)證下拉多選”的疑惑有所幫助！接下來，請跟著小編一起來學(xué)習(xí)吧！

成都創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),上栗企業(yè)網(wǎng)站建設(shè),上栗品牌網(wǎng)站建設(shè),網(wǎng)站定制,上栗網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,上栗網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

有效性驗(yàn)證下拉多選

• 建立下拉單選

• 設(shè)置多選代碼：

Sub Worksheet_Change(ByVal Target As Range)
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String

    ' 為了確保用戶在Excel操作時(shí)只選中了單個(gè)單元格
    If Target.Count > 1 Then Exit Sub
    
    ' 當(dāng)加上On Error Resume Next語句后，如果后面的程序出現(xiàn)"運(yùn)行時(shí)錯(cuò)誤"時(shí)，會(huì)繼續(xù)運(yùn)行，不中斷。
    On Error Resume Next
    
    ' 定位含有驗(yàn)證條件的單元格
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    
    If xRng Is Nothing Then Exit Sub
    
    Application.EnableEvents = False
    
    ' Intersect函數(shù) 返回兩個(gè)或多個(gè)單元格重疊的部分 例子：Intersect(Range('a1:d5'), Range('c4:g9'))
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        ' 事件響應(yīng)，假如工作表發(fā)生改變，Undo，撤銷該表
        Application.Undo
        
        xValue1 = Target.Value
        
        Target.Value = xValue2
        
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                ' InStr函數(shù)
                ' 第1個(gè)參數(shù)1代表從xValue1的第一個(gè)位置開始查找；
                ' 第2個(gè)參數(shù) 要搜索的字符串；
                ' 第3個(gè)參數(shù) 搜索到的字符串
                ' & 字符串連接符
                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

到此，關(guān)于“如何實(shí)現(xiàn)vba有效性驗(yàn)證下拉多選”的學(xué)習(xí)就結(jié)束了，希望能夠解決大家的疑惑。理論與實(shí)踐的搭配能更好的幫助大家學(xué)習(xí)，快去試試吧！若想繼續(xù)學(xué)習(xí)更多相關(guān)知識，請繼續(xù)關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編會(huì)繼續(xù)努力為大家?guī)砀鄬?shí)用的文章！