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:
- Hoe kopieer ik de keuzelijst met invoervak naar de actieve cel in Excel?
- Hoe de datumnotatie weergeven in de uitvoer met invoervak in Excel?
- Hoe kan ik typen in een keuzelijst met invoervak in Excel voorkomen of uitschakelen?
- Hoe vul ik een keuzelijst met invoervak met gespecificeerde gegevens over de geopende werkmap?
- Hoe vul ik automatisch andere cellen in bij het selecteren van waarden in de vervolgkeuzelijst van Excel?
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!