En listeboks er en liste hvorfra en bruker kan velge et element. Å lage en listeboks i Excel VBA, utfør følgende trinn.
1. Klikk på Sett inn i kategorien Utvikler.
2. Klikk på Listeboks i gruppen ActiveX -kontroller.
3. Dra en listeboks på regnearket.
Merk: Du kan endre navnet på en kontroll ved å høyreklikke på kontrollen (sørg for at Design Mode er valgt) og deretter klikke på Properties. Foreløpig vil vi forlate ListBox1 som navnet på listeboksen.
Lag en arbeidsbok åpen hendelse. Koden som er lagt til i Workbook Open Event vil bli utført av Excel VBA når du åpner arbeidsboken.
4. Åpne Visual Basic Editor.
5. Dobbeltklikk på Denne arbeidsboken i Project Explorer.
6. Velg Arbeidsbok fra venstre nedtrekksliste og velg Åpne fra høyre nedtrekksliste.
7. Hvis du vil legge til elementer i listeboksen, legger du til følgende kodelinjer i Workbook Open Event:
Med Sheet1.ListBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Slutt med
Merk: bruk Sheet2 hvis listeboksen din er plassert i det andre regnearket, Sheet3 hvis listeboksen er plassert i det tredje regnearket, etc. Hvis du bruker disse kodelinjene utenfor Workbook Open -hendelsen, vil du kanskje legge til følgende kodelinje før disse kodelinjene. Denne kodelinjen fjerner listeboksen. På denne måten blir ikke elementene dine lagt til flere ganger hvis du utfører koden mer enn én gang.
ListBox 1. Clear
8. For å koble denne listeboksen til en celle, høyreklikk på listeboksen (sørg for at designmodus er valgt) og klikk på Egenskaper. Fyll ut D3 for LinkedCell.
Merk: se også egenskapen ListFillRange for å fylle en listeboks med en rekke celler.
9. Lagre, lukk og åpne Excel -filen på nytt.
Resultat:
Selv om det i noen situasjoner kan være nyttig å plassere en listeboks direkte i regnearket, er en listeboks spesielt nyttig når den plasseres på et brukerskjema.
