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

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

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

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

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

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

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

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

Załóżmy teraz, że podświetlamy kolumny A i B, a następnie klikamy prawym przyciskiem myszy, a następnie klikamy Ukryj :

Obie kolumny zostaną ukryte:

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

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

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

Po wykonaniu tego makra wszystkie kolumny staną się widoczne:

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

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

 Sub UnhideAllColumnsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Columns.EntireColumn.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 kolumny 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 wyświetlić wszystkie arkusze
VBA: Jak znaleźć ostatnio używaną kolumnę
VBA: Jak policzyć liczbę użytych kolumn