En listeboks er en liste, hvorfra en bruger kan vælge et element. For at oprette en listeboks i Excel VBA, udfør følgende trin.
1. Klik på Indsæt på fanen Udvikler.
2. Klik på Listeboks i gruppen ActiveX Controls.
3. Træk en listeboks på dit regneark.
Bemærk: Du kan ændre navnet på en kontrol ved at højreklikke på kontrolelementet (sørg for at Design Mode er valgt) og derefter klikke på Egenskaber. For nu vil vi forlade ListBox1 som navnet på listeboksen.
Opret en projektmappe Åben begivenhed. Kode tilføjet til Workbook Open Event udføres af Excel VBA, når du åbner projektmappen.
4. Åbn Visual Basic Editor.
5. Dobbeltklik på Denne projektmappe i Project Explorer.
6. Vælg Projektmappe på venstre rulleliste, og vælg Åbn fra den højre rulleliste.
7. Hvis du vil føje elementer til listeboksen, skal du tilføje følgende kodelinjer til Workbook Open Event:
Med Sheet1.ListBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Afslut med
Bemærk: brug Sheet2, hvis din listeboks er placeret på det andet regneark, Sheet3, hvis din listeboks er placeret på det tredje regneark osv. Hvis du bruger disse kodelinjer uden for Workbook Open -begivenheden, vil du måske tilføje følgende kodelinje før disse kodelinjer. Denne kodelinje rydder listeboksen. På denne måde tilføjes dine varer ikke flere gange, hvis du udfører din kode mere end én gang.
ListBox 1. Ryd
8. For at linke denne listeboks til en celle skal du højreklikke på listeboksen (sørg for, at designtilstand er valgt) og klik på Egenskaber. Udfyld D3 for LinkedCell.
Bemærk: se også egenskaben ListFillRange for at udfylde en listeboks med en række celler.
9. Gem, luk og genåbn Excel -filen.
Resultat:
Selvom det i nogle situationer kan være nyttigt at placere en listeboks direkte på dit regneark, er en listeboks især nyttig, når den placeres på en brugerformular.
