Πώς να φιλτράρετε τον συγκεντρωτικό πίνακα με βάση μια συγκεκριμένη τιμή κελιού στο 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
Notes: Στον κώδικα,
4. Πάτα το άλλος + Q πλήκτρα για να κλείσετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
Στη συνέχεια, ο Συγκεντρωτικός Πίνακας φιλτράρει με βάση την τιμή στο κελί H6 όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:
Μπορείτε να αλλάξετε την τιμή κελιού σε άλλους όπως χρειάζεστε.
Note: Οι τιμές που πληκτρολογείτε στο κελί H6 πρέπει να ταιριάζουν ακριβώς με τις τιμές στην αναπτυσσόμενη λίστα Κατηγορία του Συγκεντρωτικού Πίνακα.
Σχετικά άρθρα:
- Πώς να συνδυάσετε πολλά φύλλα σε έναν συγκεντρωτικό πίνακα στο Excel;
- Πώς να δημιουργήσετε έναν συγκεντρωτικό πίνακα από αρχείο κειμένου στο Excel;
- Πώς να συνδέσετε το φίλτρο συγκεντρωτικού πίνακα σε ένα συγκεκριμένο κελί στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!