Excel'de etkin çalışma kitabındaki tüm çalışma sayfalarından filtreler nasıl temizlenir?
Bir Excel çalışma kitabındaki farklı çalışma sayfalarında birden çok filtre oluşturduğunuzu ve şimdi tüm bu filtreleri aynı anda temizlemek istediğinizi varsayarsak. Normalde, filtreyi kontrol etmek ve ardından manuel olarak temizlemek için çalışma sayfasına birer birer geçmeniz gerekir. Etkin bir çalışma kitabındaki tüm çalışma sayfalarındaki filtreleri temizlemenin uygun bir yöntemi var mı? Lütfen bu makaledeki yöntemi deneyin.
VBA kodu ile aktif çalışma kitabındaki tüm çalışma sayfalarından filtreleri temizleyin
VBA kodu ile aktif çalışma kitabındaki tüm çalışma sayfalarından filtreleri temizleyin
Aktif çalışma kitabındaki tüm çalışma sayfalarından filtreleri temizlemek için lütfen aşağıdaki VBA komut dosyasını çalıştırın.
1. Çalışma kitabında filtreleri temizlemeniz gerekir, lütfen Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki VBA komut dosyasını Modül penceresine kopyalayıp 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 temizleyin
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Ardından, geçerli çalışma kitabındaki tüm çalışma sayfalarındaki tüm filtreler hemen temizlenir.
İlgili Makaleler:
- Excel'deki Pivot Tablodan filtre önbelleğini (eski öğeler) nasıl temizleyebilirim?
- Excel'de çalışma kitabını açarken, kaydederken veya kapatırken filtreler nasıl temizlenir?
- Excel'deki onay kutusuna dayalı olarak verileri nasıl filtreleyebilirim?
- Excel'de filtrelenmiş bir liste sütunundaki sayı dizileri nasıl doldurulur?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!