Tot nu toe keken we naar hoe maak je vervolgkeuzelijsten in Excel. Vandaag laat ik zien hoe maak je een vervolgkeuzelijst met meerdere selecties in Excel .

Download Praktijk Werkboek

U kunt het oefenwerkboek hier downloaden.

Stap-voor-stap procedures om vervolgkeuzelijst te maken in Excel met meerdere selecties

Hier hebben we een dataset met een kolom Naam van het boek die een aantal boeknamen bevat. Ons doel van vandaag is om op basis van deze dataset een keuzelijst te maken die meerdere selecties aankan. Ik zal in het onderstaande stap voor stap de procedures laten zien.

STAP 1: Drop-Down Lijst maken met behulp van gegevensvalidatie

Om een keuzelijst met meerdere selecties te maken, moeten we eerst een keuzelijst maken. Laten we de procedures doorlopen.

• Selecteer eerst de cel waar u de vervolgkeuzelijst wilt maken. Ik heb geselecteerd Cel D5 .

• Ga vervolgens naar de Gegevens tabblad en selecteer Validatie van gegevens van het lint.

• Dan, van de Validatie van gegevens venster, selecteer Lijst in Sta toe. sectie en schrijf de bereikcellen waarvan u de gegevens wilt toevoegen aan de lijst in het Bron veld.
• U kunt ook klikken op de kleine pijl naar boven in het Bron en selecteer het gegevensbereik van het werkblad.

• Tenslotte zien we een keuzelijst gemaakt in Cel D5 .

Vergelijkbare lezingen:

• Een vervolgkeuzelijst maken in Excel (onafhankelijk en afhankelijk)
• Meerdere selecties maken uit keuzelijst in Excel (3 manieren)
• Hoe maak je een afhankelijke vervolgkeuzelijst in Excel?
• Maak vervolgkeuzelijst in meerdere kolommen in Excel (3 manieren)

STAP 2: Drop-Down Lijst inschakelen om meervoudige selectie door VBA-code te accepteren

We hebben de keuzelijst al gemaakt. Nu is het tijd om de keuzelijst voor te bereiden op meerdere selecties. Ik zal gebruik maken van 2 VBA codes om de lijst meerdere selecties te laten accepteren. De ene accepteert de herhaling van gegevens en de andere niet.

Geval 1: VBA-code voor meervoudige selecties met herhaling

In dit deel laat ik zien hoe je een vervolgkeuzelijst met meerdere selecties maakt die een herhaling van gegevens neemt.

Laten we de procedures doorlopen.

• Druk eerst op ALT + F11 om de VBA raam.
• Selecteer vervolgens Projectverkenner . Ook, dubbel - klik op het blad waar u de taak wilt uitvoeren.

• Tegelijkertijd, een Code venster wordt geopend.
• Schrijf daarna de volgende code in dat venster.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" Then.Target.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Kom tenslotte terug naar het werkblad en we zullen meerdere elementen in de keuzelijst kunnen selecteren met een herhaling van hetzelfde element.

Geval 2: VBA-code voor meervoudige selectie zonder herhaling

In dit deel zal ik laten zien hoe je een vervolgkeuzelijst met meerdere selecties kunt maken die geen herhaling van gegevens nodig heeft.

Laten we de procedures doorlopen.

• Druk eerst op ALT + F11 om de VBA raam.
• Selecteer vervolgens Projectverkenner . Ook, dubbel - klik op het blad waar u de taak wilt uitvoeren.

• Tegelijkertijd, een Code venster verschijnt.
• Typ daarna de volgende code in dat venster.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =.Target.Value Als Oldvalue = "" Dan Target.Value = Newvalue Else Als InStr(1, Oldvalue, Newvalue) = 0 Dan Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Kom tenslotte terug naar het werkblad en we zullen meerdere elementen in de keuzelijst kunnen selecteren zonder herhaling van hetzelfde element.

Conclusie

Met deze methode kunt u in Excel een vervolgkeuzelijst met meerdere selecties maken. Hebt u vragen? Laat het ons gerust weten in de commentaarsectie. Bezoek ons ExcelWIKI Website voor meer artikelen over Excel .