Rozważ sytuację, w której musisz ukrywać i odkrywać wiele arkuszy naraz. Jeśli ktoś ukrywa i odkrywa ręcznie, zajmie to dużo czasu.
W tym artykule dowiesz się, jak dynamicznie ukrywać lub odkrywać wiele kart za pomocą kodu VBA.
Pyt.): Chcę makro, które ukryje lub odkryje wiele kart jednocześnie.
Poniżej znajduje się migawka arkusza 1, w której będą dwie dynamiczne listy, tj. Ukryj karty i odkryj karty
- Chodzi o to, że gdy klikniemy przycisk Ukryj lub odkryj, wymienione arkusze powinny się ukryć lub odkryć
Musimy wykonać poniższe kroki:
- Aby uzyskać wynik, musimy uruchomić edytor VB
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
- Kliknij Wstaw, a następnie Moduł
To stworzy nowy moduł.
Wprowadź następujący kod w module
Sub HideTabs()Dim TabNie jako DoubleDim LastTab As DoubleLastTab = Zakres("Ukryj_tabeleDNR").Liczba
Przy błędzie Wznów Dalej
Dla TabNo = 2 Do LastTab
Arkusze(Zakres("Ukryj_TabsDNR")(NrTab)). Widoczne = False
Następna karta Nie
W przypadku błędu Przejdź do 0
Arkusze(1).Wybierz
Napis końcowy
Sub Odkryj karty()
Dim TabNie jako podwójny
Przyciemnij ostatnią kartę jako podwójną
LastTab = Zakres("Ukryj_tabeleDNR").Liczba
Przy błędzie Wznów Dalej
Dla TabNo = 2 Do LastTab
Arkusze(Zakres("UnHide_TabDNR")(TabNo)). Widoczny = Prawda
Następna karta Nie
W przypadku błędu Przejdź do 0
Arkusze(1).Wybierz
Napis końcowy
- Wszyscy jesteśmy gotowi do uruchomienia makra, jeśli klikniemy przycisk Ukryj, wszystkie wymienione arkusze zostaną ukryte, patrz poniżej migawka
- W ten sam sposób, jeśli klikniemy przycisk Odkryj, wszystkie ukryte arkusze wymienione w kolumnie D zostaną odkryte.
W ten sposób możemy dynamicznie ukrywać lub odkrywać wiele kart jednocześnie.