Excel'de bir Pivot Tablo filtresini belirli bir hücreye nasıl bağlayabilirsiniz?

Eğer bir Pivot Tablo filtresini belirli bir hücreye bağlamak ve Pivot Tabloyu hücre değerine göre filtrelemek istiyorsanız, bu makaledeki yöntem size yardımcı olabilir.

VBA kodu ile Pivot Tablo filtresini belirli bir hücreye bağlayın

VBA kodu ile Pivot Tablo filtresini belirli bir hücreye bağlayın

Filtre işlevini bir hücre değerine bağlayacağınız Pivot Tablo, aşağıdaki VBA kodunda önemli bir rol oynayan bir filtre alanı içermelidir.

Aşağıdaki Pivot Tabloyu örnek olarak alın. Pivot Tablodaki filtre alanı Kategori olarak adlandırılır ve “Giderler” ve “Satışlar” olmak üzere iki değeri içerir. Pivot Tablo filtresini bir hücreye bağladıktan sonra, Pivot Tabloyu filtrelemek için uygulayacağınız hücre değerleri “Giderler” ve “Satışlar” olmalıdır.

1. Lütfen Pivot Tablo’nun filtre işlevine bağlayacağınız hücreyi seçin (burada H6 hücresini seçiyorum) ve önceden hücreye bir filtre değeri girin.

2. Bağlanacak Pivot Tablo’yu içeren çalışma sayfasını açın. Sayfa sekmesine sağ tıklayın ve içerik menüsünden Kodu Görüntüle'yi seçin. Ekran görüntüsüne bakın:

3. Microsoft Visual Basic for Applications penceresinde aşağıdaki VBA kodunu Kod penceresine kopyalayın.

VBA kodu: Pivot Tablo filtresini belirli bir hücreye bağla

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")) 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:

4. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına basın.

Şimdi Pivot Tablo'nun filtre işlevi H6 hücresine bağlanmıştır.

H6 hücresini yenileyin, ardından mevcut değere göre Pivot Tablo'daki ilgili veriler filtrelenir. Ekran görüntüsüne bakın:

Hücre değerini değiştirdiğinizde, Pivot Tablo'daki filtrelenmiş veriler otomatik olarak değişecektir. Ekran görüntüsüne bakın:

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 birden çok sayfayı tek bir pivot tablosunda nasıl birleştirebilirsiniz?
• Excel'de Metin dosyasından Pivot Tablo nasıl oluşturulur?
• Excel'de belirli bir hücre değerine göre Pivot Tablo nasıl filtrelenir?