Jak ukryć linie za pomocą VBA, jeśli komórka ma określoną zawartość?
Czy chcesz automatycznie ukryć wszystkie wiersze z określoną zawartością za pomocą makra? Wyobraź sobie, że chcesz ukryć wszystkie wiersze, jeśli tekst „ukryj” pojawi się w dowolnej komórce w odpowiednim wierszu. Może to być przydatna aplikacja do czyszczenia danych. Spójrz na początkową sytuację w poniższej tabeli:
W tej tabeli chcemy ukryć wszystkie wiersze zawierające komórki zawierające zero. Użyj następującego makra:
Ukryj określone wiersze ()
Przyciemnij komórkę jako zakres
Dla każdej komórki w ActiveSheet.UsedRange
If Cell.Value = 0 And Rows (Cell.Row) .Hidden = False _
Następnie wiersze (komórka.Row) .Hidden = True
Następna komórka
Napis końcowy
Jeśli uruchomisz makro od, niektóre linie zostaną całkowicie ukryte, jak pokazano na poniższym rysunku
W każdym z tych wierszy w jakiejś kolumnie pojawia się tekst „ukryj”. Jeśli chcesz sprawdzić inne kryterium zamiast tej treści, dostosuj odpowiednie porównanie w makrze.
Aby ponownie wyświetlić wszystkie komórki, naciśnij kombinację klawiszy CTRL A, a następnie wybierz funkcję START - FORMAT - ZANIKANIE I ROZJAŚNIANIE - POKAŻ LINIE (Excel 2007 i Excel 2010) lub FORMATUJ LINIĘ - ZANIKANIE (Excel do wersji 2003). Alternatywnie możesz użyć następującego makra, aby zanikać:
Pokaż wszystkie podrzędne
Cells.Rows.Hidden = Fałsz
Napis końcowy
Aby wprowadzić jedno z makr, naciśnij kombinację klawiszy ALT F11 w programie Excel. To wywołuje edytor VBA. Użyj polecenia WSTAW - MODUŁ, aby wstawić pusty arkusz modułu. Aby uruchomić jedno z makr, naciśnij kombinację klawiszy ALT F8 w programie Excel.