En kombinationsboks er en rulleliste, hvorfra en bruger kan vælge et element eller udfylde sit eget valg. For at oprette en kombinationsfelt i Excel VBA, udfør følgende trin.
1. Klik på Indsæt på fanen Udvikler.
2. Klik på kombinationsboks i gruppen ActiveX Controls.
3. Træk en kombinationsboks 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 forlader vi ComboBox1 som navnet på kombinationsboksen.
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 tilføje elementer til kombinationsboksen, skal du tilføje følgende kodelinjer til Workbook Open Event:
Med Sheet1.ComboBox1
.AddItem "Paris"
.AddItem "New York"
.AddItem "London"
Afslut med
Bemærk: brug Sheet2, hvis din kombinationsboks er placeret på det andet regneark, Sheet3, hvis din kombinationsboks er placeret på det tredje regneark osv. Hvis du bruger disse kodelinjer uden for Workbook Open -begivenheden, kan du tilføje kodelinjer herunder før disse kodelinjer. Den første kodelinje rydder kombinationsboksen. På denne måde tilføjes dine varer ikke flere gange, hvis du udfører din kode mere end én gang. Den anden kodelinje sletter dit eget valg.
Kombinationsboks 1. Ryd
ComboBox1.Value = ""
8. For at linke denne kombinationsboks til en celle skal du højreklikke på kombinationsboksen (sørg for, at designtilstand er valgt) og klik på Egenskaber. Udfyld D2 for LinkedCell.
Bemærk: se også egenskaben ListFillRange for at udfylde en kombinationsboks 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 kombinationsboks direkte på dit regneark, er en kombinationsboks især nyttig, når den placeres på en brugerformular.
