Note: The other languages of the website are Google-translated. Back to English

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


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 Zakres a następnie kliknij OK przycisk.

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

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

Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.

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.

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

  Jeśli chcesz skorzystać z bezpłatnego okresu próbnego (30-dzień) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

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!
officetab dół
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL