Jak wyświetlić wszystkie widoczne lub ukryte arkusze ze skoroszytu?
Jeśli masz duży skoroszyt, który zawiera ukryte arkusze, teraz musisz wyświetlić wszystkie widoczne i ukryte arkusze osobno w arkuszu, jak pokazano na poniższym zrzucie ekranu. W tym artykule omówię, jak wyświetlić wszystkie widoczne i ukryte arkusze w programie Excel.
Wymień wszystkie widoczne i ukryte arkusze osobno z kodem VBA
Wyświetl wszystkie widoczne arkusze w programie Excel za pomocą Kutools for Excel
Wymień wszystkie widoczne i ukryte arkusze osobno z kodem VBA
Aby wyświetlić listę widocznych i ukrytych nazw kart w arkuszu roboczym, następujący kod VBA może wyświadczyć ci przysługę, wykonaj następujące czynności:
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: Wymień wszystkie widoczne i ukryte arkusze osobno:
Sub NameSheets()
'Updateby Extendoffice
Dim x As Long, y As Long, z As Long
Dim ws As Worksheet
Dim shtCnt As Integer
x = 1
y = 1
z = 1
shtCnt = ThisWorkbook.Sheets.Count
On Error Resume Next
Application.ScreenUpdating = False
Sheets.Add After:=Sheets(Sheets.Count)
For i = 1 To shtCnt
If Sheets(i).Visible = xlSheetHidden Then
Cells(x, 2) = Sheets(i).Name
x = x + 1
End If
If Sheets(i).Visible = xlSheetVisible Then
Cells(y, 1) = Sheets(i).Name
y = y + 1
End If
If Sheets(i).Visible = xlSheetVeryHidden Then
Cells(z, 3) = Sheets(i).Name
z = z + 1
End If
Next i
Application.ScreenUpdating = True
End Sub
3. Następnie naciśnij F5 klucz do uruchomienia tego kodu, wszystkie widoczne, ukryte, bardzo ukryte arkusze są wymienione w nowym arkuszu oddzielnie, jak pokazano na poniższym zrzucie ekranu:
Wyświetl wszystkie widoczne arkusze w programie Excel za pomocą Kutools for Excel
Jeśli Kutools dla programu Excel, Z siedzibą w Utwórz listę nazw arkuszy funkcję, możesz szybko wyświetlić wszystkie widoczne arkusze bieżącego skoroszytu z hiperłączami do każdej karty.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools Plus > Ćwiczenie > Utwórz listę nazw arkuszyzobacz zrzut ekranu:
2, w Utwórz listę nazw arkuszy Okno dialogowe:
(1.) Wybierz Zawiera listę hiperłączy pod Style indeksu arkuszy Sekcja;
(2.) Wprowadź nazwę arkusza dla indeksu arkusza.
(3.) Określ lokalizację indeksu arkusza.
(4.) Określ, ile kolumn chcesz wyświetlić nazwy arkuszy w indeksie arkusza.
3. A następnie kliknij Ok przycisk, wszystkie widoczne arkusze zostały umieszczone w nowym arkuszu z wyłączeniem ukrytych arkuszy, patrz zrzut ekranu:
Kliknij Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!