Πώς να ελέγξετε εάν υπάρχει συγκεντρωτικός πίνακας σε ένα βιβλίο εργασίας;
Εάν υπάρχουν πολλοί συγκεντρωτικοί πίνακες στο βιβλίο εργασίας σας και τώρα, θέλετε γρήγορα να μάθετε εάν υπάρχει συγκεκριμένος συγκεντρωτικός πίνακας σε αυτό το βιβλίο εργασίας. Κανονικά, μπορείτε να μεταβείτε στο παράθυρο διαλόγου Επιλογές Συγκεντρωτικού Πίνακα για να ελέγξετε το όνομα του συγκεντρωτικού πίνακα ένα προς ένα, αλλά αυτό είναι πολύ χρονοβόρο και κουραστικό όταν υπάρχουν δεκάδες ή εκατοντάδες συγκεντρωτικοί πίνακες. Εδώ, μπορώ να μιλήσω για ένα κόλπο για να επιλύσετε αυτό το έργο.
Ελέγξτε εάν υπάρχει συγκεντρωτικός πίνακας σε ένα βιβλίο εργασίας με λειτουργία που ορίζεται από το χρήστη
Για να μάθετε γρήγορα εάν υπάρχει ένας συγκεντρωτικός πίνακας στο τρέχον βιβλίο εργασίας, μπορείτε να δημιουργήσετε μια συνάρτηση καθορισμένη από τον χρήστη για να την επιλύσετε.
1. Ανοίξτε το βιβλίο εργασίας που θέλετε να ελέγξετε εάν υπάρχει ο συγκεντρωτικός πίνακας.
2. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Ελέγξτε εάν υπάρχει συγκεντρωτικός πίνακας σε ένα βιβλίο εργασίας
Function PivotExist(Name As String) As Boolean
'Update 20141112
Dim sh As Worksheet
Dim pt As PivotTable
PivotExist = False
For Each sh In ActiveWorkbook.Worksheets
For Each pt In sh.PivotTables
If pt.Name = Name Then
PivotExist = True
Exit For
End If
Next
Next
End Function
4. Στη συνέχεια, αποθηκεύστε και κλείστε αυτόν τον κωδικό, επιστρέψτε στο φύλλο εργασίας σας, εισαγάγετε αυτόν τον τύπο = pivotexist ("salereport") σε ένα κενό κελί, δείτε το στιγμιότυπο οθόνης:
Notes: (1.) Στον παραπάνω τύπο, «έκθεση πώλησηςΕίναι το όνομα του συγκεντρωτικού πίνακα που θέλετε να ελέγξετε.
(2.) Πρέπει να εισαγάγετε το όνομα του συγκεντρωτικού πίνακα με διπλά εισαγωγικά και το όνομα πρέπει να είναι πεζά.
5. Αφού εισαγάγετε τον τύπο και, στη συνέχεια, πατήστε το πλήκτρο Enter, εάν λάβετε ΑΛΗΘΙΝΗ στο κελί σας, ο συγκεντρωτικός πίνακας υπάρχει, εάν λάβετε ΨΕΥΔΗΣ, ο συγκεντρωτικός πίνακας δεν υπάρχει.
Σχετικά άρθρα:
Πώς να απαριθμήσετε όλους τους συγκεντρωτικούς πίνακες από ένα βιβλίο εργασίας;
Πώς να προσθέσετε πολλά πεδία σε συγκεντρωτικό πίνακα;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!