Supposing du har en arbeidsbok med Ark1, Ark2 og Sheet3 er skjult, kan følgende VBA-kode hjelpe deg raskt vise dem og andre klikk vil skjule dem igjen. Gjør følgende:
1. Klikk Developer > Visual Basic, og en ny Microsoft Visual Basic for Applications vinduet vil vise, klikker du Sett > Modul, og skriv deretter inn følgende kode i modulen.
Sub ToggleHideUnhideDataSheets () Application.ScreenUpdating = FalseDim wb Som WorkbookDim ShtNames () Som VariantSet wb = ActiveWorkbookShtNames = Array ("Ark1", "Ark2", "Sheet3") For i = 0 For å UBound (ShtNames) wb.Sheets (ShtNames (i)). Synlige = Ikke wb.Sheets (ShtNames (i)). VisibleNext iApplication.ScreenUpdating = TrueEnd Subin koden ovenfor, de ShtNames = Array ("Sheet1 "," Ark2 "," Sheet3 ") er en variabel, kan du endre de skjulte regnearknavnene som du trenger.
2. Deretter trykker F5 for å kjøre koden, og de skjulte ark har blitt vist, dersom du ønsker å skjule dem igjen, trykk F5-tasten igjen.