Ga naar hoofdinhoud

Hoe selecteer ik meerdere items uit de vervolgkeuzelijst in een cel in Excel?

Auteur: zon Laatst gewijzigd: 2023-04-07

De vervolgkeuzelijst wordt veel gebruikt in het dagelijkse werk van Excel. Standaard kan slechts één item worden geselecteerd in een vervolgkeuzelijst. Maar soms moet u mogelijk meerdere items uit de vervolgkeuzelijst in één enkele cel selecteren, zoals hieronder wordt getoond. Hoe ga je ermee om in Excel?

doc selecteer meerdere items uit de vervolgkeuzelijst 1 doc pijl naar rechts doc selecteer meerdere items uit de vervolgkeuzelijst 2

Selecteer meerdere items uit de vervolgkeuzelijst in een cel met VBA

Selecteer eenvoudig en snel meerdere items uit de vervolgkeuzelijst in een cel


Selecteer meerdere items uit de vervolgkeuzelijst in een cel met VBA

Hier zijn enkele VBA's die u een plezier kunnen doen bij het oplossen van deze taak.

Selecteer dubbele items uit de vervolgkeuzelijst in een cel

1. Nadat u een vervolgkeuzelijst heeft gemaakt, klikt u met de rechtermuisknop op de bladtab om deze te selecteren Bekijk code vanuit het contextmenu.
doc selecteer meerdere items uit de vervolgkeuzelijst 3

2. Vervolgens in de Microsoft Visual Basic voor toepassingen venster, kopieer en plak onderstaande code in het lege script.

VBA: selecteer meerdere items uit de vervolgkeuzelijst in een cel

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. Sla de code op en sluit het venster om terug te gaan naar de vervolgkeuzelijst. Nu kunt u meerdere items selecteren in de vervolgkeuzelijst.

Opmerking:

1. Met de VBA scheidt het de items op spatie, die u kunt wijzigen xStrNew = xStrNew & "" & Doelwaarde aan anderen om het scheidingsteken naar behoefte te wijzigen. Bijvoorbeeld, xStrNew = xStrNew & "," & Doelwaarde scheidt de items met komma's.

2. Deze VBA-code werkt voor alle vervolgkeuzelijsten in het blad.

Selecteer meerdere items uit de vervolgkeuzelijst naar een cel zonder herhaling

Als u alleen unieke items uit de vervolgkeuzelijst voor een cel wilt selecteren, kunt u bovenstaande stappen herhalen en onderstaande code gebruiken.

VBA: selecteer meerdere items uit de vervolgkeuzelijst naar een cel zonder herhaling

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

Beide bovenstaande VBA-codes ondersteunen niet om delen van celinhoud te verwijderen, alleen ondersteuning om alle items van de cel te wissen.


Selecteer eenvoudig en snel meerdere items uit de vervolgkeuzelijst in een cel

In Excel, behalve VBA-code, zijn er geen andere manieren om meerdere items in een vervolgkeuzelijst in een cel te selecteren. echter, de Meervoudig selecteren vervolgkeuzelijst kenmerk van Kutools for Excel kan deze klus snel en gemakkelijk met klikken aan.

Tip: Installeer eerst Kutools voor Excel voordat u deze tool toepast. Ga nu naar gratis downloaden.
Stap 1: Selecteer Kutools > Vervolgkeuzelijst > Meerdere selecties Vervolgkeuzelijst
Stap 2: Geef in het dialoogvenster Vervolgkeuzelijst Meerdere selecteren de instellingen op
  1. Bereik instellen;
  2. Specificeer het scheidingsteken voor scheidingsitems in een cel;
  3. Bepaal de tekstrichting;
  4. Klik op OK.
    doc selecteer meerdere items uit de vervolgkeuzelijst kte 1
Resultaat:

selecteer meerdere items uit de vervolgkeuzelijst kutools

Note: Als u de functie Multi-select Drop-down List wilt gebruiken, moet u eerst Kutools voor Excel installeren klik om te downloaden en krijg nu een gratis proefperiode van 30 dagen.

Maak eenvoudig een dynamische vervolgkeuzelijst met twee niveaus of meerdere niveaus in Excel

In Excel is het ingewikkeld om een ​​vervolgkeuzelijst met twee niveaus of meerdere niveaus te maken. Hier de Dynamische vervolgkeuzelijst nut van Kutools for Excel kan je een plezier doen. Wat u alleen hoeft te doen, is de gegevens bestellen zoals weergegeven in het voorbeeld, vervolgens het gegevensbereik en het uitvoerbereik selecteren en het vervolgens aan het hulpprogramma overlaten.  Klik voor een gratis proefperiode van 30 dagen!
doc geavanceerd combineren rijen
 
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen.

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
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!
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations