Hoe vul ik een keuzelijst met invoervak met gespecificeerde gegevens over de geopende werkmap?
Normaal gesproken kunt u een keuzelijst met invoervak (ActiveX-besturingselement) vullen met een bepaald bereik van celgegevens door de celverwijzingen in te voeren in het veld ListFillRange van de eigenschappen van de keuzelijst. Als u een keuzelijst met invoervak direct met opgegeven gegevens wilt vullen zonder de eigenschappen handmatig op te geven, kan de methode in dit artikel u helpen.
Vul een keuzelijst met invoervak met gespecificeerde gegevens met VBA-code
Vul een keuzelijst met invoervak met gespecificeerde gegevens met VBA-code
Met deze methode kunt u een keuzelijst met invoervak vullen met opgegeven gegevens rechtstreeks in de geopende werkmap. Ga als volgt te werk.
1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster, dubbelklik Dit Werkboek in het linkerdeelvenster om het Dit Werkboek code-editor. En kopieer vervolgens de VBA-code erin. Zie screenshot:
VBA-code: vul een keuzelijst met invoervak met opgegeven gegevens over de geopende werkmap
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Opmerkingen:
3. Sla de werkmap op als Excel-werkmap met ingeschakelde macro's formatteren en sluiten.
4. Open de werkmap opnieuw. U zult zien dat de keuzelijst met invoervak is gevuld met gespecificeerde gegevens, zoals onderstaand screenshot:
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 keuzelijst met invoervak vullen met gegevens van benoemd bereik in 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!