Πίνακας περιεχομένων
Σε αυτό το άρθρο, θα σας δείξω πώς μπορείτε να δημιουργήσετε ένα δυναμικό διάγραμμα στο Excel χρησιμοποιώντας VBA .
Κατεβάστε το βιβλίο ασκήσεων
Κατεβάστε αυτό το τετράδιο ασκήσεων για να εξασκηθείτε ενώ διαβάζετε αυτό το άρθρο.
Δυναμικό διάγραμμα στο Excel.xlsm5 εύκολα βήματα για τη δημιουργία ενός δυναμικού διαγράμματος χρησιμοποιώντας το Excel VBA
Εδώ έχουμε ένα φύλλο εργασίας που ονομάζεται Φύλλο1 που περιέχει έναν πίνακα που περιέχει τα έσοδα και τα κέρδη μιας εταιρείας για μερικά χρόνια.
Στόχος μας σήμερα είναι να δημιουργήσουμε ένα δυναμικό διάγραμμα από αυτόν τον πίνακα χρησιμοποιώντας το Excel VBA .
⧪ Βήμα 1: Άνοιγμα του παραθύρου της Visual Basic
Τύπος ALT+F11 στο πληκτρολόγιό σας για να ανοίξετε το Visual Basic παράθυρο.
⧪ Βήμα 2: Εισαγωγή νέας ενότητας
Πηγαίνετε στο Εισαγωγή> Ενότητα στη γραμμή εργαλείων. Κάντε κλικ στο Ενότητα Μια νέα ενότητα που ονομάζεται Ενότητα1 θα εισαχθεί.
⧪ Βήμα 3: Τοποθέτηση του κώδικα VBA
Αυτό είναι το πιο σημαντικό βήμα. VBA Κώδικας στην ενότητα.
⧭ Κώδικας VBA:
Sub Create_Dynamic_Chart() Application.ScreenUpdating = False With ActiveSheet.Shapes(Application.Caller).Fill.ForeColor If .Brightness = 0 Then .Brightness = -0.150000006 Else .Brightness = 0 End If End With Dim Sequence() As String Desired_Shapes = Array("Rounded Rectangle 1", "Rounded Rectangle 2", "Rounded Rectangle 3") For i = LBound(Desired_Shapes) ToUBound(Desired_Shapes) With ActiveSheet.Shapes(Desired_Shapes(i)) If .Fill.ForeColor.Brightness = -0.150000006 Then Sequence(UBound(Sequence)) = .TextFrame2.TextRange.Characters.Text ReDim Preserve Sequence(UBound(Series) + 1) End If End With Next i If UBound(Sequence)> 0 Then ReDim Preserve Sequence(UBound(Sequence) - 1)Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter Field:=1 Worksheets("Sheet1").ListObjects("Table1").Range.AutoFilter _ Field:=1, Criteria1:=Sequence, Operator:=xlFilterValues Application.ScreenUpdating = True End Sub 
⧪ Βήμα 4: Αποθήκευση του βιβλίου εργασίας σε μορφή XLSM
Στη συνέχεια, επιστρέψτε στο βιβλίο εργασίας και αποθηκεύστε το ως Βιβλίο εργασίας με δυνατότητα μακροεντολών του Excel .
⧪ Βήμα 5: Τελική έξοδος
Εκτελέστε τον κώδικα από το Εκτέλεση Sub / UserForm στη γραμμή εργαλείων.
Θα βρείτε ένα δυναμικό διάγραμμα που δημιουργήθηκε με βάση τον πίνακα στο Φύλλο2 του φύλλου εργασίας.
Πράγματα που πρέπει να θυμάστε
Ένας πίνακας είναι ο καλύτερος τρόπος για να δημιουργήσετε ένα δυναμικό διάγραμμα. Επειδή αν προσθέσετε ή αφαιρέσετε ένα στοιχείο από τον πίνακα, ο πίνακας θα προσαρμοστεί αυτόματα, το ίδιο και το διάγραμμα. Αλλά υπάρχουν και άλλοι τρόποι για να το πετύχετε αυτό, όπως η χρήση ενός Ονοματοδοτημένο εύρος .
