Note: The other languages of the website are Google-translated. Back to English

 Excel'de birden çok sayfaya aynı filtre nasıl uygulanır?

Bir çalışma sayfasındaki verileri filtrelemek için Filtre işlevini uygulamak bizim için kolay olabilir, ancak bazen, aynı filtre kriterlerine sahip ortak veri biçimlendirmesine sahip birden çok çalışma sayfasına filtre uygulamanız gerekebilir. Bunları tek tek filtrelemek çok zaman kaybedecektir, burada, bunu bir kerede çözmenin kolay bir yolunu sunabilirim.

Aynı filtreyi VBA kodu ile birden çok çalışma sayfasına uygulayın


ok mavi sağ balon Aynı filtreyi VBA kodu ile birden çok çalışma sayfasına uygulayın

Örneğin, aşağıdaki ekran görüntüsünün aynı anda Ürün = KTE ile aynı kriterlere göre filtrelenmesi gerektiğinden dört çalışma sayfam var.

doc birden çok sayfaya filtre uygula 1

Excel'de birden çok sayfadaki verileri filtrelemenin doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu bu işi bitirmenize yardımcı olabilir, lütfen aşağıdaki işlemleri gerçekleştirin:

1. Basılı tutun ALT + F11 anahtarlar, ardından açılır Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: Aynı filtreyi birden çok çalışma sayfasına uygulayın:

Sub apply_autofilter_across_worksheets()
'Updateby Extendoffice
    Dim xWs As Worksheet
    On Error Resume Next
    For Each xWs In Worksheets
        xWs.Range("A1").AutoFilter 1, "=KTE"
    Next
End Sub

3. Ve sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar, KTE'nin tüm ürünleri bir kerede tüm çalışma sayfalarında filtrelenmiştir, ekran görüntüsüne bakın:

doc birden çok sayfaya filtre uygula 2

not: Yukarıdaki kod içinde, bunun içinde xWs.Range ("A1"). Otomatik Filtre 1, "= KTE" senaryo, A1 ve = KTE Filtrelemek istediğiniz kolon ve kriterleri belirtir, 1 rakamı filtrelediğiniz kolon numarasıdır, ihtiyacınıza göre değiştirebilirsiniz. Örneğin, 50'den büyük sıralamayı filtrelemek istiyorsanız, bu komut dosyasını şu şekilde değiştirmeniz yeterlidir: xWs.Range ("B1"). Otomatik Filtre 2, "> 50".


Verileri, metin uzunluğu, büyük / küçük harfe duyarlı vb. Gibi birden çok kritere veya diğer belirli koşullara göre filtreleyin.

Kutools for Excel'S Süper Filtre özellik güçlü bir yardımcı programdır, aşağıdaki işlemleri bitirmek için bu özelliği uygulayabilirsiniz:

  • Verileri birden çok kriterle filtreleyin; Verileri metin uzunluğuna göre filtreleyin;
  • Verileri büyük / küçük harfe göre filtreleyin; Tarihi yıl / ay / Gün / hafta / çeyreğe göre filtrele

doc-super-filtre1

Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (41)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu filtre formülünü bir dizi sayfaya nasıl uygularsınız? İlk 5 sayfada veri bulunan bir çalışma kitabım var ve çalışma kitabında 200 sayfa var, sadece sayfa 6-200'e uygulanacak filtreye ihtiyacım var. Sub application_autofilter_across_worksheets() 'Updateby Extendoffice 20160623 Dim xWs Çalışma Sayfası Olarak Hatada Devam Et Çalışma Sayfalarındaki Her xWs için Sonraki xWs.Range("A1").AutoFilter 1, "=KTE" Next End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sub application_autofilter_across_worksheets() Dim J As integer On Error Resume Next For J = 6 to Worksheets(worksheets.count) Thisworkbook.Sheets(J).Range("A1").Autofilter 1, "=KTE" Next End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili, birden fazla değeri filtrelemek istiyorum, bu xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR" kullandım ve işe yaradı ama istenen değerleri >2'ye yükseltin bir hata oluşur. bu komutu kullanıyorum xWs.Range("B1").AutoFilter 2, "=223AM", xlOr, "=113IR", xlOr, "=003IR", xlOr, "=019IR", xlOr, "=311IR", xlOr , "=518ZA", xlOr, "=223AM", xlOr, "=592IR" teşekkürler,
Bu yorum sitedeki moderatör tarafından en aza indirildi
birden çok sayfada tek kelimeyi filtrelerken filtrelenmiş verileri göstermiyor... tüm veriler gizleniyor.lütfen bunu çözün.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,


Verilerim E Sütununda ve bu filtreyi Aralık ("E1") ile uyguladığımda hala A sütununu filtreliyor


