Jak ukryć wszystkie arkusze robocze z wyjątkiem określonego lub aktywnego w programie Excel?

Aby zachować porządek w skoroszycie i ułatwić nawigację, możesz chcieć ukryć wszystkie arkusze robocze z wyjątkiem bieżącego aktywnego w programie Excel. W tym artykule pokażemy dwie metody ukrywania wszystkich arkuszy roboczych, ale określonych lub aktywnych w programie Excel.

Ukryj wszystkie arkusze robocze oprócz określonego w programie Excel z kodem VBA
Ukryj wszystkie arkusze robocze, ale aktywny za pomocą Kutools for Excel (tylko kilka kliknięć)

Ukryj wszystkie arkusze robocze oprócz określonego w programie Excel z kodem VBA

Niesamowity! Korzystanie z wydajnych zakładek w programie Excel, takich jak Chrome, Edge, Firefox i Safari!
Zaoszczędź 50% swojego czasu i zmniejszaj tysiące kliknięć myszą każdego dnia!

Możesz ukryć wszystkie arkusze robocze z wyjątkiem określonego z kodem VBA w programie Excel. Wykonaj następujące czynności.

1. W aktualnie otwartym skoroszycie przejdź do arkusza, który chcesz tylko pokazać, a następnie naciśnij inny + F11 jednocześnie, aby otworzyć Aplikacja Microsoft Visual Basic okno.

2. w Aplikacja Microsoft Visual Basic okno, kliknij wstawka > Moduł. Zobacz zrzut ekranu:

3. Następnie skopiuj i wklej poniższy kod VBA do edytora kodu.

Kod VBA: ukryj wszystkie arkusze z wyjątkiem określonego

Sub SheetHidden()
	Dim xWs As Worksheet
	Dim xName As String
	xName = Application.InputBox("Range", xTitleId, Application.ActiveSheet.Name, Type: = 2)
	For Each xWs In Application.ActiveWorkbook.Worksheets
		If xWs.Name <> xName Then
			xWs.Visible = xlSheetHidden
		End If
	Next
End Sub

4. wciśnij F5 klucz do uruchomienia kodu.

5. Po uruchomieniu kodu pojawi się okno dialogowe z nazwą aktywnego arkusza wyświetlaną w pliku łodzie a następnie kliknij OK przycisk.

Następnie wszystkie arkusze są natychmiast ukrywane, z wyjątkiem bieżącego w skoroszycie.

Note: Aby wyświetlić ukryte arkusze, skopiuj i wklej następujący kod VBA do modułu, a następnie naciśnij klawisz F5, aby uruchomić kod.

Kod VBA: pokaż ukryte arkusze

Sub SheetUnHidden()
	Dim xWs As Worksheet
	For Each xWs In Application.ActiveWorkbook.Worksheets
		xWs.Visible = True
	Next
End Sub

Ukryj wszystkie arkusze robocze, ale aktywny za pomocą Kutools for Excel (tylko jedno kliknięcie)

Możesz ukryć wszystkie arkusze z wyjątkiem określonego lub aktywnego jednym kliknięciem w programie Excel.

1. Wejdź do określonego arkusza, który chcesz, aby był wyświetlany tylko w bieżącym skoroszycie.

2. Następnie kliknij Kutools > Pokaż ukryj > Ukryj niezaznaczone arkusze.

Następnie wszystkie arkusze w bieżącym skoroszycie są ukryte, z wyjątkiem aktywnego.

Note: Jeśli chcesz wyświetlić wszystkie ukryte arkusze, kliknij Kutools > Pokaż / Ukryj > Odkryj wszystkie arkusze. Zobacz zrzut ekranu:

Najlepsze narzędzia biurowe

🤖	Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
	Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
	Super wyszukiwanie: Wiele kryteriów VLookup  |   Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
	Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
	Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
	Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły   |  Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki   |  Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
	15 najlepszych zestawów narzędzi:  12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Czytaj więcej... Darmowe pobieranie...

---

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!

Czytaj więcej... Darmowe pobieranie...