İ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əyə Pivot Cədvəl filtrini necə bağlamaq olar?

Bir Pivot Cədvəl filtrini müəyyən bir hüceyrəyə bağlamaq və hücum dəyərinə görə Pivot Cədvəlini filtrləşdirmək istəyirsinizsə, bu yazıda istifadə olunan üsul sizə kömək edə bilər.

VBA kodu ilə müəyyən bir hüceyrəyə Link Pivot Cədvəlini filtreleyin


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əyə Link Pivot Cədvəlini filtreleyin

Süzgəc funksiyasını bir hüceyrə dəyərinə bağlayan Pivot Cədvəl bir filter sahəsi (filtr sahəsində adı aşağıdakı VBA kodunda mühüm rol oynayacaq) daxil etməlidir.

Aşağıdakı Pivot Cədvəlini nümunə götürün, Pivot Cədvəlində filter sahəsi çağırılır kateqoriyavə iki dəyərdən ibarətdir "Xərc"Və"Satış". Pivot Cədvəl filtrini bir hüceyrəyə bağladıktan sonra, Pivot Cədvəlinə tətbiq edəcəyi hücum dəyərləri "Gəlirlər" və "Satış" olmalıdır.

1. Xahiş edirik Cell (H6 hücresini burada seçirəm) seçin və Pivot Cədvəlinin filtr funksiyasına keçid və əvvəlcədən hüceyrəyə filter dəyərlərindən birini daxil edin.

2. İş yerini açın, hüceyrəyə keçid edəcək Pivot Cədvəlini ehtiva edir. Sekanın sekmesini sağa vurun və seçin Kodları baxın kontekst menyusundan. Ekran görüntüsünə baxın:

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

VBA kodu: Link Pivot Cədvəlini müəyyən bir hüceyrəyə verin

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:

1) "Sheet1"Açılmış işin adıdır.

2) "PivotTable2"Pivot Cədvəlinin adı filtr funksiyasını bir hüceyrəyə bağlayacaqsınız.

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

4) Qeyd olunan hüceyrə H6-dir. Bu dəyişən dəyərləri ehtiyaclarınıza əsasən dəyişə bilərsiniz.

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

İndi Pivot Cədvəlinin filter funksiyası H6 hücresinə bağlıdır.

H6 hücresini yeniləyin, sonra Pivot Cədvəlində müvafiq məlumatlar mövcud dəyər əsasında süzülür. Ekran görüntüsünə baxın:

Hücre dəyərini dəyişdirərkən, Pivot Cədvəlində süzülmüş məlumatlar avtomatik olaraq dəyişdiriləcəkdir. Ekran görüntüsünə baxın:

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.
    Jeri · 24 days ago
    what if i have more than 1 pivot table and to link to 1 cell. How shld i amend the code?
  • To post as a guest, your comment is unpublished.
    Sara · 5 months ago
    What if the cell that is linked to the Pivot Table, in this case H6, is on another worksheet? How does it change the code?
  • To post as a guest, your comment is unpublished.
    Frank · 6 months ago
    how to do it on mul;tiple field since in code there is only one target