Αυτό το σεμινάριο θα δείξει πώς μπορείτε να δημιουργήσετε κινούμενα γραφήματα σε όλες τις εκδόσεις του Excel: 2007, 2010, 2013, 2016 και 2022.
Ένα κινούμενο γράφημα του Excel που τραβάει στην οθόνη μπροστά στα μάτια του κοινού σας είναι ένας ισχυρός, τραβώντας την προσοχή, για να θέσετε τα δεδομένα σας σε κίνηση.
Σε αντίθεση με τα στατικά γραφήματα, τα κινούμενα γραφήματα παρέχουν πρόσθετο πλαίσιο στα δεδομένα σας και βοηθούν στον εντοπισμό αναδυόμενων προτύπων. Για παράδειγμα, ρίξτε μια ματιά στο κινούμενο διάγραμμα γραμμών με δείκτες που εμφανίζονται παρακάτω και δείχνει το ΑΕΠ τεσσάρων χωρών (ΗΠΑ, Κίνα, Βραζιλία και Τουρκία) τις τελευταίες δεκαετίες.
Ενώ το στατικό αντίστοιχο δεν θα φαινόταν τίποτα το ιδιαίτερο ή το νέο, το κινούμενο εφέ επιτρέπει στο γράφημα να σας πει την ιστορία, δίνοντας ζωή στους ακίνητους αριθμούς ΑΕΠ.
Σε αυτό το βήμα προς βήμα, φιλικό προς τους αρχάριους οδηγό, θα μάθετε πώς να κάνετε το ίδιο πράγμα με τα δεδομένα σας-ακόμα κι αν κάνετε τα πρώτα σας βήματα στο Excel.
Ξεκινώντας
Εξετάστε τον ακόλουθο πίνακα δεδομένων που περιέχει τα στοιχεία του ΑΕΠ για κάθε χώρα:
Για να ζωντανέψουμε το γράφημα, θα χρησιμοποιήσουμε μια απλή μακροεντολή VBA που θα σχεδιάσει ομαλά τις τιμές στο γράφημα.
Σημείωση: Όταν προσθέτετε κώδικα VBA στο βιβλίο εργασίας σας, φροντίστε να αποθηκεύσετε το βιβλίο εργασίας σας σε μορφή .xlsm (Φύλλο εργασίας με δυνατότητα ενεργοποίησης μακροεντολών Microsoft Excel) για να ενεργοποιήσετε τις μακροεντολές.
Τώρα, ας σηκώσουμε τα μανίκια και ας πιάσουμε δουλειά.
Βήμα 1: Ρυθμίστε τις στήλες βοηθού.
Για να ξεκινήσετε, επεκτείνετε τον πίνακα δεδομένων με επιπλέον στήλες βοηθού όπου οι πραγματικές τιμές θα αντιγραφούν σταδιακά, δημιουργώντας το εφέ κίνησης.
Αντιγράψτε τις κεφαλίδες των στηλών που περιέχουν τους αριθμούς ΑΕΠ (Β2: Ε2) στα αντίστοιχα κελιά δίπλα στον πίνακα δεδομένων (F2: I2).
Το εύρος κελιών επισημαίνεται με ανοιχτό κόκκινο (F3: I13) καθορίζει τον τόπο όπου θα αποθηκεύσουμε την έξοδο μακροεντολών VBA.
Επιπλέον, προσθέστε δεκαδικούς διαχωριστές για το επιλεγμένο εύρος κελιών (Αρχική σελίδα> Αριθμός> Στυλ κόμματος).
Βήμα #2: Σχεδιάστε ένα κενό γράφημα.
Αφού διαθέσετε λίγο χώρο για τις στήλες βοηθού, δημιουργήστε ένα κενό διάγραμμα 2-D χρησιμοποιώντας τις στήλες (F2: I13) ως δεδομένα προέλευσης:
- Επισημάνετε οποιοδήποτε κενό κελί.
- Μετάβαση στο Εισάγετε αυτί.
- Κάντε κλικ "Εισαγωγή γραφήματος γραμμής ή περιοχής.”
- Επιλέξτε "Γραμμή με δείκτες.”
Έχοντας κάνει αυτό, πρέπει τώρα να συνδέσουμε το κενό γράφημα με τα κελιά στις στήλες βοηθού (F: I). Κάντε δεξί κλικ στο κενό οικόπεδο και κάντε κλικ στο "Επιλέξτε Δεδομένα.”
Στο Επιλέξτε Πηγή δεδομένων παράθυρο διαλόγου, στην ενότητα "Legend Entries (Series)," χτύπα το "ΠροσθήκηΚουμπί ”.
Οταν ο Επεξεργασία σειράς αναδύεται το παράθυρο διαλόγου, δημιουργήστε τέσσερις νέες σειρές δεδομένων με βάση τις στήλες βοηθού (F: I):
- Για "Όνομα σειράς,"Καθορίστε το κελί της σειράς κεφαλίδας του στήλη ΗΠΑ (F2).
- Για "Τιμές σειρών,"Επιλέξτε το αντίστοιχο κενό εύρος κελιών (F3: F13).
Επαναλάβετε την ίδια διαδικασία για τις υπόλοιπες τρεις στήλες.
Μόλις τοποθετήσετε τη σειρά δεδομένων σας, εισαγάγετε τις ετικέτες οριζόντιου άξονα στο γράφημα.
Για να γίνει αυτό, στην ενότητα "Οριζόντιες (κατηγορία) ετικέτες άξονα,"Κάντε κλικ στο"ΕπεξεργασίαΚουμπί ”.
Στο Ετικέτες Άξονα παράθυρο διαλόγου, στην ενότητα "Εύρος ετικετών άξονα, "Επισημάνετε τις τιμές άξονα (Α3: Α13).
Ακολουθεί μια επαγγελματική συμβουλή: Εάν προσθέτετε ή αφαιρείτε τακτικά στοιχεία από τον πίνακα δεδομένων, ρυθμίστε εύρη δυναμικών γραφημάτων για να αποφύγετε την ταλαιπωρία που χρειάζεται να τροποποιήσετε τον πηγαίο κώδικα κάθε φορά που συμβαίνει.
Για να το συμπληρώσετε, κάντε το μελλοντικό γράφημα γραμμών ακόμα πιο κατατοπιστικό, προσθέτοντας τον τίτλο και τον θρύλο του γραφήματος:
- Κάντε κλικ στην περιοχή γραφήματος.
- μεταβείτε στο Σχέδιο αυτί.
- Επιλέξτε "Προσθήκη στοιχείων γραφήματος.”
- Προσθέστε τον τίτλο του γραφήματος (Τίτλος γραφήματος> Πάνω από το διάγραμμα).
- Προσθέστε το μύθο του γραφήματος (Θρύλος> Κάτω).
Βήμα #3: Προγραμματίστε το VBA για να δημιουργήσετε το κινούμενο εφέ.
Μόλις τα στοιχεία προέλευσης του γραφήματος έχουν ρυθμιστεί με τον σωστό τρόπο, ακολουθεί το δύσκολο γράψιμο της μακροεντολής VBA που θα κάνει όλη τη βρώμικη δουλειά για εσάς με ένα μόνο κλικ.
Πριν βουτήξουμε στα σπασμένα, βεβαιωθείτε ότι έχετε το Η καρτέλα προγραμματιστή εμφανίζεται στη ΚορδέλαΤο Εάν είναι απενεργοποιημένο, κάντε δεξί κλικ σε οποιονδήποτε κενό χώρο στο Ταινία και διάλεξε "Προσαρμόστε την κορδέλα”Από το μενού που εμφανίζεται.
Στο Επιλογές Excel παράθυρο διαλόγου, επιλέξτε το "Προγραμματιστής"Πλαίσιο και κάντε κλικ στο"ΕΝΤΑΞΕΙ.”
Αφού το κάνατε αυτό, ήρθε η ώρα να κυκλοφορήσετε το Kraken του Excel, το χαρακτηριστικό που ξεπερνά τα όρια του δυνατού στον κόσμο των υπολογιστικών φύλλων. It’sρθε η ώρα να απελευθερώσετε τη δύναμη του VBA.
Αρχικά, ανοίξτε τον επεξεργαστή VBA:
- Πλοηγηθείτε στο Προγραμματιστής αυτί.
- Κάντε κλικ στο «Visual BasicΚουμπί ”.
Στο πρόγραμμα επεξεργασίας, επιλέξτε το Εισάγετε καρτέλα και επιλέξτε "Μονάδα μέτρησης.”
Μόλις φτάσετε εκεί, αντιγράψτε την ακόλουθη μακροεντολή στο παράθυρο κώδικα:
| 123456789101112131415161718192021222324 | Sub Animated_Chart ()«Δήλωση μεταβλητώνConst StartRow As Long = 2Dim LastRow As LongDim RowNumber As Long«Λάβετε την τελευταία σειρά δεδομένωνLastRow = Εύρος ("A" & StartRow). Τέλος (xlDown). Σειρά'Εκκαθάριση γραφήματος και εμφάνιση κενού γραφήματοςΕύρος ("F" & StartRow, "I" & LastRow) .ClearContentsDoEventsApplication.Wait (Now + TimeValue ("00: 00: 1"))«Βήμα σε κάθε περίοδο γραφήματοςΓια RowNumber = StartRow To LastRowDoEventsΕύρος ("F" & RowNumber, "I" & RowNumber). Value = Range ("B" & RowNumber, "E" & RowNumber). ValueApplication.Wait (Now + TimeValue ("00: 00: 1"))DoEventsΕπόμενο RowNumberΤέλος υπο |
Με την πρώτη ματιά, ο κώδικας μπορεί να φαίνεται τρομακτικός για τους αρχάριους του VBA, αλλά στην πραγματικότητα, χρειάζονται μόνο μερικά απλά βήματα για να προσαρμόσετε τον κώδικα στις ανάγκες σας.
Βασικά, ο κώδικας μπορεί να χωριστεί σε τέσσερις ενότητες όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Τα πράσινα ορθογώνια αντιπροσωπεύουν τα τμήματα του κώδικα που πρέπει να προσαρμοστούν στα δεδομένα σας-ενώ τα υπόλοιπα πρέπει να παραμείνουν αμετάβλητα.
Ας μεγεθύνουμε τα μέρη που πρέπει να συντονίσετε. Για τη διευκόλυνσή σας, ρίξτε μια άλλη ματιά στον πίνακα δεδομένων και ακολουθήστε τα βήματά μου:
Δηλώστε μεταβλητές: Αυτή η ενότητα εισάγει νέες μεταβλητές για τις οποίες λειτουργεί το VBA. Στην περίπτωσή μας, η σταθερά χαρακτηρίζεται ως "StartRow"Βοηθά το VBA να καταλάβει από πού ξεκινά ο πίνακας δεδομένων (σειρά 2). Επομένως, η σταθερή τιμή θα πρέπει να αντιστοιχεί στη σειρά από την οποία ξεκινούν τα δεδομένα σας.
| 1 | Const StartRow As Long = 2 |
Λήψη τελευταίας σειράς δεδομένων: Αυτή η γραμμή κώδικα λέει στο VBA να αναλύσει τον πίνακα δεδομένων και να ορίσει πού τελειώνει ο πίνακας δεδομένων (σειρά 13) έτσι ώστε να μπορεί αργότερα να μεγεθύνει μόνο τις τιμές εντός του καθορισμένου εύρους κελιών, αφήνοντας εκτός το υπόλοιπο φύλλο εργασίας.
Για να το αφαιρέσετε, καθορίστε την πρώτη στήλη ("ΕΝΑ") όπου ξεκινά ο πίνακας δεδομένων για το VBA να βρει την τελευταία σειρά σε αυτήν τη στήλη που περιέχει ένα μη κενό κελί (στήλη Α).
| 1 | LastRow = Εύρος ("A" & StartRow). Τέλος (xlDown). Σειρά |
Διαγραφή γραφήματος και εμφάνιση κενού γραφήματος: Αυτή η ενότητα είναι υπεύθυνη για τη διαγραφή των τιμών στις στήλες βοηθού (F: I) κάθε φορά που εκτελείτε τη μακροεντολή.
Με αυτόν τον τρόπο, μπορείτε να επαναλαμβάνετε το ίδιο κινούμενο εφέ ξανά και ξανά χωρίς να χρειάζεται να καθαρίσετε μόνοι σας τα κελιά του φύλλου εργασίας. Για προσαρμογή, καθορίστε την πρώτη και την τελευταία στήλη βοηθού στον πίνακα δεδομένων σας ("F" και "I").
| 1 | Εύρος ("F" & StartRow, "I" & LastRow) .ClearContents |
Βήμα σε κάθε περίοδο γραφήματος: Εδώ συμβαίνει όλη η μαγεία. Έχοντας επιλέξει το εύρος κελιών, το VBA πηγαίνει σειρά προς σειρά και γεμίζει τις στήλες βοηθού με τις αντίστοιχες πραγματικές τιμές σε διαστήματα ενός δευτερολέπτου, δημιουργώντας ουσιαστικά το κινούμενο εφέ.
Για να το καταργήσετε, χρειάζεται μόνο να αλλάξετε αυτήν τη γραμμή κώδικα για το VBA για να αντιγράψετε τις τιμές στις στήλες βοηθού:
| 1 | Εύρος ("F" & RowNumber, "I" & RowNumber). Value = Range ("B" & RowNumber, "E" & RowNumber). Value |
Το πρώτο μέρος του κώδικα (Εύρος ("F" & RowNumber, "I" & RowNumber). Αξία) αρπάζει όλες τις στήλες βοηθού στον πίνακα δεδομένων (F: I) ενώ το δεύτερο μέρος της εξίσωσης (Εύρος ("B" & RowNumber, "E" & RowNumber). Αξία) είναι υπεύθυνος για την εισαγωγή των πραγματικών τιμών σε αυτές.
Με όλα αυτά κατά νου, το "ΦΑ" και "ΕΓΩ" οι τιμές χαρακτηρίζουν την πρώτη και την τελευταία στήλη βοηθού (στήλες F και I). Κατά τον ίδιο τρόπο, "ΣΙ" και "ΜΙ" αντιπροσωπεύουν την πρώτη και την τελευταία στήλες που περιέχουν τους πραγματικούς αριθμούς ΑΕΠ (στήλες Β και Ε).
Μόλις τα καταφέρετε όλα αυτά, κάντε κλικ στο εικονίδιο της δισκέτας για να αποθηκεύσετε τον κώδικα VBA και να κλείσετε τον επεξεργαστή.
Βήμα #4: Δημιουργήστε το κουμπί μακροεντολής.
Για να συνδέσετε τα δεδομένα του φύλλου εργασίας και τη νέα μακροεντολή, ρυθμίστε ένα κουμπί για την εκτέλεση του κώδικα VBA.
- μεταβείτε στο Προγραμματιστής αυτί.
- Κάντε κλικ στο «ΕισάγετεΚουμπί ”.
- Υπό "Έλεγχοι φόρμας,"Επιλέξτε"Κουμπί (Έλεγχος φόρμας).”
Κάντε κλικ εκεί που θέλετε να τοποθετήσετε το κουμπί (κατά προτίμηση κοντά στον τίτλο του γραφήματος). Σε εκείνο το σημείο, το Εκχώρηση μακροεντολής θα εμφανιστεί το παράθυρο διαλόγου. Επιλέξτε τη μακροεντολή VBA που μόλις δημιουργήσατε (Animated_Chart) και κάντε κλικ στο "ΕΝΤΑΞΕΙ.”
Ως τελική προσαρμογή, αλλάξτε το κείμενο κουμπιού (διπλό κλικ κείμενο κουμπιού και μετονομασία). Εάν είναι απαραίτητο, μετακινήστε το κουμπί στη θέση που θέλετε.
Τώρα, κάντε κλικ στο κουμπί και παρακολουθήστε πώς το VBA γεμίζει ομαλά το κενό διάγραμμα με τις πραγματικές τιμές-και η ομορφιά αυτής της μεθόδου είναι ότι μπορείτε να αλλάξετε τον υποκείμενο τύπο γραφήματος σε λίγα μόνο κλικ χωρίς να χρειαστεί να μεταβείτε ξανά σε όλα τα στεφάνια!
Έτσι γίνεται. Η εμψύχωση των γραφημάτων Excel μπορεί να είναι ένας πολύ καλός τρόπος για να δώσετε μια μοναδική προοπτική στα δεδομένα σας που διαφορετικά θα μπορούσατε να αγνοήσετε.
Προφανώς, μπορεί να χρειαστεί λίγος χρόνος για να κατανοήσουμε πραγματικά τη λογική πίσω από τον κώδικα VBA. Αλλά δεδομένου ότι ο ίδιος κώδικας μπορεί να επαναληφθεί επανειλημμένα για διαφορετικούς τύπους δεδομένων και γραφήματα, αξίζει τον κόπο να το δοκιμάσετε. Μόλις ξεπεράσετε τη σύντομη καμπύλη μάθησης, ο κόσμος είναι το στρείδι σας.
