Hogyan válasszon ki több elemet a legördülő listából az Excel cellájába?

A legördülő listát gyakran használják az Excel napi munkájában. Alapértelmezés szerint csak egy elem választható ki a legördülő listából. Bizonyos esetekben előfordulhat, hogy több elemet kell kiválasztania a legördülő listából egyetlen cellába, az alábbi képernyőképen. Hogyan tudja kezelni az Excelben?

Válasszon ki több elemet a legördülő listából egy VBA-val rendelkező cellába

Válasszon ki több elemet a legördülő listából egy cellába a Kutools for Excel praktikus lehetőségével

Válasszon ki több elemet a legördülő listából egy VBA-val rendelkező cellába

Íme, néhány VBA szívességet tehet ennek a feladatnak a megoldásában.

Válassza ki az ismétlődő elemeket a cellák legördülő listájából

1. A legördülő lista létrehozása után kattintson a jobb gombbal a lap fülre a kiválasztáshoz Kód megtekintése a helyi menüből.

2. Ezután a Microsoft Visual Basic for Applications ablakba másolja és illessze be a kódot az üres parancsfájlba.

VBA: Válasszon ki több elemet egy cella legördülő listájából

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Mentse el a kódot, és zárja be az ablakot, hogy visszatérjen a legördülő listára. Most több elemet is kiválaszthat a legördülő listából.

Megjegyzés:

1. A VBA-val szóközzel elválasztja az elemeket, változtathat xStrNew = xStrNew & "" & Célérték másoknak, hogy szükség szerint változtassák meg az elválasztót. Például, xStrNew = xStrNew & "," & Célérték vesszővel választja el az elemeket.

2. Ez a VBA-kód a lap összes legördülő listájához használható.

Válasszon ki több elemet a legördülő listából egy cellába ismétlés nélkül

Ha csak egyedi elemeket szeretne kiválasztani a legördülő listából egy cellába, akkor ismételje meg a fenti lépéseket, és használja az alábbi kódot.

VBA ： Válasszon ki több elemet a legördülő listából a cellába ismétlés nélkül

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Mindkét fenti VBA-kód nem támogatja a cellatartalom egy részének törlését, csak a cella összes elemének törlését.

Válasszon ki több elemet a legördülő listából egy cellába a Kutools for Excel praktikus lehetőségével

Ha nem ismeri a VBA kódot, megteheti ingyenes telepítés praktikus eszköz - Kutools az Excel számára, amely a segédprogramok csoportját tartalmazza a legördülő listáról, és van egy lehetőség Többszörös kiválasztás legördülő lista segítségével könnyedén kiválaszthat több elemet a legördülő listából egy cellába.

A legördülő lista létrehozása után válassza ki a legördülő lista celláit, majd kattintson a gombra Kutools > Legördülő lista > Többszörös kiválasztás legördülő lista a segédprogram engedélyezéséhez.

Ezután a kiválasztott legördülő lista cellái több elemet is kijelölhetnek a cellába.

Ha először használja ezt az opciót, akkor megadhatja a segédprogram beállításait, amire szüksége van a segédprogram alkalmazása előtt.

Kattints Kutools > Legördülő lista > a mellette lévő nyíl Többszörös kiválasztás legördülő lista > beállítások.

Aztán a Többször válassza ki a legördülő lista beállításait párbeszédpanelt, akkor megteheti

1) Adja meg az alkalmazási kört szükség szerint;

2) Adja meg az elemek helyének irányát;

3) Adja meg az elemek közötti elválasztót;

4) Adja meg, ha nem ad hozzá duplikátumokat, és távolítsa el az ismétlődő elemeket.

Kattints Ok és kattintson Kutools > Legördülő lista > Többszörös kiválasztás legördülő lista hogy hatást gyakoroljon rá.

típus: A Többszörös kiválasztás legördülő lista segédprogram, akkor kell telepíteni eleinte azt. Ha többszintű legördülő listát szeretne létrehozni, az alábbi segédprogram segíthet.

Könnyen létrehozhat egy dinamikus 2 vagy több szinttől függő legördülő listát az Excelben

Az Excel programban bonyolult egy két- vagy többszintű legördülő lista létrehozása. Itt a Dinamikus legördülő lista hasznossága Kutools az Excel számára szívességet tehet. Csak annyit kell tennie, hogy megrendeli az adatokat az ábra szerint, majd válassza ki az adattartományt és a kimeneti tartományt, majd hagyja a segédprogramra.  Kattintson a gombra 30 napos ingyenes próbaverzió!

Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen kipróbálható, korlátozás nélkül 30 nap.

---

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...