En kombinasjonsboks er en rullegardinliste der en bruker kan velge et element eller fylle ut eget valg. Å lage en kombinasjonsboks i Excel VBA, utfør følgende trinn.
1. Klikk på Sett inn i kategorien Utvikler.
2. Klikk på kombinasjonsboks i ActiveX -kontrollgruppen.
3. Dra en kombinasjonsboks 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 ComboBox1 som navnet på kombinasjonsboksen.
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 kombinasjonsboksen, legger du til følgende kodelinjer i Workbook Open Event:
Med Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Slutt med
Merk: bruk Sheet2 hvis kombinasjonsboksen er plassert i det andre regnearket, Sheet3 hvis kombinasjonsboksen er plassert i det tredje regnearket, etc. Hvis du bruker disse kodelinjene utenfor Workbook Open -hendelsen, vil du kanskje legge til kodelinjene nedenfor før disse kodelinjene. Den første kodelinjen fjerner kombinasjonsboksen. På denne måten blir ikke elementene dine lagt til flere ganger hvis du utfører koden mer enn én gang. Den andre kodelinjen fjerner ditt eget valg.
Kombinasjonsboks 1. Klar
ComboBox1.Value = ""
8. For å koble denne kombinasjonsboksen til en celle, høyreklikk på kombinasjonsboksen (sørg for at designmodus er valgt) og klikk på Egenskaper. Fyll ut D2 for LinkedCell.
Merk: se også egenskapen ListFillRange for å fylle en kombinasjonsboks med et utvalg av celler.
9. Lagre, lukk og åpne Excel -filen på nytt.
Resultat:
Selv om det i noen situasjoner kan være nyttig å plassere en kombinasjonsboks direkte på regnearket, er en kombinasjonsboks spesielt nyttig når den plasseres på et brukerskjema.
