Een keuzelijst is een lijst van waaruit een gebruiker een item kan selecteren. om een te maken keuzelijst in Excel VBA, voer de volgende stappen uit.
1. Klik op het tabblad Ontwikkelaars op Invoegen.
2. Klik in de groep ActiveX-besturingselementen op Keuzelijst.
3. Sleep een keuzelijst op uw werkblad.
Opmerking: u kunt de naam van een besturingselement wijzigen door met de rechtermuisknop op het besturingselement te klikken (zorg ervoor dat Ontwerpmodus is geselecteerd) en vervolgens op Eigenschappen te klikken. Voor nu laten we ListBox1 als de naam van de keuzelijst.
Maak een werkmap-opengebeurtenis. Code die is toegevoegd aan de Workbook Open Event wordt uitgevoerd door Excel VBA wanneer u de werkmap opent.
4. Open de Visual Basic-editor.
5. Dubbelklik op Deze Werkmap in de Projectverkenner.
6. Kies Werkmap in de linker vervolgkeuzelijst en kies Openen in de rechter vervolgkeuzelijst.
7. Om items aan de keuzelijst toe te voegen, voegt u de volgende coderegels toe aan de Workbook Open Event:
Met Blad1.LijstBox1
.Item "Parijs" toevoegen
.Item "New York" toevoegen
.Item "Londen" toevoegen
Eindigt met
Opmerking: gebruik Blad2 als uw keuzelijst zich op het tweede werkblad bevindt, Blad3 als uw keuzelijst zich op het derde werkblad bevindt, enz. Als u deze coderegels gebruikt buiten de gebeurtenis Werkboek openen, wilt u misschien de volgende coderegel toevoegen vóór deze coderegels. Deze coderegel maakt de keuzelijst leeg. Op deze manier worden uw items niet meerdere keren toegevoegd als u uw code meer dan één keer uitvoert.
ListBox1.Clear
8. Om deze keuzelijst aan een cel te koppelen, klikt u met de rechtermuisknop op de keuzelijst (zorg ervoor dat de ontwerpmodus is geselecteerd) en klikt u op Eigenschappen. Vul D3 in voor LinkedCell.
Opmerking: zie ook de eigenschap ListFillRange om een keuzelijst met een celbereik te vullen.
9. Sla het Excel-bestand op, sluit het en open het opnieuw.
Resultaat:
Hoewel het in sommige situaties handig kan zijn om direct een keuzelijst op uw werkblad te plaatsen, is een keuzelijst vooral handig wanneer deze op een gebruikersformulier wordt geplaatst.
