Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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:

1). ComboBox1 er navnet på det kombinationsfelt, du udfylder data, og dette kombinationsfelt findes i Sheet1. Skift dem, som du har brug for.
2). Og udskift dataene i koden med den nødvendige.

3. Gem projektmappen som Excel-makroaktiveret projektmappe format og luk det.

4. Åbn projektmappen igen, du vil se kombinationsboksen er udfyldt med specificerede data som nedenstående skærmbillede:


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.