İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

Excel'de belirli bir hücre değerine göre Pivot tablo nasıl filtrelenir?

Normalde, soldaki ekran görüntüsü olarak aşağı açılır listeden değerleri kontrol ederek verileri bir Pivot Tabloda filtreleriz. Pivot Tabloyu filtreleyerek daha dinamik hale getirmek istiyorsanız, belirli bir hücrede bulunan değere göre filtreleyebilirsiniz. Bu makaledeki VBA yöntemi, sorunu çözmenize yardımcı olacaktır.

VBA koduyla belirli bir hücre değerine göre Pivot Tabloyu Filtrele


Bir certian sütunundaki hücre değerine dayalı olarak tüm satırları kolayca seçin:

The,en Belirli Hücreleri Seç yarar Kutools for Excel aşağıda gösterilen ekran görüntüsü gibi Excel'deki bir certian sütundaki hücre değerine dayalı olarak hızlı bir şekilde tüm satırları seçmenize yardımcı olabilir. Hücre değerine dayalı tüm satırları seçtikten sonra, el ile hareket edebilir ya da Excel'de gerekir gibi yeni bir konuma kopyalar.

Kutools for Excel: 200'dan fazla kullanışlı Excel eklentisi ile 60 günlerinde herhangi bir sınırlama olmaksızın ücretsiz olarak çalışın. Şimdi ücretsiz deneme sürümünü indirin!


VBA koduyla belirli bir hücre değerine göre Pivot Tabloyu Filtrele

Aşağıdaki VBA kodu, Excel'deki belirli bir hücre değerine göre bir Pivot Tablosu'nu filtrelemenize yardımcı olabilir. Lütfen aşağıdakileri yapın.

1. Lütfen önceden bir hücreye göre Pivot Tablosunu filtreleyeceğiniz bir değer girin (burada H6 hücresini seçiyorum).

2. Çalışma sayfasını, hücre değerine göre filtreleyeceğiniz Pivot Tablosunu açın. Ardından, sayfa sekmesini sağ tıklayın ve içerik menüsünden Görünüm Kodu'nu seçin. Ekran görüntüsüne bakın:

3. Açılışta Uygulamalar için Microsoft Visual Basic pencere, Kod penceresinin altında VBA kodunu kopyalayın.

VBA kodu: Hücre değerine göre Filtre Pivot Tablosu

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

notlar: Kodda,

1) "Sheet1”Çalışma sayfasının adıdır.

2) "PivotTable2“Pivot Tablosunun adıdır.

3) Pivot tablodaki filtreleme alanı denir "Kategoriler".

4) Pivot tabloyu filtrelemek istediğiniz değer hücreye yerleştirilir. H6.

Yukarıdaki değişken değerlerini istediğiniz gibi değiştirebilirsiniz.

4. Tuşuna basın. diğer + Q tuşlarını kapatmak için Uygulamalar için Microsoft Visual Basic pencere.

Daha sonra Pivot Tablosu, aşağıdaki ekran görüntüsüne göre H6 hücresindeki değere göre filtreleme yapıyor:

Hücre değerini ihtiyaç duyduğunuz gibi başkalarına değiştirebilirsiniz.

notlar: H6 hücresine yazdığınız değerler, Pivot Tablo Kategorisi aşağı açılan listesindeki değerlerle tam olarak eşleşmelidir.


Office Tab - Excel'de Çalışma Kitaplarının Sekmeli Tarama, Düzenleme ve Yönetilmesi:

Office Sekmesi, sekmeli arayüzü Google Chrome, Internet Explorer yeni sürümleri ve Firefox gibi Microsoft Excel gibi web tarayıcılarında görüldüğü gibi getiriyor. Zaman tasarrufu sağlayan bir araç olacak ve işinizde geri dönüşü olmayacak. Aşağıdaki demo bakın:

Office Tab'ı ücretsiz deneme için tıklayın!

Excel için Office Sekmesi


İlgili yazılar:



Önerilen Üretkenlik Araçları

Office Tab

altın yıldız1 Kullanışlı sekmeleri Excel, diğer Office yazılımlarına da tıpkı Chrome, Firefox ve yeni Internet Explorer gibi getirin.

Kutools for Excel

altın yıldız1 Şaşırtıcı! 5 dakika içinde üretkenliğinizi artırın. Herhangi bir özelliğe ihtiyacınız yoktur, her gün iki saat tasarruf edin!

altın yıldız1 300 Excel için Yeni Özellikler, Excel'i Çok Kolay ve Güçlü Yapın:

  • Hücre / Satırları / Sütunları Veri Kaybetmeden Birleştirin.
  • Birden Çok Levha ve Çalışma Kitabını Birleştirin ve Konsolide edin.
  • Aralıkları Karşılaştırma, Birden Fazla Aralık Kopyalama, Metni Tarihe Dönüştürme, Birim ve Para Birimi Dönüştürme.
  • Renklere Göre Sayma, Sayfalık Toplamlar, Gelişmiş Sıralama ve Süper Filtre,
  • Daha Seç / Ekle / Sil / Metin / Biçim / Bağlantı / Açıklama / Çalışma Kitabı / Çalışma Sayfası Araçları ...

Kutools for Excel'in ekran görüntüsü

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Justin · 7 months ago
    How would you do this with a report filter that has a hierarchy?

  • To post as a guest, your comment is unpublished.
    Daniel · 8 months ago
    Using this code (updated for my variables of course), when changing the field, the filter changes momentarily to the correct one, and then clears itself almost immediately. Trying to figure out why it's doing this (wondering if it has something to do with the ClearAllFilters at the end of the sub?)