/ / Excel VBA keuzelijst met invoervak

Excel VBA keuzelijst met invoervak

Een keuzelijst met invoervak ​​is een vervolgkeuzelijst van waaruit een gebruiker een item kan selecteren of zijn / haar eigen keuze kan invullen. Om een ​​te maken keuzelijst met invoervak in Excel VBA, voer de volgende stappen uit.

1. Klik op het tabblad Ontwikkelaar op Invoegen.

2. Klik in de groep ActiveX-besturingselementen op Keuzelijst met invoervak.

Maak een keuzelijst met invoervak ​​in Excel VBA

3. Sleep een keuzelijst met invoervak ​​op uw werkblad.

Versleep een keuzelijst met invoervak

Notitie: u kunt de naam van een besturingselement wijzigen door met de rechtermuisknop op het besturingselement te klikken (zorg ervoor dat de Ontwerpmodus is geselecteerd) en klik vervolgens op Eigenschappen. Voor nu verlaten we ComboBox1 als de naam van de keuzelijst met invoervak.

Maak een open evenement voor een werkboek. Code toegevoegd aan het werkboek Open gebeurtenis 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 vervolgkeuzelijst links en kies Openen in de vervolgkeuzelijst rechts.

Werkmap Open evenement in Excel VBA

7. Voeg items toe aan de keuzelijst met invoervak ​​en voeg de volgende coderegels toe aan het werkboek Open gebeurtenis:

With Sheet1.ComboBox1
    .AddItem "Paris"
    .AddItem "New York"
    .AddItem "London"
End With

Notitie: 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 buiten de gebeurtenis Werkboek openen gebruikt, wilt u misschien de onderstaande coderegels toevoegen voordat deze coderegels. De eerste codelijn wist de keuzelijst met invoervak. Op deze manier worden uw items niet meerdere keren toegevoegd als u uw code meerdere keren uitvoert. De tweede coderegel wist uw eigen keuze.

ComboBox1.Clear
ComboBox1.Value = ""

8. Om deze keuzelijst met een cel te verbinden, klikt u met de rechtermuisknop op de keuzelijst met invoervak ​​(zorg ervoor dat de ontwerpmodus is geselecteerd) en klik op Eigenschappen. Vul D2 in voor LinkedCell.

LinkedCell

Opmerking: zie ook de eigenschap ListFillRange om een ​​keuzelijst met invoervak ​​met een celbereik te vullen.

9. Sla het Excel-bestand op, sluit het en open het opnieuw.

Resultaat:

Keuzelijst met invoervak

Hoewel het in sommige situaties handig kan zijn om direct een keuzelijst met invoervak ​​op uw werkblad te plaatsen, is een keuzelijst met invoervak ​​vooral handig wanneer deze op een gebruikersformulier wordt geplaatst.

Lees ook: