Excel'deki etkin çalışma kitabındaki tüm çalışma sayfalarından filtreleri nasıl temizlersiniz?
Diyelim ki bir Excel çalışma kitabındaki farklı çalışma sayfalarında birden fazla filtre oluşturdunuz ve şimdi bu filtrelerin hepsini aynı anda temizlemek istiyorsunuz. Normalde, filtreyi kontrol etmek ve ardından manuel olarak temizlemek için çalışma sayfasına tek tek geçmeniz gerekir. Etkin çalışma kitabındaki tüm çalışma sayfalarından filtreleri temizlemek için herhangi bir kolay yöntem var mı? Lütfen bu makaledeki yöntemi deneyin.
Etkin çalışma kitabındaki tüm çalışma sayfalarından VBA kodu ile filtreleri temizleme
Etkin çalışma kitabındaki tüm çalışma sayfalarından VBA kodu ile filtreleri temizleme
Lütfen aşağıdaki VBA betiğini çalıştırarak etkin çalışma kitabındaki tüm çalışma sayfalarından filtreleri temizleyin.
1. Filtreleri temizlemeniz gereken çalışma kitabında, lütfen Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.
2. Microsoft Visual Basic for Applications penceresinde, Ekle > Modül'e tıklayın. Ardından aşağıdaki VBA betiğini kopyalayıp Modül penceresine yapıştırın. Aşağıdaki ekran görüntüsüne bakın:
VBA Kodu: Etkin çalışma kitabındaki tüm çalışma sayfalarından filtreleri temizleme
Sub Clear_fiter()()
'Updated by Extendoffice 20210625
Dim xAF As AutoFilter
Dim xFs As Filters
Dim xLos As ListObjects
Dim xLo As ListObject
Dim xRg As Range
Dim xWs As Worksheet
Dim xIntC, xF1, xF2, xCount As Integer
Application.ScreenUpdating = False
On Error Resume Next
For Each xWs In Application.Worksheets
xWs.ShowAllData
Set xLos = xWs.ListObjects
xCount = xLos.Count
For xF1 = 1 To xCount
Set xLo = xLos.Item(xF1)
Set xRg = xLo.Range
xIntC = xRg.Columns.Count
For xF2 = 1 To xIntC
xLo.Range.AutoFilter Field:=xF2
Next
Next
Next
Application.ScreenUpdating = True
End Sub
3. Kodu çalıştırmak için F5 tuşuna basın. Daha sonra mevcut çalışma kitabındaki tüm çalışma sayfalarındaki filtreler hemen temizlenir.
Kutools AI ile Excel Sihirini Keşfedin
- Akıllı Yürütme: Hücre işlemleri gerçekleştirin, verileri analiz edin ve grafikler oluşturun—tümü basit komutlarla sürülür.
- Özel Formüller: İş akışlarınızı hızlandırmak için özel formüller oluşturun.
- VBA Kodlama: VBA kodunu kolayca yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
- Metin Çevirisi: Elektronik tablolarınız içindeki dil engellerini aşın.
İlgili makaleler:
- Excel'de Pivot Tablo'dan filtre önbelleğini (eski öğeler) nasıl temizlersiniz?
- Excel'de çalışma kitabı açılırken, kaydederken veya kapatırken filtreleri nasıl temizlersiniz?
- Excel'de onay kutusuna göre verileri nasıl filtrelersiniz?
- Excel'de filtrelenmiş bir liste sütununda seri numaralarını nasıl doldurursunuz?
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin