Πώς να συνδέσετε το φίλτρο συγκεντρωτικού πίνακα σε ένα συγκεκριμένο κελί στο Excel;

Εάν θέλετε να συνδέσετε ένα φίλτρο Συγκεντρωτικού πίνακα με ένα συγκεκριμένο κελί και να κάνετε το Συγκεντρωτικό πίνακα φιλτραρισμένο με βάση την τιμή κελιού, η μέθοδος σε αυτό το άρθρο μπορεί να σας βοηθήσει.

Συνδέστε το φίλτρο Pivot Table σε ένα συγκεκριμένο κελί με κωδικό VBA

Συνδέστε το φίλτρο Pivot Table σε ένα συγκεκριμένο κελί με κωδικό VBA

Ο Συγκεντρωτικός Πίνακας που θα συνδέσετε τη λειτουργία φίλτρου με μια τιμή κελιού θα πρέπει να περιλαμβάνει ένα πεδίο φίλτρου (το όνομα του πεδίου φίλτρου διαδραματίζει σημαντικό ρόλο στον ακόλουθο κώδικα VBA).

Για παράδειγμα, πάρτε τον παρακάτω Συγκεντρωτικό Πίνακα, το πεδίο φίλτρου στον Συγκεντρωτικό πίνακα καλείται κατηγορίακαι περιλαμβάνει δύο τιμές "Έξοδα"Και"ΕΚΠΤΩΣΕΙΣ". Αφού συνδέσετε το φίλτρο Συγκεντρωτικού πίνακα σε ένα κελί, οι τιμές κελιών που θα εφαρμόσετε στο φίλτρο Συγκεντρωτικός πίνακας θα πρέπει να είναι «Έξοδα» και «Πωλήσεις».

1. Επιλέξτε το κελί (εδώ επιλέγω το κελί H6) που θα συνδέσετε με τη λειτουργία φίλτρου του Συγκεντρωτικού Πίνακα και εισαγάγετε μία από τις τιμές φίλτρου στο κελί εκ των προτέρων.

2. Ανοίξτε το φύλλο εργασίας περιέχει τον Συγκεντρωτικό Πίνακα που θα συνδέσετε με το κελί. Κάντε δεξί κλικ στην καρτέλα φύλλων και επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:

3. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Code.

Κωδικός VBA: Σύνδεση φίλτρου συγκεντρωτικού πίνακα σε ένα συγκεκριμένο κελί

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

Notes:

4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

Τώρα η λειτουργία φίλτρου του Συγκεντρωτικού Πίνακα συνδέεται με το κελί H6.

Ανανεώστε το κελί H6 και, στη συνέχεια, τα αντίστοιχα δεδομένα στο Συγκεντρωτικό πίνακα φιλτράρονται με βάση την υπάρχουσα τιμή. Δείτε το στιγμιότυπο οθόνης:

Όταν αλλάζετε την τιμή κελιού, τα φιλτραρισμένα δεδομένα στον Συγκεντρωτικό Πίνακα θα αλλάξουν αυτόματα. Δείτε το στιγμιότυπο οθόνης:

Σχετικά άρθρα:

• Πώς να συνδυάσετε πολλά φύλλα σε έναν συγκεντρωτικό πίνακα στο Excel;
• Πώς να δημιουργήσετε έναν συγκεντρωτικό πίνακα από αρχείο κειμένου στο Excel;
• Πώς να φιλτράρετε τον συγκεντρωτικό πίνακα με βάση μια συγκεκριμένη τιμή κελιού στο Excel;