Hogyan hozhatunk létre legördülő listát több választással vagy értékkel az Excelben?

Alapértelmezés szerint csak egy elemet választhat ki az Excel adatellenőrzési legördülő listájából. Hogyan lehet többször kiválasztani a legördülő listából, ahogy az alábbi gif-ben látható? A cikkben ismertetett módszerek segíthetnek a probléma megoldásában.

Hozzon létre legördülő listát több választással VBA kóddal

Ez a szakasz két VBA-kódot tartalmaz, amelyek segítségével több kijelölést végezhet a munkalap legördülő listáiban. A két VBA kód a következőket tudja elérni:

Alkalmazhatja az alábbi VBA-kódok egyikét, ha több kijelölést szeretne végrehajtani egy munkalap legördülő listájában az Excelben. Kérjük, tegye a következőket.

1. Nyissa meg azt a munkalapot, amely az adatérvényesítési legördülő listákat tartalmazza, amelyekből többszörös kijelölést szeretne végezni. Kattintson a jobb gombbal a lapfülre, és válassza ki Kód megtekintése a helyi menüből.

2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja az alábbi VBA kódot a kód ablakba. Lásd a képernyőképet:

VBA-kód 1: Több kijelölés engedélyezése egy legördülő listában, ismétlődések nélkül

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                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

3. megnyomni a más + Q gombok a Microsoft Visual Basic for Applications ablak.

Mostantól több elemet is kiválaszthat az aktuális munkalap legördülő listájából.

Tegyük fel, hogy véletlenül választott ki egy elemet, és el kell távolítania anélkül, hogy az egész cellát törölné, és elölről kezdené. A következő VBA-kód 2 tehet egy szívességet.

VBA-kód 2: Több kijelölés engedélyezése a legördülő listában ismétlődések nélkül (törölje a meglévő elemeket az újbóli kijelöléssel)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Megjegyzések:

Egy csodálatos eszközzel könnyedén létrehozhat legördülő listát több választással

Itt nagyon ajánljuk a Többszörös kiválasztás legördülő lista jellemzője Kutools az Excel számára neked. Ezzel a szolgáltatással könnyedén kiválaszthat több elemet a legördülő listából egy adott tartományban, az aktuális munkalapon, az aktuális munkafüzetben vagy az összes megnyitott munkafüzetben, amire szüksége van.

1. kettyenés Kutools > Legördülő lista > Többszörös kiválasztás legördülő lista > Beállítások. Lásd screenshot:

2. Ban,-ben Többször válassza ki a legördülő lista beállításait párbeszédpanelt, kérjük, konfigurálja az alábbiak szerint.

• 2.1) Adja meg az alkalmazási kört a Alkalmazza szakasz. Ebben az esetben én választom Aktuális munkalap tól Meghatározott hatály legördülő lista;
• 2.2) A Szövegirány szakaszban válasszon ki egy szövegirányt az igényei alapján;
• 2.3) A szétválasztó mezőbe írjon be egy elválasztót, amelyet a több érték elválasztására használ majd;
• 2.4) Ellenőrizze a Ne adjon meg másolatokat doboz a Opciók szakasz, ha nem szeretne duplikátumokat készíteni a legördülő lista celláiból;
• 2.5) Kattintson a gombra OK gomb. Lásd a képernyőképet:

3. Kattintson a gombra Kutools > Legördülő lista > Többszörös kiválasztás legördülő lista a funkció engedélyezéséhez.

Most több elemet is kiválaszthat az aktuális munkalap legördülő listájából, vagy bármely, a 2. lépésben megadott hatókörből.

Kapcsolódó cikkek:

---

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

• újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
• Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
• Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
• Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
• Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
• Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
• Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
• Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
• Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.

Tovább ... Ingyenes letöltés... Vásárlás... 

---

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

• Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
• Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
• 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!

Tovább ... Ingyenes letöltés... Vásárlás...