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.

Yapay zeka destekli araçlarla Excel yeteneklerinizi geliştirin. Şimdi İndirin ve daha önce hiç olmadığı gibi bir verimlilik deneyimi yaşayı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?