Vba: otomatik filtrede "farklı" nasıl kullanılır?
VBA’daki bir otomatik filtrede “eşit değil” ifadesini temsil etmek için <> sembolünü kullanabilirsiniz.
Bunu pratikte yapmanın yaygın bir yolu:
SubFilterNotEqualTo ()
Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "
End Sub
Bu özel makro, ikinci sütunun değerinin “Merkez”e eşit olmadığı A1:C11 aralığındaki tüm satırları filtreleyecektir.
Aşağıdaki örnek, bu sözdiziminin pratikte nasıl kullanılacağını gösterir.
Örnek: VBA’da Otomatik Filtre’de “Farklı Olan” seçeneğini kullanın
Diyelim ki Excel’de çeşitli basketbol oyuncuları hakkında bilgiler içeren aşağıdaki veri kümesine sahibiz:
Veri kümesini yalnızca Konum sütunundaki değeri “Merkez”e eşit olmayan satırları gösterecek şekilde filtrelemek istediğimizi varsayalım.
Bunun için aşağıdaki makroyu oluşturabiliriz:
SubFilterNotEqualTo ()
Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center "
End Sub
Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:
Veri kümesinin yalnızca Konum sütunundaki değeri “Merkez”e eşit olmayan satırları gösterecek şekilde filtrelendiğini unutmayın.
Konum sütunu değerinin birden fazla değere eşit olmadığı satırları da filtreleyebileceğinizi unutmayın.
Örneğin, veri kümesini yalnızca Konum sütunundaki değeri “Merkez” veya “Koruma”ya eşit olmayan satırları görüntüleyecek şekilde filtrelemek için aşağıdaki makroyu oluşturabilirsiniz:
SubFilterNotEqualTo ()
Range(" A1:C11 ").AutoFilter Field:=2, Criteria1:=" <>Center ", Criteria2:=" <>Guard "
End Sub
Bu makroyu çalıştırdığımızda aşağıdaki çıktıyı alıyoruz:
Veri kümesinin yalnızca Konum sütunundaki değeri “Merkez” veya “Koruma”ya eşit olmayan satırları gösterecek şekilde filtrelendiğini fark ettim:
Not : VBA Otomatik Filtreleme yöntemine ilişkin tüm belgeleri burada bulabilirsiniz.
Ek kaynaklar
Aşağıdaki eğitimlerde VBA’da diğer ortak görevlerin nasıl gerçekleştirileceği açıklanmaktadır:
VBA: Otomatik filtre birden çok kriterle nasıl kullanılır?
VBA: Pivot tabloları filtreleme
VBA: Filtreler nasıl temizlenir?