Jak wyświetlić wszystkie arkusze za pomocą vba (z przykładem)
Możesz użyć właściwości Visible w VBA, aby wyświetlić arkusz w skoroszycie programu Excel.
Aby wyświetlić wszystkie arkusze w skoroszycie, możesz użyć następującej składni:
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next ws
End Sub
Używając prostej pętli For Each i określając Visible = True , mówimy Excelowi, aby wyświetlił wszystkie arkusze w skoroszycie.
Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.
Przykład: Jak wyświetlić wszystkie arkusze za pomocą VBA
Załóżmy, że mamy skoroszyt programu Excel zawierający cztery arkusze:
Załóżmy teraz, że klikamy prawym przyciskiem myszy Arkusz4 , a następnie klikamy Ukryj :
Załóżmy, że powtarzamy ten proces z Arkuszem 2 , tak że jedynymi widocznymi arkuszami są teraz Arkusz 1 i Arkusz 3 .
Załóżmy, że chcemy użyć VBA do wyświetlenia wszystkich arkuszy w skoroszycie.
W tym celu możemy utworzyć następujące makro:
Sub UnhideAllSheets()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Visible = True
Next ws
End Sub
Po wykonaniu tego makra zostaną wyświetlone wszystkie arkusze skoroszytu:
Uwaga : Pełną dokumentację właściwości Visible w VBA znajdziesz tutaj .
Dodatkowe zasoby
Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:
VBA: Jak znaleźć ostatnio używaną linię
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: Jak zamrozić okienka