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

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

Φιλτράρετε τον συγκεντρωτικό πίνακα με βάση μια συγκεκριμένη τιμή κελιού με κωδικό VBA

Φιλτράρετε τον συγκεντρωτικό πίνακα με βάση μια συγκεκριμένη τιμή κελιού με κωδικό VBA

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

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

Σημειώσεις: Στον κώδικα,

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

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

Μπορείτε να ενημερώσετε την τιμή του κελιού για να εφαρμόσετε ένα διαφορετικό φίλτρο όπως απαιτείται.

Σημείωση: Οι τιμές που πληκτρολογείτε στο κελί H6 πρέπει να ταιριάζουν ακριβώς με τις τιμές στην αναπτυσσόμενη λίστα Κατηγορία του Συγκεντρωτικού Πίνακα.

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

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