Αυτή η συμβουλή επιτρέπει στους χρήστες της αναφοράς σας να επιλέξουν μεταξύ πολλών μορφών περιστρεφόμενου πίνακα χρησιμοποιώντας κουμπιά επιλογών και, στη συνέχεια, να ενημερώσουν αυτόματα τον συγκεντρωτικό πίνακα! (Βοηθάει όταν οι χρήστες έχουν προτιμήσεις μορφής αναφοράς χωρίς να χρειάζεται να μεταβούν στη γραμμή εργαλείων του περιστρεφόμενου πίνακα και να επιλέγουν μία κάθε φορά)
Βήμα πρώτο:
Τοποθετήστε ένα κουμπί επιλογής (ή πολλά) οπουδήποτε στο φύλλο εργασίας αναφοράς του περιστρεφόμενου πίνακα και ονομάστε τα όπως "Μορφή αναφοράς 1", "Μορφή αναφοράς 2" κ.λπ.
Κάντε αυτό πηγαίνοντας στο "Προβολή> Γραμμές εργαλείων> Φόρμες", επιλέξτε "Κουμπί επιλογής" από την εργαλειοθήκη και σύρετέ το στην αναφορά σας.
Βήμα δυο:
Δημιουργήστε τη μακροεντολή μεταβαίνοντας στα "Εργαλεία> Μακροεντολή> Μακροεντολές", πληκτρολογήστε ένα όνομα όπως "Format2" και στη συνέχεια "Δημιουργία"
Πληκτρολογήστε ή κόψτε και επικολλήστε τον ακόλουθο κώδικα VB. (Σημείωση: Βεβαιωθείτε ότι ο συγκεντρωτικός σας πίνακας φέρει την ετικέτα ως το προεπιλεγμένο όνομα "Συγκεντρωτικός Πίνακας1" κάνοντας δεξί κλικ οπουδήποτε στον συγκεντρωτικό πίνακα, επιλέξτε "Επιλογές πίνακα" και κοιτάξτε το πεδίο "Όνομα". Διαφορετικά, θα πρέπει να αντικαταστήσετε το όνομα του περιστροφικού πίνακα στον παρακάτω κώδικα με αυτό που ονομάζεται ο περιστρεφόμενος πίνακας σας):
Υπό μορφή 2 ()
'Μακροεντολή Format2
ActiveSheet.PivotTables ("Συγκεντρωτικός Πίνακας1"). Συγκεντρωτική επιλογή "", xlDataAndLabel, True
ActiveSheet.PivotTables ("Συγκεντρωτικός Πίνακας1"). Μορφοποίηση xlReport6
Κελιά. Επιλέξτε
Με Επιλογή
.HorizontalAlignment = xlΓενικά
.VerticalAlignment = xlBottom
.WrapText = Λάθος
. Προσανατολισμός = 0
.AddIndent = Λάθος
.IndentLevel = 0
.ShrinkToFit = Λάθος
.ReadingOrder = xlContext
Τέλος με
Με Επιλογή
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = Λάθος
. Προσανατολισμός = 0
.AddIndent = Λάθος
.IndentLevel = 0
.ShrinkToFit = Λάθος
.ReadingOrder = xlContext
Τέλος με
Κελιά. Επιλέξτε
Επιλογή. Στήλες. Αυτόματη προσαρμογή
Εύρος ("A1"). Επιλέξτε
Τέλος υπο
~~~~~~~~~~~~~~~~~~~~~~~~~
Μπορείτε να δημιουργήσετε μακροεντολές διαφορετικής μορφής χρησιμοποιώντας τον ίδιο κώδικα και η μόνη γραμμή που πρέπει να αλλάξετε είναι η "Μορφοποίηση xlReport6". Υπάρχουν περίπου 15 μορφές αναφοράς για να διαλέξετε. Απλώς αλλάξτε την "xlReport (αριθμός)" από 1 σε 15.
Ο παραπάνω κώδικας προσαρμόζεται επίσης αυτόματα στις στήλες και κεντράρει το κείμενο μετά τη μορφοποίηση της αναφοράς.
Βήμα τρίτο:
Αντιστοιχίστε τη μακροεντολή στο κουμπί επιλογής κάνοντας δεξί κλικ στο κουμπί επιλογής, επιλέξτε "Εκχώρηση μακροεντολής" και απλά επιλέξτε τη μακροεντολή που μόλις δημιουργήσατε. Κάντε αυτό για κάθε ένα από τα κουμπιά επιλογής σας
Αυτό είναι! Τώρα, όταν ένας χρήστης κάνει κλικ σε ένα κουμπί επιλογής, ο συγκεντρωτικός πίνακας θα ενημερωθεί αυτόματα στη μορφή με βάση την επιλογή μορφής που χρησιμοποιήθηκε στη μακροεντολή. Δοκιμάστε πολλά στυλ αναφοράς για να δείτε ποια ταιριάζουν στις ανάγκες σας και, στη συνέχεια, εκχωρήστε τα στις μακροεντολές και τα κουμπιά επιλογών σας.
Οι χρήστες σας θα είναι ευγνώμονες και εντυπωσιασμένοι!
Καλή τύχη!
~ CJ