Hvordan udfyldes en brugerform ComboBox med alle arknavne i Excel?
Denne artikel taler om at udfylde alle arknavne på den aktuelle projektmappe i en brugerform Combo Box i Excel.
Udfyld en brugerform ComboBox med alle arknavne med VBA-kode
Udfyld en brugerform ComboBox med alle arknavne med VBA-kode
Den følgende VBA-kode kan hjælpe dig med at indsætte alle arknavne på den aktuelle projektmappe i en brugerforms kombinationsboks. 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 vindue, skal du indsætte en brugerformular ved at klikke på indsatte > Brugerform som vist nedenstående skærmbillede.
3. Tegn og indsæt derefter et kombinationsfelt i brugerformularen. Se skærmbillede:
4. Højreklik på det indsatte kombinationsfelt, og vælg Vis kode fra genvejsmenuen. Se skærmbillede:
5. I åbningen Microsoft Visual Basic til applikationer vindue, skal du kopiere og indsætte under VBA-kode for at erstatte den originale i vinduet Kode.
VBA-kode: Udfyld en brugerform ComboBox med alle arknavne på den aktuelle projektmappe
Private Sub UserForm_Initialize()
Dim I As Long
Me.ComboBox1.Clear
For I = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(I).Name
Next
Me.ComboBox1.Value = ActiveSheet.Name
End Sub
Bemærk: I koden er ComboBox1 navnet på den indsatte Combo Box. Skift den til din egen.
6. Tryk på F5 nøglen til at køre koden. I åbningsbrugerformularen kan du se alle arknavne på den aktuelle projektmappe vises i kombinationsboksen som nedenfor skærmbillede:
Liste nemt alle arknavne i Excel
Opret liste over arknavne nytte af Kutools til Excel kan hjælpe med nemt at liste alle regnearknavne på aktiv projektmappe i et nyt regneark i Excel. Og du kan skifte til det tilsvarende regneark direkte ved at klikke på arknavnet som vist på nedenstående skærmbillede.
Download og prøv det nu! (30-dages gratis spor)
Relaterede artikler:
- Hvordan kopieres Combo Box-værdi til aktiv celle i Excel?
- Hvordan vises datoformat i kombinationsboksoutput i Excel?
- Hvordan åbner jeg et specifikt regneark efter den valgte værdi af en kombinationsboks i Excel?
- Hvordan forhindrer eller deaktiverer man at skrive i en kombinationsboks i Excel?
- Hvordan faneblad ud af kombinationsboksen for at vælge specifik celle 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!