Jak wyświetlić wszystkie wiersze za pomocą vba (z przykładem)

Możesz użyć właściwości Hidden w VBA, aby wyświetlić wiersz w danym arkuszu.

Aby wyświetlić wszystkie wiersze na danym arkuszu, możesz zastosować następującą składnię:

 Sub UnhideAllRows()

Rows.EntireRow.Hidden = False

End Sub

Korzystając z właściwości Hidden i podając wartość False , mówimy Excelowi, aby wyświetlił wszystkie wiersze bieżącego arkusza.

Poniższy przykład pokazuje, jak zastosować tę składnię w praktyce.

Przykład: Jak wyświetlić wszystkie wiersze za pomocą VBA

Załóżmy, że mamy arkusz Excela z informacjami o różnych koszykarzach:

Załóżmy teraz, że klikamy prawym przyciskiem myszy wiersz 3, a następnie klikamy Ukryj :

Powiedzmy, że powtarzamy ten proces dla wierszy 7 i 8, tak że mamy teraz kilka wierszy ukrytych w naszym arkuszu:

Załóżmy teraz, że chcemy użyć języka VBA do wyświetlenia wszystkich wierszy w tym arkuszu.

W tym celu możemy utworzyć następujące makro:

 Sub UnhideAllRows()

Rows.EntireRow.Hidden = False

End Sub

Po wykonaniu tego makra zostaną wyświetlone wszystkie linie:

Zauważ, że wszystkie wiersze z naszego oryginalnego zbioru danych są ponownie widoczne.

Pamiętaj, że jeśli chcesz wyświetlić wszystkie wiersze ze wszystkich arkuszy skoroszytu programu Excel, możesz w tym celu utworzyć następujące makro:

 Sub UnhideAllRowsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Rows.EntireRow.Hidden = False
    Next ws

End Sub

Używając prostej pętli For Each , możemy przeglądać każdy arkusz w naszym skoroszycie i wyświetlać wszystkie wiersze na każdym arkuszu.

Uwaga : Pełną dokumentację właściwości Hidden 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 wyświetlić wszystkie arkusze
VBA: Jak zamrozić okienka