Hvordan udfyldes en kombinationsboks med angivne data på åben projektmappe?
Normalt kan du udfylde et kombinationsfelt (ActiveX Control) med et bestemt interval af celledata ved at indtaste cellereferencer i feltet ListFillRange i kombinationsfeltets egenskaber. Hvis du vil udfylde en kombinationsboks med angivne data direkte uden manuelt at specificere dens egenskaber, kan metoden i denne artikel hjælpe dig.
Udfyld en kombinationsboks med specificerede data med VBA-kode
Udfyld en kombinationsboks med specificerede data med VBA-kode
Denne metode kan hjælpe dig med at udfylde et kombinationsfelt med angivne data direkte på den åbne projektmappe. Gør som følger.
1. Tryk på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer dobbeltklik på vinduet ThisWorkbook i venstre rude for at åbne ThisWorkbook kode editor. Og kopier derefter nedenunder VBA-kode ind i den. Se skærmbillede:
VBA-kode: udfyld en kombinationsboks med angivne data på projektmappen åben
Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
With Sheet1.ComboBox1
.Clear
.AddItem "Select a Fruit"
.AddItem "Apple"
.AddItem "Banana"
.AddItem "Peach"
.AddItem "Pineapple"
.AddItem "Watermelon"
.Text = .List(0)
End With
End Sub
Noter:
3. Gem projektmappen som Excel-makroaktiveret projektmappe formater og luk den.
4. Åbn projektmappen igen, du vil se, at kombinationsboksen er blevet udfyldt med specificerede data som nedenstående skærmbillede:
Relaterede artikler:
- Hvordan kopieres Combo Box-værdi til aktiv celle i Excel?
- Hvordan vises datoformat i kombinationsboksoutput i Excel?
- Hvordan forhindrer eller deaktiverer man at skrive i en kombinationsboks i Excel?
- Hvordan udfyldes kombinationsboksen med data fra det navngivne område i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!