Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe maak ik dynamisch lopende keuzelijsten in Excel?

Mogelijk weet u hoe u een vervolgkeuzelijst met cascading-validatie kunt maken in Excel. Hoe maak je echter dynamische trapsgewijze keuzelijsten in Excel? Dit artikel introduceert een VBA-methode om het te verwijderen.

Maak dynamische trapsgewijze keuzelijsten met VBA-code

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Auto-tekst: Maak uw favoriete grafieken, afbeeldingen, cellen, complexe formules en hergebruiken ze snel in de toekomst.
  • Meer dan 20-tekstfuncties: Nummer uit tekststring halen; Een deel van de tekst extraheren of verwijderen; Nummers en valuta's omzetten in Engelse woorden ...
  • Tools samenvoegen: Meerdere werkmappen en bladen in één; Meerdere cellen / rijen / kolommen samenvoegen en gegevens bewaren; Dubbele rijen en som samenvoegen ...
  • Split gereedschap: Gegevens splitsen in meerdere bladen op basis van waarde; Eén werkmap naar meerdere Excel-, PDF- of CSV-bestanden; Eén kolom naar meerdere kolommen ...
  • Plakken overslaan Verborgen / gefilterde rijen; Tel en som op achtergrondkleur; Maak een verzendlijst en Verzend e-mails op waarde van Cell...
  • Super filter: Maak geavanceerde filterschema's en pas deze toe op alle bladen; Soort per week, dag, frequentie en meer; filters door vetgedrukt, formules, commentaar ...
  • Meer dan 300 krachtige functies; Werkt met Office 2007-2019 en 365; Ondersteunt alle talen; Eenvoudig inzetbaar in bedrijf; Volledige functionaliteit 60-daagse gratis proefversie.

Maak dynamische trapsgewijze keuzelijsten met VBA-code


Zoals hieronder afgebeeld, moet u een bovenliggende keuzelijst maken met de unieke waarden van de kolom Drink en alle bijbehorende waarden weergeven in de tweede keuzelijst op basis van de selectie in de bovenliggende keuzelijst. De volgende VBA-code helpt u om dit te bereiken. Doe het als volgt.

1. Allereerst moet u alle unieke waarden uit de kolom Drink halen. Selecteer een lege cel, voer de matrixformule in =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") in de Formule balken druk vervolgens op Ctrl + verschuiving + invoeren sleutel. Sleep vervolgens de Vul handvat om alle unieke waarden te krijgen. Zie screenshot:

Notes: In de formule, $A$2:$A$11 is het bereik waar je unieke waarden uittrekt. J1 is de cel boven waar uw formule zich bevindt.

Tip: Als de formule te moeilijk is om te onthouden en af ​​te handelen, is de Selecteer Dupliceren en unieke cellen nut van Kutools for Excel is een goede keuze om snel alle unieke waarden uit een kolom te extraheren.

Selecteer de kolom met unieke waarden waaruit u extraheren. Schakel vervolgens het hulpprogramma in door op te klikken Kutools > kiezen > Selecteer Dupliceren en unieke cellen. In de Selecteer Dupliceren en unieke cellen dialoogvenster, selecteert u de Alle unieke (inclusief 1st duplicaten) optie en klik op de OK knop. Vervolgens worden alle unieke waarden in de kolom geselecteerd. Kopieer en plak ze naar een nieuwe plaats. Zie screenshot:

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download en gratis proef nu!

2. Voeg twee keuzelijsten afzonderlijk in door op te klikken ontwikkelaar > bijvoegsel > List Box (ActiveX-besturingselement). Zie screenshot:

3. Klik met de rechtermuisknop op de bovenliggende keuzelijst en selecteer WONINGAANBOD vanuit het contextmenu. In de WONINGAANBOD dialoogvenster, wijzigt u de (Naam) veld naar Drinken of een andere naam als u dat nodig hebt, voert u het celbereik in dat de geëxtraheerde unieke waarden bevat in de Lijst Fill Range veld en sluit het dialoogvenster.

4. Herhaal stap 3 om de tweede keuzelijst te wijzigen (Naam) veld naar item in de WONINGAANBOD dialoog venster.

5. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het rechtsklikmenu. Kopieer vervolgens de VBA-code naar het codevenster. Zie screenshot:

VBA-code: maak dynamische trapsgewijze keuzelijsten in Excel

Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
    Dim I, xRows As Long
    Dim xRg As Range
    Dim xRegStr As String
    Application.ScreenUpdating = False
    xRegStr = Me.Drink.Text
    Set xRg = Range("A2:A11")
    xRows = xRg.Rows.Count
    If xRegStr <> xPreStr Then
    Me.Item.Clear
   'Me.OtherListBoxName.Clear
    Set xRg = xRg(1)
    For I = 1 To xRows
        If xRg.Offset(I - 1).Value = xRegStr Then
            Me.Item.AddItem xRg.Offset(I - 1, 1).Value
            'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
        End If
    Next
    xPreStr = xRegStr
    End If
    Application.ScreenUpdating = True
End Sub

Notes: In de code Drank en artikel zijn de namen van twee keuzelijsten, verander ze naar uw eigen namen.

6. druk de anders + Q toetsen om het te sluiten Microsoft Visual Basic voor toepassingen venster.

7. Schakel de ontwerpmodus uit door op te klikken ontwikkelaar > Ontwerpmodus.

Vanaf nu, bij het selecteren van elke soort drank zoals Koffie in de bovenliggende keuzelijst, worden alle koffie-items weergegeven in de tweede. Selecteer Thee of Wijn geeft alleen de thee- of wijnitems weer in de tweede keuzelijst. Zie screenshot:


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Werkt met Office 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.