✅ Πώς να δημιουργήσετε και να εμφανίσετε ένα γράφημα σε ένα κελί

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

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

Βήματα:

1. Στη στήλη Α πληκτρολογήστε τις τιμές που θέλετε να εμφανίζονται, δηλαδή στο κελί Α1 εισαγάγετε την τιμή 10, στο κελί Α2 20 κ.λπ.

2. Στη στήλη Β1 εισάγετε τον ακόλουθο τύπο: = REPT («n», A1). Αυτός ο τύπος απλώς λέει στο Excel να επαναλάβει την τιμή που αποθηκεύεται μεταξύ "" με τον αριθμό στο κελί A1.

3. Αλλάξτε τη γραμματοσειρά σε "Wingdings".

4. Ανατρέξτε στο παράδειγμα 1 στο συνημμένο αρχείο Excel.

5. Εάν επιθυμείτε να μειώσετε το μήκος του γραφήματος ράβδων απλά διαιρέστε το "A1" στον παραπάνω τύπο κατά 10 ή με όποιον αριθμό έχει περισσότερο νόημα. Για παράδειγμα, ο τύπος θα μοιάζει με αυτό = REPT ("n", A1/10). Δείτε το παράδειγμα 2 στο συνημμένο αρχείο Excel.

Πρέπει να σημειωθεί ότι αλλάζοντας το "n" στον παραπάνω τύπο μπορείτε να εμφανίσετε διαφορετικές εικόνες. Για παράδειγμα, το κεφαλαίο "J" θα εμφανίζει ένα χαμογελαστό πρόσωπο ενώ το κεφαλαίο "L" θα εμφανίζει ένα λυπημένο πρόσωπο. Δείτε το παράδειγμα 3 στο συνημμένο αρχείο Excel.

Αντιμετώπιση αρνητικών αξιών

Οι παραπάνω τύποι λειτουργούν καλά όταν αντιμετωπίζετε θετικές τιμές. Ωστόσο, εάν η τιμή στη στήλη Α είναι αρνητική, το γράφημα της στήλης Β θα αλλάξει σε μια συμβολοσειρά που αποτελείται από έναν αριθμό διαφορετικών συμβόλων, χάνοντας έτσι το επιθυμητό αποτέλεσμα (Βλέπε παράδειγμα 4 στο συνημμένο υπολογιστικό φύλλο).

Ένας τρόπος για να ξεπεραστεί αυτός ο περιορισμός είναι μέσω μιας δήλωσης IF όπως:

= IF (A21 <0, REPT ("n", ABS (A21/10)), REPT ("n", A21/10))

Επεξήγηση του παραπάνω τύπου:

1. Ας υποθέσουμε ότι η τιμή που προσπαθείτε να εμφανίσετε σε ένα γράφημα ράβδων βρίσκεται στο κελί A21. Αυτή η τιμή είναι επίσης αρνητική.

2. Ο τύπος ξεκινά λέγοντας εάν η τιμή στο A21 είναι μικρότερη από 0, δηλαδή αρνητική, στη συνέχεια επαναλάβετε το "n" με την απόλυτη τιμή (ABS) που περιέχεται στο κελί A21 και στη συνέχεια διαιρέστε αυτόν τον αριθμό με 10. Χρησιμοποιώντας την απόλυτη τιμή είστε πείτε στο Excel να αγνοήσει το αρνητικό πρόσημο και να αντιμετωπίσετε τον αριθμό ως θετική τιμή.

3. Το επόμενο μέρος του τύπου λέει στο Excel τι πρέπει να κάνει εάν η τιμή είναι μεγαλύτερη από 0.

4. Ανατρέξτε στο παράδειγμα 4 στο συνημμένο αρχείο.

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

Το παρακάτω σεμινάριο θα περιγράψει πώς να δημιουργήσετε ένα γράφημα σε ένα κελί όπως αυτό που εμφανίζεται στον παραπάνω πίνακα κάτω από τη στήλη "Τάση".

Το γράφημα δημιουργείται χρησιμοποιώντας μια συνάρτηση που ονομάζεται "CellChart". Θα το εισαγάγατε στο Excel όπως οποιαδήποτε άλλη τυπική συνάρτηση, δηλαδή SUM, AVERAGE ή VLOOKUP κ.λπ. Αυτή η λειτουργία ονομάζεται "Συνάρτηση καθορισμένη από το χρήστη" και δεν είναι μια τυπική συνάρτηση διαθέσιμη στο Microsoft Excel. Πρέπει να δημιουργηθεί από τον χρήστη χρησιμοποιώντας VBA.

Όταν εισάγεται στο Excel, η συνάρτηση CellChart μοιάζει με αυτό:

Με μια πιο προσεκτική ματιά στη συνάρτηση CellChart, το εύρος για το γράφημα ορίζεται στο πρώτο μέρος της συνάρτησης, C3: F3 στο παραπάνω παράδειγμα. Στη συνέχεια ορίζεται το χρώμα του γραφήματος, 203 χρησιμοποιώντας το παραπάνω παράδειγμα.

Τώρα για τα πράγματα VBA

1. Εισαγάγετε το παράθυρο του έργου VBA κάνοντας δεξί κλικ σε ένα όνομα φύλλου και επιλέγοντας "Προβολή κώδικα" ή επιλέγοντας "ALT, F11".

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

3. Αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στη νέα μονάδα που μόλις δημιουργήσατε:

'Δημιουργεί μια νέα λειτουργία που ονομάζεται Cell Chart Function CellChart (Plots As Range, Color As Long) As String' Ορίζει τις μεταβλητές που θα χρησιμοποιηθούν αργότερα στον κώδικα Const cMargin = 2 Dim rng As Range, arr () As Variant, i As Long, j As Long, k As Long Dim dblMin As Double, dblMax As Double, shp As Shape 'Τα παρακάτω υπολογίζουν τα γραφήματα που θα χρησιμοποιηθούν για το γράφημα Ορισμός rng = Application.Caller ShapeDelete rng For i = 1 To Plots.Count Εάν j = 0 Τότε j = i ElseIf Plots (, j)> Plots (, i) Τότε j = i Τέλος Αν k = 0 Τότε k = i ElseIf Plots (, k) 
 0 Στη συνέχεια .Line.ForeColor.RGB = Χρώμα άλλο .Line.ForeColor.SchemeColor = -Color End With End With CellChart = "" End Function Sub ShapeDelete (rngSelect As Range) 'Ορίζει τις μεταβλητές που θα χρησιμοποιηθούν αργότερα στον κώδικα Dim rng As Range, shp As Shape, blnDelete As Boolean For Every shp In rngSelect.Worksheet.Shapes blnDelete = False Set rng = Intersect (Range (shp.TopLeftCell, shp.BottomRightCell), rngSelect) If Not rng is Nothing then If rng .Address = Range (shp.TopLeftCell, shp.BottomRightCell) .Address Στη συνέχεια blnDelete = True End If If blnDelete Then shp.Delete Next End Sub

4. Κάντε κλικ στο κουμπί αποθήκευσης.

5. Κάντε κλικ στο μικρό εικονίδιο του Excel επάνω δεξιά κάτω από το μενού "Αρχείο" για να βγείτε από το παράθυρο του έργου VBA και να επιστρέψετε στο Excel