Ga naar hoofdinhoud

Hoe keuzelijst met invoervak ​​vullen met gegevens van benoemd bereik in Excel?

U kunt een keuzelijst met invoervak ​​(ActiveX-besturingselement) specificeren met gegevens van een bepaald bereik door het bereik toe te voegen aan de ListFillRange-eigenschappen van de keuzelijst. Maar weet u hoe u een keuzelijst met invoervak ​​moet vullen met gegevens van een benoemd bereik in Excel? U hebt bijvoorbeeld een celbereik een naam gegeven in uw werkblad en u moet deze bereiknaam nu specificeren in een keuzelijst met invoervak. Wanneer u de bereiknaam in een keuzelijst met invoervak ​​selecteert, worden alle celwaarden in dit benoemde bereik automatisch ingevuld in een andere keuzelijst. Dit artikel introduceert een VBA-methode om dit probleem op te lossen.

Vul de keuzelijst met invoervak ​​in met gegevens van een benoemd bereik met VBA-code


Vul de keuzelijst met invoervak ​​in met gegevens van een benoemd bereik met VBA-code

Ga als volgt te werk om de keuzelijst met invoervak ​​te vullen met gegevens van een benoemd bereik in Excel.

1. Selecteer de hele kopteksten (in dit geval selecteer ik A1: E1) in uw werkblad en typ vervolgens een naam in het Naam Box zoals hieronder getoond screenshot.

2. Selecteer alle kolomgegevens behalve de koptekst en geef de kolom een ​​aparte naam in het Naam Box. Zie screenshot:

In dit geval noemde ik bereik A2: A8, B2: B8, C2: C8, D2: D8 en E2: E8 als Datum, Winkel, Artikelen, Verkoop en Weekdag afzonderlijk.

3. Voeg vervolgens een keuzelijst met invoervak ​​in door op te klikken Ontwikkelaar > Invoegen > Combo Box (ActiveX-besturingselement). Zie screenshot:

4. Herhaal stap 3 om nog een keuzelijst met invoervak ​​in het werkblad in te voegen.

5. Klik met de rechtermuisknop op de bladtab en klik vervolgens op Bekijk code vanuit het contextmenu. Zie screenshot:

6. In de opening Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande VBA-code in het codevenster.

VBA-code: vul de keuzelijst met invoervak ​​in met gegevens van een benoemd bereik

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Note: In de code is ComboBox1 de naam van de keuzelijst met invoervak ​​waarin u alle bereiknamen zult weergeven, en ComboBox2 is de naam van de keuzelijst met invoervak ​​waarin de gegevens van het gespecificeerde benoemde bereik zullen worden ingevuld. De "Headers" is de bereiknaam die u in stap 1 hebt gemaakt.

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

8. Klik op een willekeurige cel in het werkblad om de code te activeren. Klik op de pijlknop in de eerste keuzelijst met invoervak, u kunt zien dat alle benoemde bereiken binnenin worden vermeld. Zie screenshot:

Bij het selecteren van een benoemd bereik in de eerste keuzelijst met invoervak, worden de overeenkomstige celgegevens ingevuld in de tweede keuzelijst met invoervak, zoals onderstaand screenshot laat zien:


Maak eenvoudig een vervolgkeuzelijst met selectievakjes in Excel:

De Vervolgkeuzelijst met selectievakjes nut van Kutools for Excel kan u helpen eenvoudig een vervolgkeuzelijst te maken met selectievakjes in een opgegeven bereik, huidig ​​werkblad, huidige werkmap of alle geopende werkmappen op basis van uw behoeften.
Download en probeer het nu! (30 dagen gratis proefperiode)


Gerelateerde artikelen:

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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations