/ / Excel VBA Listeboks

Excel VBA List Box

Et listefelt er en liste, hvorfra en bruger kan vælge et element. At oprette en listeboks i Excel VBA, udfør følgende trin.

1. På fanen Udvikler skal du klikke på Indsæt.

2. I ActiveX Controls-gruppen skal du klikke på Listeboks.

Opret en listeboks i Excel VBA

3. Træk en listefelt på dit regneark.

Træk en listeboks

Bemærk: Du kan ændre navnet på en kontrol ved at højreklikke på kontrollen (sørg for Design Mode er valgt), og klik derefter på Egenskaber. For nu vil vi forlade ListBox1 som navnet på listefeltet.

Opret en Arbejdsbog Open Event. Kode føjet til Workbook Open Event udføres af Excel VBA, når du åbner projektmappen.

4. Åbn Visual Basic Editor.

5. Dobbeltklik på Denne Workbook i Project Explorer.

6. Vælg Arbejdsbog i den venstre rullemenu og vælg Åbn i den højre rulleliste.

Workbook Open Event i Excel VBA

7. For at tilføje elementer til listefeltet, skal du føje følgende kodelinjer til Arbejdsbog Åbn begivenhed:

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

Bemærk: brug Sheet2, hvis din listeboks er placeret på det andet regneark, Sheet3, hvis din listefelt er placeret på det tredje regneark osv. Hvis du bruger disse kode linjer uden for Arbejdsbog Åbn begivenhed, vil du måske tilføje følgende kode linje før disse kode linjer. Denne kode linje sletter listefeltet. På denne måde vil dine varer ikke blive tilføjet flere gange, hvis du udfører din kode mere end én gang.

ListBox1.Clear

8. For at linke dette listefelt til en celle, højreklik på listeboksen (sørg for, at designtilstand er valgt), og klik på Egenskaber. Udfyld D3 for LinkedCell.

LinkedCell

Bemærk: Se også listen ListFillRange for at udfylde en listeboks med en række celler.

9. Gem, luk og genåb Excel-filen.

Resultat:

Listeboks

Selv om det i nogle situationer kan være nyttigt at placere en listekasse direkte på dit regneark, er en listeboks særlig nyttig, når den placeres på en brugerformular.

Læs også: