İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də müəyyən bir hüceyrə dəyərinə əsasən Pivot masasını necə filtreləmək olar?

Normal olaraq, açılan siyahıdakı göstəriciləri sol ekran görüntüsü olaraq yoxlayaraq Pivot Tablosunda məlumatları filtreleyiyoruz. Süzgəc vasitəsilə Pivot Cədvəlini daha dinamik etmək istəyirsinizsə, müəyyən bir hüceyrədə dəyərə əsaslanaraq onu süzgəlik etməyə cəhd edə bilərsiniz. Bu yazıda VBA metodu problemin həllinə kömək edəcək.

VBA kodu ilə müəyyən bir hüceyrə dəyərinə əsasən Filter Pivot Cədvəli


Sertifikat sütununda hüceyrə dəyərinə əsasən asanlıqla bütün satırları seçin:

The Xüsusi Hüceyrələri seçin faydası Excel üçün Kutools Excel ekranındakı bir sertifikat sütununda hüceyrə dəyərinə əsasən bütün satırları tez bir şəkildə seçdiyiniz ekran görüntüsünü seçməyinizə kömək edə bilər. Cell dəyərinə əsaslanan bütün satırları seçdikdən sonra əl ilə köçürə və ya Excel-də lazım olduğu kimi yeni bir yerə kopyalaya bilərsiniz.

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi pulsuz sınaq yükləyin!


VBA kodu ilə müəyyən bir hüceyrə dəyərinə əsasən Filter Pivot Cədvəli

Aşağıdakı VBA kodu, Excel-də müəyyən bir hüceyrə dəyərinə əsasən Pivot Cədvəlinin filtrelenmesine kömək edə bilər. Xahiş edirik bunu edin.

1. Xahiş edirik əvvəlcədən bir hüceyrəyə əsaslanan Pivot Cədvəlini filtreleyeceğiniz bir dəyəri daxil edin (burada mən H6 hücresini seçirəm).

2. İş hesabını açın Cell dəyəri ilə filtreleyeceğiniz Pivot Cədvəlini ehtiva edir. Daha sonra hesabat sekmesini sağa vurun və kontekst menyusundan Kodları Görüntülə seçin. Ekran görüntüsünə baxın:

3. Açılışda Proqramlar üçün Microsoft Visual Basic Pəncərə, VBA kodu aşağıda Kod penceresine daxil edin.

VBA kodu: Cell dəyərinə əsaslanan Filter Pivot Cədvəli

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

Qeydlər: Kodda,

1) "Sheet1"Iş səhifəsinin adıdır.

2) "PivotTable2"Pivot Cədvəlinin adıdır.

3) pivot masasında filtrasiya sahəsi "kateqoriya".

4) pivot masasını filtreləmək istədiyiniz dəyər hüceyrəyə yerləşdirilir H6.

Sizə lazım olan qədər yuxarıdakı dəyişən dəyərləri dəyişdirə bilərsiniz

4. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

Daha sonra Pivot Cədvəl, H6 hücresindəki dəyərə əsasən göstərilən ekran görüntüsünə görə süzülür:

Həyət dəyərini başqalarına dəyişdirə bilərsiniz.

Qeyd: H6 hücresine yazdığınız dəyərlər, Pivot Cədvəlinin kateqoriya açılan siyahıdakı dəyərlərə tam uyğun olmalıdır.


Office Tab - Excel-də iş kitablarının sekmeli tarama, redaktə edilməsi və idarə olunması:

Office Tab sekmeli interfeysi Google Chrome, Internet Explorer yeni versiyaları və Microsoft Excel kimi Firefox kimi veb brauzerlərdə göründüyü kimi gətirir. Bu zaman qənaət vasitədir və işinizdə əvəzsizdir. Demonun aşağıda bax:

Ofis Sekmesinin pulsuz sınaq üçün basın!

Excel üçün Office Tab


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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?)