Hoe selecteer ik meerdere items uit de vervolgkeuzelijst in een cel in Excel?
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?
 |
 |
 |
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.
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 Sub3. 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.
Stap 1: Selecteer Kutools > Vervolgkeuzelijst > Meerdere selecties Vervolgkeuzelijst
Stap 2: Geef in het dialoogvenster Vervolgkeuzelijst Meerdere selecteren de instellingen op
- Bereik instellen;
- Specificeer het scheidingsteken voor scheidingsitems in een cel;
- Bepaal de tekstrichting；
- Klik op OK.
Resultaat:
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! |
 |
| Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Beste Office-productiviteitstools
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...
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!
