- VBA'daki Etkin Çalışma Sayfasında Otomatik Filtreyi kapatın
- VBA'daki Etkin Çalışma Sayfasında Otomatik Filtreyi açın
- VBA'daki tüm Çalışma Sayfalarında Otomatik Filtreyi kapatın.
- VBA'daki tüm Çalışma Sayfalarında Otomatik Filtreyi kapatın.
- VBA'daki Etkin Çalışma Sayfasındaki Tüm Filtreleri Temizle
- VBA'daki tüm Çalışma Sayfalarındaki Tüm Filtreleri Temizle
- VBA'da Bir Tablodaki Tüm Filtreleri Temizle
Bu eğitim, VBA'da Otomatik Filtrelerin nasıl kapatılacağını/temizleneceğini gösterecektir.
Otomatik Filtreler, VBA kodu kullanılarak açılıp kapatılabilir.
VBA'daki Etkin Çalışma Sayfasında Otomatik Filtreyi kapatın
Aşağıdaki kod örneği, Etkin Sayfada Otomatik Filtre'yi kapatır ve ilk önce Kapalı olmadığını kontrol eder.
| 12345 | Genel Alt KillFilter()ActiveSheet.AutoFilterMode iseActiveSheet.AutoFilterMode = YanlışBitirAlt Bitiş |
VBA'daki Etkin Çalışma Sayfasında Otomatik Filtreyi açın
Aşağıdaki kod örneği, Etkin Sayfada Otomatik Filtre'yi açar ve önce açık olup olmadığını kontrol eder.
| 12345 | Public Sub StartFilter()ActiveSheet.AutoFilterMode Değilse SonraActiveSheet.Range("A1").Otomatik FiltreBitirAlt Bitiş |
VBA'daki tüm Çalışma Sayfalarında Otomatik Filtreyi kapatın.
Aşağıdaki kod örneği, çalışma kitabının tamamındaki her sayfada döngü yapar ve ilk olarak geçerli çalışma kitabındaki filtrenin açık olup olmadığını kontrol ederek her çalışma sayfasında Otomatik Filtre'yi kapatır.
| 12345678 | Genel Alt StopAllFilters()Dim ws As Çalışma SayfasıActiveWorkbook.Worksheets'te Her ws içinws.AutoFilterMode = True isews.AutoFilterMode = YanlışBitirSonrakiAlt Bitiş |
VBA'daki tüm Çalışma Sayfalarında Otomatik Filtreyi kapatın.
Benzer şekilde, aşağıdaki kod örneği, çalışma kitabının tamamında döngü yapar ve her sayfada Otomatik Filtre'yi açar, ilk önce geçerli çalışma kitabındaki filtrenin açık olup olmadığını kontrol eder.
| 12345678 | Public Sub StartAllFilters()Dim ws As Çalışma SayfasıActiveWorkbook.Worksheets'te Her ws içinDeğilse ws.AutoFilterMode O zamanws.Range("A1").Otomatik FiltreBitirSonrakiAlt Bitiş |
VBA'daki Etkin Çalışma Sayfasındaki Tüm Filtreleri Temizle
Aşağıdaki kod örneği, Otomatik Filtre'yi Etkin Sayfada açık bırakır, ancak verilere uygulanan tüm filtreleri temizler.
| 12345 | Genel Alt ClearFilter()ActiveSheet.FilterMode = True iseActiveSheet.ShowAllDataBitirAlt Bitiş |
VBA'daki tüm Çalışma Sayfalarındaki Tüm Filtreleri Temizle
Benzer şekilde, aşağıdaki kod örneği, çalışma kitabının tamamında döngü yapar ve zaten açıksa her sayfada Otomatik Filtre'yi açık bırakır, ancak verilere uygulanan filtreleri temizler.
| 12345678 | Genel Alt ClearAllFilters()Dim ws As Çalışma SayfasıActiveWorkbook.Worksheets'te Her ws içinws.FilterMode = True isews.ShowAllDataBitirSonrakiAlt Bitiş |
VBA'da Bir Tablodaki Tüm Filtreleri Temizle
Çalışma sayfamız bir tablo nesnesi içeriyorsa, kodu, Otomatik Filtreyi açık bırakırken o filtreye uygulanan herhangi bir filtreyi temizleyecek şekilde ayarlayabiliriz.
| 123456789 | Alt ClearFilterFromTable()Dim ws As Çalışma SayfasıDize Olarak Kararlı KarartLoTable'ı ListObject Olarak KarartınsTable = "Tablo1"ws = ActiveSheet'i ayarlaloTable = ws.ListObjects(sTable) olarak ayarlayınloTable.AutoFilter.ShowAllDataAlt Bitiş |
Tablo nesnesi bir Özet Tabloya bağlanırsa, Özet tablo buna göre yenilenir.
