Excel'de bir çalışma sayfasına filtre uygulanıp uygulanmadığını nasıl anlarım?
Büyük miktarda veri içeren bir çalışma sayfasında, belirli bir sütunda ya da tüm çalışma sayfasında filtreleme olup olmadığını sütunları tek tek elle kontrol etmeden anlayabilir miyiz? Bu öğreticide, bu görevi kolayca yerine getirmenize yardımcı olacak iki VBA kodunu paylaşacağız.
Belirli bir sütunda filtre uygulanıp uygulanmadığını kontrol edin
Çalışma sayfasında filtre uygulanıp uygulanmadığını kontrol edin
Belirli bir sütunda filtre uygulanıp uygulanmadığını kontrol edin
Bu bölümdeki VBA kodu, belirli bir sütunun filtrelenip filtrelenmediğini kontrol etmenize yardımcı olabilir.
1. Belirli bir sütunda filtre uygulanıp uygulanmadığını kontrol etmek için ilgili çalışma sayfasını açın.
2. Alt+F11 tuşlarına basarak Microsoft Visual Basic for Applications penceresini açın.
3. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül seçeneğine tıklayın ve ardından aşağıdaki VBA kodunu Modül (Kod) penceresine kopyalayın.
VBA kodu: Belirtilen bir sütunun filtrelenip filtrelenmediğini kontrol edin
Sub IsFilter()
'Updated by Extendoffice 20221025
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
xColumn = 3 'Here the number 3 stands for the third column (column C) in the current worksheet
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On And xAF.Range(1, xFNum).Column = xColumn Then
xBol = True
End If
Next xFNum
If xBol Then
MsgBox "The specified column is filled"
Else
MsgBox "The specified column is not filled"
End If
End SubNot: VBA kodundaki “3xColumn = 3 ” satırı, Geçerli Çalışma Sayfası’ndaki üçüncü sütunu temsil eder. Eğer E sütununda filtre uygulanıp uygulanmadığını kontrol etmek istiyorsanız, 3 sayısını 5 olarak değiştirin.
4. Kodu çalıştırmak için F5 tuşuna basın.
Belirtilen sütun filtrelenmişse aşağıdaki iletişim kutusu açılacaktır.
Aksi takdirde aşağıdaki iletişim kutusu görüntülenecektir.
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla oluşturulan grafiklerle görselleştirin.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve anında uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
- Metin Çevirisi: Elektronik tablolarınızdaki dil bariyerlerini aşın.
Çalışma sayfasında filtre uygulanıp uygulanmadığını kontrol edin
Çalışma sayfasına filtre uygulanıp uygulanmadığını kontrol etmek istiyorsanız, bu bölümdeki VBA kodunu deneyin.
1. Filtre uygulanıp uygulanmadığını kontrol etmek istediğiniz çalışma sayfasını açın.
2. Alt+F11tuşlarına basarak Microsoft Visual Basic for Applicationspenceresini açın.
3. Microsoft Visual Basic for Applicationspenceresinde,Ekle>Modülseçeneğine tıklayın ve ardından aşağıdaki VBA kodunu Modül (Kod)penceresine kopyalayın.
VBA kodu: Çalışma sayfasında filtre uygulanıp uygulanmadığını kontrol edin
Sub IsFilterInWorkSheet()
'Updated by Extendoffice 20221024
Dim xWSht As Worksheet
Dim xFNum As Integer
Dim xBol As Boolean
Dim xAF As AutoFilter
Dim xColumn As Integer
Set xWSht = Application.ActiveSheet
Set xAF = xWSht.AutoFilter
xBol = False
On Error Resume Next
For xFNum = 1 To xAF.Filters.Count
If xAF.Filters(xFNum).On Then
xBol = True
Exit For
End If
Next xFNum
If xBol Then
MsgBox "Filter is applied in the curren worksheet"
Else
MsgBox "Filter does not apply in the current worksheet"
End If
End Sub4. Ardından, bu kodu çalıştırmak için F5 tuşuna basın; çalışma sayfasında filtreleme varsa aşağıdaki gibi bir iletişim kutusu göreceksiniz.
Aksi takdirde aşağıdaki iletişim kutusu görüntülenecektir.
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikten önce hiç yaşamadığınız gibi yararlanın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300'den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli arayüz getirir ve işinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint’te sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro'yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi-bir-arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin