Hvordan skjule alle regneark unntatt /men den spesifiserte eller aktiv en i Excel?

Hvis du ikke ønsker å bruke VBA-kode, kan du gå gjennom den andre metoden for å oppnå det med enkle klikk. Du kan skjule alle regneark unntatt den angitte ett med VBA-kode i Excel. Vennligst gjør som følger.
1. I dagens åpnet arbeidsbok, skifte til regnearket du ønsker å vise bare, og trykk deretter Alt + F11 samtidig for å åpne Microsoft Visual Basic programvinduet.
2. I Microsoft Visual Basic programvinduet, klikker du Sett > Modul. Se skjermbilde:
tre. Deretter kopiere og lime inn nedenfor VBA kode i Code redaktør
VBA-kode. Skjule alle ark unntatt spesifisert en
Sub SheetHidden () Dim xWs Som Regneark Dim xName As String xName = Application.InputBox (" Range ", xTitleId, Application.ActiveSheet.Name, Type: = 2) for hver xWs I Application.ActiveWorkbook.Worksheets Hvis xWs.Name < > xName Så xWs.Visible = xlSheetHidden End If NextEnd Sub4. Trykk F5 for å kjøre koden.
5. Etter å ha kjørt inn koden, dukker opp en dialogboks med aktiv arknavn visning i Range boksen, og klikk deretter på OK-knappen.
Så alle regnearkene er skjult umiddelbart bortsett fra den nåværende i arbeidsboken.
Note : For å vise de skjulte regneark, må du kopiere og lime inn følgende VBA kode i modulen og trykk på F5 for å kjøre koden
VBA-kode. vis skjulte regneark
Sub SheetUnHidden () Dim xWs Som skjemaet for hver xWs I Application.ActiveWorkbook.Worksheets xWs.Visible = True NextEnd Sub Vanskelig å håndtere VBA-kode? Du kan oppnå det gjennom følgende metode med klikk.

Skjul alle regneark, men den aktive med Kutools for Excel (bare ett klikk)
Etter å ha installert Kutools for Excel, kan du skjule alle ark unntatt den angitte eller aktiv en med bare ett klikk i Excel.
Kutools for Excel: med mer enn 120 praktiske Excel-tillegg, gratis å prøve uten begrensning i 60 dager. Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce 1. Få inn den angitte arket som du vil at det skal vises bare i gjeldende arbeidsbok.
2. Klikk deretter Kutools > Show /Hide > Skjule Uselektert Sheets. Se skjermbilde:
Så alle arkene i gjeldende arbeidsbok er skjult bortsett fra den aktive en
Merk: Hvis du vil vise alle skjulte regneark, kan du klikke Kutools >. Show /Hide > Unhide Alle Sheets. Se skjermbilde:
Hvis dette verktøyet er nyttig, kan du laste ned og prøve den gratis prøveversjon nå!