Nasıl giderebilirim?
Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu durumda AutoFilter'a Sütun numarasını yazmanız yeterlidir: xWs.Range("E1").AutoFilter 5,
Bu yorum sitedeki moderatör tarafından en aza indirildi
TEŞEKKÜR EDERİM!!!!
Bu yorum sitedeki moderatör tarafından en aza indirildi
SÜTUN A LOL SİL
Bu yorum sitedeki moderatör tarafından en aza indirildi
Filtre her sayfada farklı bir sütundaysa nasıl yürütülür?
Bu yorum sitedeki moderatör tarafından en aza indirildi
=(belirli ad) kullanmak yerine her sayfa için filtreyi ayarlamak için otomatik filtrenin sonucunu nasıl kullanabilirsiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm özet tablolar aynı veri kaynağından ise ve aynı ölçüt kullanılarak ayarlanmışsa, bunu birden çok sayfada özet tabloları filtrelemek için kullanabilir miyim?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Renklere göre filtreleme seçeneği var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Mahesh,
Verileri renge göre filtrelemek istiyorsanız, aşağıdaki iki makale size yardımcı olabilir! Lütfen onları görüntüleyin, umarım size yardımcı olabilir!

https://www.extendoffice.com/documents/excel/912-excel-filter-by-cell-color.html
https://www.extendoffice.com/documents/excel/3383-excel-filter-by-multiple-colors.html
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,


Ürün sütunu diğer sayfalarda farklı yerlerde sunuluyorsa bu nasıl çalışır?


Sayfa1'de, sayfa1'de A2'dir, B1'dedir ve sayfa3'te yine A1'dir?

Teşekkürler,
monika
Bu yorum sitedeki moderatör tarafından en aza indirildi
Her sayfa için "=KTE" bölümünü, sayfa adına dayalı bir içerme filtresiyle değiştirmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kod için teşekkürler!! Bir Listeden veya Açılır listeden bir değer kullanmak için "=KTE"yi değiştirmenin bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
HI, çalışma kitabının tamamındaki süper filtre, dosyada bir güncelleme olduğunda otomatik olarak yeniden uygulanır mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
xWs.Range("A1").AutoFilter 1, "=KTE" de A1 yerine Product gibi hücre adını kullanabilir miyiz?
Farklı sütunum var ve bazı isimler farklı sütunlarda geliyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Her sayfada filtre kullandım. Ve filtreden sonra her sayfada seri olarak 1 2 3'ten s.no'yu değiştirmek istiyorum.


Bunun için vba kodunuz varsa lütfen bana bildirin
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı çoklu sayfalar için "Arasında Filtrele" İşlevi nasıl kullanılır?

(Örnek: Zaman aralığı)
Bu yorum sitedeki moderatör tarafından en aza indirildi
filtrelenmiş satırlar nasıl ortadan kaldırılır?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sevgili,

Birden çok koşulla nasıl filtrelenir?
Örneğin, 50'nin üzerinde ancak sadece KTE ürünlerini sıralamak istiyorum.

Şimdiden teşekkürler.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Pedjaa,
İki koşula dayalı olarak birden çok sayfa arasında filtreleme yapmak için lütfen aşağıdaki kodu uygulayın:
alt application_autofilter_across_worksheets()

'güncelleme Extendoffice

Çalışma Sayfası Olarak Dim xWs

On Error Resume Next

Çalışma Sayfalarındaki Her xW için

xWs.Range("A1") ile

.AutoFilter Alanı:=1, Criteria1:="KTE" 'Sütun A eşittir "KTE"

.AutoFilter Alanı:=2, Criteria1:=">500" 'B Sütunu 500'den büyük

İle bitmek

Sonraki

End Sub

Lütfen deneyin, umarım size yardımcı olabilir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
A1'i G1 ile değiştirsem bile filtreyi A1 sütununa yerleştiriyor
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Tan,
Sadece A1'i G1 ile değiştirirsiniz, aynı zamanda 1 numaralı sütunu aşağıdaki kod gibi 7 numaralı sütuna değiştirmelisiniz:
xWs.Range("G1").Otomatik Filtre 7, "=KTE"
Lütfen deneyin, teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
sayı yerine Sütun Adına göre filtreleme yapmak mümkün mü (verilerim farklı çalışma sayfalarında farklı sütunlarda olduğu için)?
teşekkür ederimManuela
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı koşul "KTE" ile filtrelemek istiyorum, ancak bir sayfada görünmüyorsa herhangi bir veri göstermiyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
"KTE" yerine hücre değerine dayalı filtre kriterleri istiyorum mümkün mü ???
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Hemraj,Verileri sabit metin yerine belirli bir hücre değerine göre filtrelemek için lütfen aşağıdaki kodu uygulayın: alt application_autofilter_across_worksheets()
'güncelleme Extendoffice
Çalışma Sayfası Olarak Dim xWs
On Error Resume Next
Çalışma Sayfalarındaki Her xW için
xWs.Range("A1").AutoFilter 1, Sheet1.Range("E2")
Sonraki
End Subnot: Lütfen değiştirin Sheet1 ve E2 bunun içinde Sayfa1.Aralık("E2") kendi sayfanıza ve hücre değerinize komut dosyası. Lütfen deneyin, size yardımcı olabileceğini umarız!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Skyyang,
Değerli ve muhteşem desteğiniz için teşekkürler, aynı formülleri kullanmaya çalıştım ama neden olabilir ki işe yaramadı. Excel sayfam için kullandığım kod aşağıdadır.
alt application_autofilter_across_worksheets()
'güncelleme Extendoffice
Çalışma Sayfası Olarak Dim xWs
On Error Resume Next
Çalışma Sayfalarındaki Her xW için
xWs.Range("A1").AutoFilter 1, Sheet2.Range("C4")
Sonraki
End Sub
Buraya henüz hiç yorum yapılmamış
Daha Çok
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır