Note: The other languages of the website are Google-translated. Back to English

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 az 1. legördülő listából doc nyíl jobbra Válasszon ki több elemet az 2. legördülő listából

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.
Válasszon ki több elemet az 3. legördülő listá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.
doc kutools multi select legördülő lista 1

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.
doc kutools multi select legördülő lista 2

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ó!
doc haladó kombinációs sorok
 
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.
kte lap 201905

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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (26)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Hozzáadás után a legördülő menüből származó adatok nem működnek.
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanezt a problémát találtam. Azt hiszem, megtaláltam a módját, hogy leküzdjem. A kód alján az „xStrNew = xStrOld” kód látható. Ehelyett állítsa be azt, hogy xStrNew = " "

Nekem működik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Van rá esély, hogy még megvan ez a kód? Próbálom megtenni, amit mondtál, de a szöveg továbbra is ismétlődik.
Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Sajnálom, de nem. Azonban csak megnéztem a fenti kódot, és úgy tűnik, hogy a szerző szerkesztette a kódot az én javaslatommal.

tegye közzé problémáját ennek a cikknek a fő szálában.
A weboldal moderátora ezt a megjegyzést minimalizálta
az első kódban adja hozzá a következő sort a 6. és 7. sor közé (a második kódban 10-11): Ha Target.Value = "", akkor lépjen ki a Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Ezt a "Több elem kiválasztása a legördülő listából egy cellába ismétlés nélkül" ezt használtam.
ez történt
1. A többszörös kiválasztás probléma nélkül történik.
2. A probléma az, amikor megpróbálok szerkeszteni és eltávolítani egy beállítást. Nincs lehetőségem eltávolítani egy opciót. folyamatosan szaporodik.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan alkalmazná ezt a funkciót, de úgy, hogy ne legyenek redundáns értékek? Bármilyen segítséget szívesen vennénk!
A weboldal moderátora ezt a megjegyzést minimalizálta
Ha létrehozok egy lapot legördülő listával a jelölőnégyzetek használatával, meg lehet osztani ezt a munkafüzetet ezzel a jelölőnégyzet funkcióval?
A weboldal moderátora ezt a megjegyzést minimalizálta
Azt is tapasztalom, hogy miután több elemet kiválasztottam a frissített VBA kóddal, továbbra sem tudom törölni a cellát, csak szoroz.
Van valakinek erre még megoldása?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Rusty! A kódot frissítettem, hogy stabilabbá tegyem. De mivel a cella adatellenőrzésben van, az üres pedig az adatellenőrzésen kívül van, a kód nem tudja megoldani ezt a problémát.
A weboldal moderátora ezt a megjegyzést minimalizálta
a kód működik, de átviszi az összes cellát, és megsokszorozódik a cellákban, és nem engedélyezi a törlést, segíthet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Quando quero deletar alguma opção ou todas dá erro. Como posso megoldó?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Como puedo usar este codigo para todo un workheet y no solo para una pestana?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Vero! A Kutools for Excel Többválasztós legördülő listája funkciója támogatja több elem kiválasztását a legördülő listából a teljes munkalapon vagy a munkafüzetben, csak adja meg a Megadott hatókört a Többválasztós legördülő lista beállításai párbeszédpanelen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Hogyan tudom ezt megtenni az általad megadott ökölformuláért :) Előre is köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Bonjour,
Selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
hogyan kell csinálni ?
előre is köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, elnézést. A probléma elkerülése érdekében a következő verzióban frissítjük funkciónkat. Köszönjük visszajelzését.
A weboldal moderátora ezt a megjegyzést minimalizálta
BCP köszönöm
Mais à quand la nouvelle verzió?
A weboldal moderátora ezt a megjegyzést minimalizálta
Sziasztok, az új verzió tervezés alatt áll, mivel a következő verzió több funkciót is frissít, ez eltarthat egy ideig.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Frissítettük ezt a verziót, de ez egy béta verzió, kérjük töltse le innen: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Ha bármilyen probléma merülne fel, várjuk visszajelzését.
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm,
Je vais la télécharger et essayer.
Bonne journée
A weboldal moderátora ezt a megjegyzést minimalizálta
a kód működik, de nem engedi, hogy töröljem, elküldené valaki az új kódot.
A weboldal moderátora ezt a megjegyzést minimalizálta
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Példa:
Szöveg a listához:
TRAMITAR ESTE ASUNTO
KOORDINÁRIS
ANALIZAR Y RECOMENDAR

szia Selectiono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

Úgy tűnik számomra
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o sea, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Gorgelys! A Kutools többválasztós legördülő listája segíthet. A kiválasztott tételek a kívánt sorrendben lesznek.
A weboldal moderátora ezt a megjegyzést minimalizálta
Como posso utilizar a função com a planilha bloqueada?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Makrók, próbálja ki az alábbi kódot, amely támogatja a több elem kiválasztását a védett lap legördülő listában.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) 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

És a Kutools for Excel 26.1 és újabb verziói is támogatják ezt a munkát védett lapon.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi