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

Dodaj komentarz

Twój adres e-mail nie zostanie opublikowany. Wymagane pola są oznaczone *