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.

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.

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.

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:

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.