✅ Επισημάνετε σημεία δεδομένων στο Excel με ένα κλικ ενός κουμπιού

Πίνακας περιεχομένων

Επισημάνετε σημεία δεδομένων στο γράφημα γραμμής Excel

Παρακολουθήστε βίντεο - Επισημάνετε σημεία δεδομένων στο Excel με ένα κλικ ενός κουμπιού

Το διάγραμμα είναι δύσκολο να διαβαστεί εάν έχει σχεδιαστεί πολλά δεδομένα. Ενώ είναι καλή πρακτική να σχεδιάζετε μόνο τα σχετικά δεδομένα, υπάρχουν καταστάσεις όπου πρέπει να εμφανίσετε πολλά σημεία δεδομένων σε ένα μόνο γράφημα.

Εάν έχετε κολλήσει σε μια τέτοια κατάσταση, είναι καλή ιδέα να έχετε ένα δυναμικό γράφημα που να αναδεικνύει την επιλεγμένη σειρά, ώστε να είναι ευκολότερο να διαβάσετε και να συγκρίνετε. Κάτι όπως φαίνεται παρακάτω:

Στο παραπάνω διάγραμμα, όταν κάνετε κλικ στο κουμπί, η σειρά του επιλεγμένου έτους επισημαίνεται με το περίγραμμα κόκκινου δείκτη και τις ετικέτες δεδομένων.

Ακολουθήστε… Κατεβάστε το γράφημα

Επισημάνετε σημεία δεδομένων στο γράφημα γραμμής Excel

Δείτε πώς μπορείτε να δημιουργήσετε αυτόν τον τύπο γραφημάτων:

Βρείτε τα δεδομένα στη θέση τους. Για αυτό το γράφημα, έχω αριθμούς αύξησης εσόδων για κάθε τρίμηνο κατά την περίοδο 2012-15.
Επιλέξτε ολόκληρα τα δεδομένα, μεταβείτε στην επιλογή Εισαγωγή -> Διαγράμματα -> Γραμμή με δείκτες. Αυτό θα εισάγει ένα γράφημα γραμμών με τρεις διαφορετικές γραμμές για κάθε έτος.
Μεταβείτε στην επιλογή Εισαγωγή -> Εικονογραφήσεις -> Σχήματα -> Στρογγυλεμένο ορθογώνιο. Κάντε κλικ οπουδήποτε στο φύλλο εργασίας και θα εισαγάγει ένα στρογγυλεμένο ορθογώνιο στο φύλλο εργασίας.
Τοποθετήστε 2 ακόμη στρογγυλεμένα ορθογώνια και τοποθετήστε τα πάνω από το γράφημα. Εισαγάγετε το όνομα της σειράς (έτη) στα σχήματα όπως φαίνεται παρακάτω:
Επιλέξτε το ορθογώνιο για το 2013, μεταβείτε στο Όνομα πλαισίου και εισαγάγετε το 2013. Ομοίως, κάντε το ίδιο και για τα πλαίσια 2014 και 2015 (Το πλαίσιο ονομάτων βρίσκεται στα αριστερά της γραμμής τύπων).
Στο κελί F2, εισαγάγετε το 2013 (μπορείτε να εισάγετε οποιοδήποτε έτος από τα δεδομένα).
Στο κελί F3, εισαγάγετε τον ακόλουθο συνδυασμό συναρτήσεων INDEX, ROWS και MATCH (και σύρετέ το για τα κελιά F3: F6)
```
= INDEX ($ B $ 3: $ D $ 6, ROWS ($ E $ 3: E3), MATCH ($ F $ 2, $ B $ 2: $ D $ 2,0))
```
Επιλέξτε κελιά F3: F6 και αντιγράψτε το (πατήστε Control + C), επιλέξτε το γράφημα και επικολλήστε (control + v). Αυτό θα δημιουργούσε δύο γραμμές για το ίδιο έτος (κατά την αντιγραφή, παρατηρήστε ότι το χρώμα γραμμής του επιλεγμένου έτους αλλάζει).
Επιλέξτε τη γραμμή για το έτος (για το οποίο αντιγράψατε τα δεδομένα), κάντε δεξί κλικ και επιλέξτε Μορφοποίηση σειρών δεδομένων. Στη σειρά δεδομένων μορφοποίησης:
- Αλλαγή χρώματος γραμμής σε Χωρίς γραμμή
- Στις Επιλογές δείκτη, κάντε τις ακόλουθες αλλαγές
  - Ενσωματωμένος τύπος: Στρογγυλό σχήμα
  - Ενσωματωμένο μέγεθος: 15
