Przejdź do głównej zawartości

Jak przełączać się między ukrytymi i widocznymi arkuszami w programie Excel?

Przypuśćmy, że masz kilka arkuszy z ważnymi danymi, których nie chcesz, aby inni widzieli, ukrywanie arkuszy roboczych może być prostym sposobem ochrony danych w programie Excel. Ale czasami trzeba pokazać ukryte arkusze, a następnie ponownie je ukryć, zwykle trzeba je odkrywać jeden po drugim, jeśli zwykle wykonujesz tę operację, będzie to kłopotliwe i czasochłonne. W tym artykule przedstawię kilka szybkich sposobów przełączania arkuszy roboczych między ukrytymi a odkrytymi.

Przełączaj arkusze między ukrytymi i odkrytymi za pomocą kodu VBA

Przełączaj arkusze między ukrytymi i odkrytymi za pomocą Kutools for Excel


strzałka niebieski prawy bąbelek Przełączaj arkusze między ukrytymi i odkrytymi za pomocą kodu VBA

Przypuśćmy, że masz skoroszyt z ukrytymi arkuszami Sheet1, Sheet2 i Sheet3, poniższy kod VBA może pomóc Ci szybko je wyświetlić, a drugie kliknięcie ponownie je ukryje. Wykonaj następujące czynności:

1. Kliknij Deweloper > Visual Basic, A nowy Microsoft Visual Basic dla aplikacji pojawi się okno, kliknij wstawka > Moduł, a następnie wprowadź następujący kod w module.

Sub ToggleHideUnhideDataSheets()
Application.ScreenUpdating = False
Dim wb As Workbook
Dim ShtNames() As Variant
Set wb = ActiveWorkbook
ShtNames = Array("Sheet1", "Sheet2", "Sheet3")
For i = 0 To UBound(ShtNames)
wb.Sheets(ShtNames(i)).Visible = Not wb.Sheets(ShtNames(i)).Visible
Next i
Application.ScreenUpdating = True
End Sub

W powyższym kodzie ShtNames = Array ("Arkusz1", "Arkusz2", "Arkusz3") jest zmienną, możesz w razie potrzeby zmienić ukryte nazwy arkuszy.

2. Następnie naciśnij F5 aby uruchomić kod, a ukryte arkusze zostały wyświetlone, jeśli chcesz je ponownie ukryć, naciśnij F5 klucz jeszcze raz.


strzałka niebieski prawy bąbelek Przełączaj arkusze między ukrytymi i odkrytymi za pomocą Kutools for Excel

Z Przełącz widoczność ukrytych arkuszy funkcja z Kutools dla programu Excel, możesz łatwo przełączać arkusze między ukrytymi i odkrytymi, klikając polecenie Arkusze.

Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.

Po zainstalowaniu Kutools dla programu Excel możesz wykonać następujące czynności:

1. Otwórz skoroszyt, który musi zawierać ukryte arkusze.

2. Kliknij Kutools > Szablony do naukizobacz zrzut ekranu:

doc-toggle-hidden-sheet1

Po kliknięciu przycisku Szablony do nauki raz, wszystkie ukryte arkusze zostały wyświetlone, jeśli chcesz je ponownie ukryć, kliknij Szablony do nauki polecenie po raz drugi. Zobacz zrzuty ekranu:

doc-toggle-hidden-sheet2
-1
doc-toggle-hidden-sheet3
-1
doc-toggle-hidden-sheet2

Note: Ta funkcja dotyczy także nieciągłych ukrytych arkuszy.

Jeśli chcesz dowiedzieć się więcej o tej funkcji, kliknij Przełącz widoczność ukrytych arkuszy.


Podobne artykuły:

Przełączaj się między ukrytymi i widocznymi kolumnami w programie Excel

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

Opis


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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Works great, but how would you modify this to use the sheet's CodeNames instead of "Sheet" names?

That way user can still change the Tab name and Tab order as needed.

Thanks!
This comment was minimized by the moderator on the site
At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)
This comment was minimized by the moderator on the site
[quote]At the end of the code you forgot to put Application.ScreenUpdating = True to turn back on the screen updating. :-)By Greg[/quote] Thanks for your feedback. We will change it soon. :lol:
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations