Vba: jak używać opcji „inny od” w autofiltrze

Możesz użyć symbolu <> , aby przedstawić „nierówny” w autofiltrze w VBA.

Oto typowy sposób na zrobienie tego w praktyce:

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "

End Sub

To konkretne makro będzie filtrować wszystkie wiersze w zakresie A1:C11 , gdzie wartość drugiej kolumny nie jest równa „Centrum”.

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

Przykład: Użyj opcji „Różny od” w Autofiltrze w VBA

Załóżmy, że mamy w programie Excel następujący zbiór danych zawierający informacje o różnych koszykarzach:

Załóżmy, że chcemy przefiltrować zbiór danych, aby wyświetlić tylko wiersze, których wartość w kolumnie Pozycja nie jest równa „Centrum”.

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

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Należy pamiętać, że zbiór danych został przefiltrowany, aby wyświetlić tylko wiersze, których wartość w kolumnie Pozycja nie jest równa „Centrum”.

Pamiętaj, że możesz także filtrować wiersze, w których wartość w kolumnie Pozycja nie jest równa więcej niż jednej wartości.

Na przykład możesz utworzyć następujące makro, aby przefiltrować zbiór danych w celu wyświetlenia tylko wierszy, których wartość w kolumnie Pozycja nie jest równa „Centrum” lub „Ochrona”:

 SubFilterNotEqualTo ()

Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center ", Criteria2:=" <>Guard "

End Sub

Kiedy uruchomimy to makro, otrzymamy następujące dane wyjściowe:

Zauważyłem, że zbiór danych został przefiltrowany tak, aby wyświetlał tylko wiersze, których wartość w kolumnie Pozycja nie jest równa „Centrum” lub „Ochrona”:

Uwaga : Pełną dokumentację metody Autofiltru VBA można znaleźć tutaj .

Dodatkowe zasoby

Poniższe samouczki wyjaśniają, jak wykonywać inne typowe zadania w VBA:

VBA: Jak używać autofiltru z wieloma kryteriami
VBA: Jak filtrować tabele przestawne
VBA: Jak wyczyścić filtry