- Αλλάξτε την ένδειξη Συμπλήρωση σε Χωρίς γέμισμα
- Αλλαγή χρώματος περιγράμματος δείκτη (έχω χρησιμοποιήσει κόκκινο χρώμα), πλάτους και τύπου παύλας
- Κάντε δεξί κλικ σε οποιονδήποτε από τους στρογγυλούς δείκτες και επιλέξτε Προσθήκη ετικετών δεδομένων. Διαμορφώστε το για εμφάνιση ποσοστών

Αν έχετε ακολουθήσει όλα τα παραπάνω βήματα, θα έχετε κάτι όπως φαίνεται παρακάτω:

Τώρα για να κάνουμε τα κουμπιά λειτουργικά, θα χρησιμοποιήσουμε έναν απλό κώδικα VBA.

Ο κωδικός VBA

Θα χρησιμοποιήσουμε τον κώδικα VBA για να κάνουμε 2 πράγματα:

Αλλάξτε την τιμή του έτους στο κελί F3 όταν κάνετε κλικ στο σχήμα και
Αλλάξτε το χρώμα του επιλεγμένου σχήματος

Απλώς αντιγράψτε τον ακόλουθο κώδικα στο VB Editor.

Sub SelectYear2013 () Range ("F2"). Value = 2013 ActiveSheet.Shapes ("2013"). Fill.ForeColor.RGB = RGB (176, 196, 222) ActiveSheet.Shapes ("2014"). Fill.ForeColor RGB = RGB (255, 255, 255) ActiveSheet.Shapes ("2015"). Fill.ForeColor.RGB = RGB (255, 255, 255) Τέλος υπο

Sub SelectYear2014 () Range ("F2"). Value = 2014 ActiveSheet.Shapes ("2013"). Fill.ForeColor.RGB = RGB (255, 255, 255) ActiveSheet.Shapes ("2014"). Fill.ForeColor RGB = RGB (176, 196, 222) ActiveSheet.Shapes ("2015"). Fill.ForeColor.RGB = RGB (255, 255, 255) End Sub SelectYear2015 () Range ("F2"). Value = 2015 ActiveSheet .Σχήματα ("2013"). Fill.ForeColor.RGB = RGB (255, 255, 255) ActiveSheet.Shapes ("2014"). Fill.ForeColor.RGB = RGB (255, 255, 255) ActiveSheet.Shapes (" 2015 "). Fill.ForeColor.RGB = RGB (176, 196, 222) End Sub

Για να αντιγράψετε αυτόν τον κωδικό:

Πατήστε Alt + F11. Θα ανοίξει το πρόγραμμα επεξεργασίας VBE.
Μεταβείτε στην επιλογή Εισαγωγή και κάντε κλικ στην ενότητα. Αυτό θα εισαγάγει μια ενότητα.
Κάντε διπλό κλικ στο εικονίδιο της μονάδας και επικολλήστε τον κώδικα στην περιοχή κωδικού στα δεξιά.

Εκχώρηση μακροεντολών σε κουμπιά

Μόλις έχετε τον κωδικό VBA στη θέση του, πρέπει να αντιστοιχίσετε μακροεντολές στα κουμπιά/σχήματα. Για να το κάνω αυτό:

Κάντε δεξί κλικ στο σχήμα και επιλέξτε Εκχώρηση μακροεντολής.
Στο παράθυρο διαλόγου Αντιστοίχιση μακροεντολής, επιλέξτε τη μακροεντολή και κάντε κλικ στο κουμπί OK.