Ten samouczek pokaże, jak odkryć wszystkie wiersze i / lub kolumny w arkuszu programu Excel za pomocą VBA.
Odkryj wszystkie wiersze
Aby odkryć wszystkie wiersze w arkuszu Excela, ustawimy Ukryta własność wszystkich wierszy na FALSE.
Możemy uzyskać dostęp do wszystkich wierszy za pomocą Właściwość całego wiersza z Obiekt komórek:
| 1 | Cells.EntireRow.Hidden = Fałsz |
lub za pomocą Właściwość całego wiersza z Obiekt wierszy:
| 1 | Rows.EntireRow.Hidden = Fałsz |
Odkryj wszystkie kolumny
Podobnie możemy odkryć wszystkie kolumny w arkuszu Excela, dostosowując Ukryta własność wszystkich kolumn.
Możesz uzyskać dostęp do wszystkich kolumn, używając Właściwość całej kolumny z Obiekt komórek:
| 1 | Cells.EntireColumn.Hidden = Fałsz |
lub za pomocą Właściwość całej kolumny z Kolumny Obiekt:
| 1 | Columns.EntireColumn.Hidden = Fałsz |
Ukryj wszystkie wiersze lub kolumny
Oczywiście, aby ukryć wszystkie wiersze lub kolumny, wystarczy ustawić Ukryta własność na PRAWDĘ:
| 1 | Columns.EntireColumn.Hidden = Prawda |
Makro do odkrycia wszystkich wierszy i kolumn
Użyj tego makra, aby odkryć wszystkie wiersze i kolumny w arkuszu:
| 1234 | Sub Unhide_All_Rows_Columns()Columns.EntireColumn.Hidden = FałszRows.EntireRow.Hidden = FałszNapis końcowy |
Makro, aby odkryć wszystkie wiersze i kolumny we wszystkich arkuszach
To makro odkryje wszystkie wiersze i kolumny we wszystkich arkuszach w skoroszycie programu Excel:
| 12345678 | Sub Odkryj_All_Rows_Columns_in_Workbook()Dim ws As WorksheetDla każdego ws w arkuszach roboczychColumns.EntireColumn.Hidden = FałszRows.EntireRow.Hidden = FałszNastępnyNapis końcowy |
