Excel'deki belirli bir hücre değerine göre Pivot tablo nasıl filtrelenir?
Normalde, aşağıdaki ekran görüntüsünde gösterildiği gibi açılır listedeki öğeleri seçerek bir Özet Tablodaki verileri filtreliyoruz. Aslında, belirli bir hücredeki değere göre bir pivot tabloya filtre uygulayabilirsiniz. Bu makaledeki VBA yöntemi, sorunu çözmenize yardımcı olacaktır.
VBA kodu ile belirli bir hücre değerine göre Pivot Tabloyu filtreleyin
VBA kodu ile belirli bir hücre değerine göre Pivot Tabloyu filtreleyin
Aşağıdaki VBA kodu, Excel'deki belirli bir hücre değerine göre bir Pivot Tabloyu filtrelemenize yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Lütfen Pivot Tabloyu önceden bir hücreye göre filtreleyeceğiniz bir değer girin (burada H6 hücresini seçiyorum).
2. Hücre değerine göre filtreleyeceğiniz Pivot Tabloyu içeren çalışma sayfasını açın. Ardından, 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. Açılışta Uygulamalar için Microsoft Visual Basic penceresinde, VBA kodunu Kod penceresine kopyalayın.
VBA kodu: Pivot Tablosunu hücre değerine göre filtrele
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,
4. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
Ardından Pivot Tablo, aşağıda gösterilen ekran görüntüsü gibi H6 hücresindeki değere göre filtreleme yapıyor:
İhtiyaç duyduğunuzda hücre değerini başkalarına değiştirebilirsiniz.
not: H6 hücresine yazdığınız değerler, Pivot Tablosunun Kategori açılır listesindeki değerlerle tam olarak eşleşmelidir.
İlgili yazılar:
- Birden çok sayfayı Excel'de bir pivot tabloda nasıl birleştirebilirim?
- Excel'de Metin dosyasından Pivot Tablo nasıl oluşturulur?
- Pivot Tablo filtresini Excel'deki belirli bir hücreye nasıl bağlayabilirim?
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!