Hvordan åbner jeg et specifikt regneark efter den valgte værdi af en kombinationsboks i Excel?
Antag at du har en kombinationsboks, der indeholder alle arknavne på den aktuelle projektmappe som vist nedenstående skærmbillede. Og nu vil du åbne et specifikt regneark, når du vælger det tilsvarende arknavn i en kombinationsboks. Hvordan opnås det? Metoden i denne artikel kan hjælpe dig.
Åbn et specifikt regneark efter den valgte værdi i en kombinationsboks med VBA-kode
Åbn et specifikt regneark efter den valgte værdi i en kombinationsboks med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at gå til et specifikt regneark baseret på valg af kombinationsboks i Excel. Gør som følger.
Bemærk: Hvis kombinationsboksen ikke indeholder noget arknavn i dit regneark, skal du følge nedenstående tip for hurtigt at tilføje alle arknavne til den kombinationsboks. Og hvis der allerede er en kombinationsboks, der indeholder alle arknavne, skal du skifte til trin 1 direkte.
Tip: Indsæt en kommandoknap 1 i dit regneark, højreklik på den, og vælg Vis kode fra højreklikmenuen. Kopier og indsæt derefter nedenstående VBA-kode i Kode vindue, og tryk på andre + Q taster for at lukke Microsoft Visual Basic til anvendelse vindue. Klik på den indsatte kommandoknap, så tilføjes alle arknavne på den aktuelle projektmappe automatisk i ComboBox1.
VBA-kode: Tilføj nemt alle arknavne i en kombinationsboks
Private Sub CommandButton1_Click()
Me.ComboBox1.Clear
Dim strWs As String
Dim i As Integer
For i = 1 To ThisWorkbook.Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next
End Sub
Hvis der allerede er en kombinationsboks, der indeholder alle arknavne, skal du gøre som følger.
1. Tænd for Design Mode under Udvikler fane.
2. Højreklik på kombinationsboksen med arknavne, og klik derefter på Vis kode fra højreklikmenuen.
3. Derefter Microsoft Visual Basic til applikationer vindue vises, skal du udskifte den originale VBA-kode i kodevinduet med nedenstående VBA-kode.
VBA-kode: Åbn et specifikt regneark efter den valgte værdi i kombinationsfeltet
Private Sub ComboBox1_Change()
Dim actWsh As String
actWsh = ComboBox1.Text
Worksheets(actWsh).Select
End Sub
Bemærk: i koden er ComboBox1 navnet på kombinationsboksen, der indeholder arknavne.
4. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue, og sluk for Design Mode under Udvikler fane.
Nu, når du vælger et regnearknavn i kombinationsboksen, åbnes det tilsvarende regneark automatisk.
Skriv nemt alle arknavne på den aktuelle projektmappe i Excel:
Brug af arkindeks i din projektmappe hjælper dig med nemt at administrere dine regneark. Med Opret liste over arknavne nytte af Kutools til Excel, kan du nemt oprette et arkindeks, der indeholder alle arknavne i den aktuelle projektmappe. Derefter kan du hurtigt skifte til et bestemt regneark ved blot at klikke på arknavnet i indeksarket. Se 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 skjuler eller viser jeg en kommandoknap baseret på den angivne celleværdi 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!