Ugrás a tartalomra

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 egyszerűen és gyorsan


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 egyszerűen és gyorsan

Az Excelben a VBA-kód kivételével nincs más lehetőség a legördülő listából kiválasztott több elem engedélyezésére egy cellában. Azonban a Többszörös kiválasztás legördülő lista jellemzője Kutools az Excel számára kattintással gyorsan és egyszerűen kezelheti ezt a munkát.

típus: Az eszköz alkalmazása előtt először telepítse a Kutools for Excel alkalmazást. Menjen az ingyenes letöltéshez most.
1. lépés: Válassza a Kutools > Legördülő lista > Többválasztós legördülő lista lehetőséget
2. lépés: A Többválasztásos legördülő lista párbeszédpanelen adja meg a beállításokat
  1. Állítsa be a hatókört;
  2. Adja meg az elválasztót az elemek elválasztásához egy cellában;
  3. Döntse el a szöveg irányát!
  4. Kattintson az OK gombra.
    doc válasszon ki több elemet a legördülő listából kte 1
Eredmény:

válasszon ki több elemet a kutools legördülő listából

Megjegyzések: A Többválasztós legördülő lista funkció használatához először telepítse a Kutools for Excel alkalmazást. kattintson a letöltéshez, és most 30 napos ingyenes próbaverziót kap.

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 30 napos ingyenes próbaidőszakra!
doc haladó kombinációs sorok
 
Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, 30 napon belül korlátozás nélkül kipróbálható.

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz 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!
Comments (26)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Como posso utilizar a função com a planilha bloqueada?
This comment was minimized by the moderator on the site
Hi, Macros, try below code, it supports to select multi items in drop down list in protected sheet.
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

And also Kutools for Excel 26.1 and later versions supports this job in protected sheet.
This comment was minimized by the moderator on the site
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Ejemplo:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
COORDINAR
ANALIZAR Y RECOMENDAR

sí selecciono:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

me aparece
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.....
This comment was minimized by the moderator on the site
Hi, Gorgelys, Kutools's multi-select drop down list can help you. The items you selected will be in the order like you want.
This comment was minimized by the moderator on the site
the code works but won't let me delete can someone please post the new code.
This comment was minimized by the moderator on the site
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 !
comment faire ?
merci par avance
This comment was minimized by the moderator on the site
Hi, sorry for that. We will upgrade our feature next version to avoid this problem. Thank you for your feekback.
This comment was minimized by the moderator on the site
Merci bcp
Mais à quand la nouvelle version ?
This comment was minimized by the moderator on the site
Hi, we have updated this version for you, but this is a beta version, please download it from this: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
If there are any problems, welcome for your feedback.
This comment was minimized by the moderator on the site
Merci,
Je vais la télécharger et essayer.
Bonne journée
This comment was minimized by the moderator on the site
Hi, the new version is in planning, since next version will upgrade multiple features, it may take somewhat time.
This comment was minimized by the moderator on the site
Hi! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
This comment was minimized by the moderator on the site
Hi, Vero, Kutools for Excel's Multi-select Drop-down List feature suports selecting multiple items from drop down list in the whole worksheet or across workbook, just specify the Specified Scope in the Multi-select Drop-down List Settings dialog.
This comment was minimized by the moderator on the site
How can I do that for the fist formula you provided :) Thanks in advanced!
This comment was minimized by the moderator on the site
Quando quero deletar alguma opção ou todas dá erro. Como posso resolver?
This comment was minimized by the moderator on the site
I am also finding that after selecting multiple items using the updated VBA code, I still cannot clear the cell, it just keeps multiplying.
Does anyone have a solution for this yet?
This comment was minimized by the moderator on the site
Hi, Rusty, the code I have updated for making it more stable. But because the cell is in data validation, blank is out of data validation, the code cannot solve this problem.
This comment was minimized by the moderator on the site
the code works but carries over across all cells and multiplies in the cells and wont allow delete can you assist?
This comment was minimized by the moderator on the site
If I create a sheet with dropdown list using checkboxes, is there a way to share this workbook with this checkboxes feature?
This comment was minimized by the moderator on the site
How would you apply this functionality but making it so that there aren't redundant values? Any help would be appreciated!
This comment was minimized by the moderator on the site
I used this "Select multiple items from drop down list to a cell without repeat"
this is what happened
1. Multiple selections happen without problems.
2. The issue is when i try to edit and remove an option. There is no way for me to remove an option. it keeps multiplying.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations