Διάγραμμα στήλης μέσω VBA

Anonim

Πώς να δημιουργήσετε ένα γράφημα μέσω VBA στο Microsoft Excel

Σε αυτό το άρθρο, θα μάθουμε πώς να δημιουργούμε γράφημα μέσω VBA στο Microsoft Excel.

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

Έχουμε δεδομένα στο εύρος A1: F10, στα οποία η στήλη A περιέχει το όνομα του μαθητή, η στήλη Β Σημάδια 1, η στήλη Γ Σημάδια 2, η στήλη Δ Σημάδια 3, η στήλη Ε περιέχει το Συνολικό σκορ και η στήλη Φ περιέχει τον μέσο όρο των σημείων.

Ακολουθήστε τα παρακάτω βήματα και κωδικό:-

  • Εισαγάγετε ένα κουμπί εντολών από την καρτέλα Developer> Insert> Command Button 1.
  • Πατήστε το πλήκτρο Alt+F11 για να ανοίξετε τη σελίδα VBE για να γράψετε τη μακροεντολή.
  • Στη συνέχεια, μεταβείτε στην καρτέλα εισαγωγής και εισαγάγετε μια ενότητα.
  • Γράψτε τον παρακάτω κωδικό στη σελίδα.

Private Sub CommandButton1_Click ()

Εύρος ("A2: A10, F1: F10"). Επιλέξτε

ActiveSheet.Shapes.AddChart.Select

ActiveChart.SetSourceData Πηγή: = Εύρος ("" Sheet1 "! $ A $ 2: $ A $ 10," Sheet1 "! $ F $ 2: $ F $ 10")

ActiveChart.ChartType = xlColumnClustered

ActiveSheet.ChartObjects (1). Ενεργοποιήστε

ActiveSheet.ChartObjects (1). Κοπή

Φύλλα ("Φύλλο2"). Επιλέξτε

ActiveSheet.Paste

Φύλλα ("Φύλλο1"). Επιλέξτε

Εύρος ("F11"). Ενεργοποιήστε

Τέλος υπο

Επεξήγηση κώδικα:- Αρχικά, θα ορίσουμε το εύρος επιλογής για να εισαγάγουμε το γράφημα και μετά θα ορίσουμε την πηγή δεδομένων και τον τύπο γραφήματος. Πριν εκτελέσουμε μια ενέργεια στο γράφημα, πρέπει να το ενεργοποιήσουμε και, στη συνέχεια, επιλέγουμε τον προορισμό στον οποίο θέλουμε να επικολλήσουμε το γράφημα και μετά από αυτό πρέπει να επιστρέψουμε στο φύλλο 1.

  • Για να εκτελέσετε τη μακροεντολή, πατήστε το πλήκτρο F5.
  • Το γράφημα θα δημιουργηθεί στο φύλλο εργασίας του τετραδίου εργασίας 2.

Αυτός είναι ο τρόπος με τον οποίο μπορούμε να δημιουργήσουμε γράφημα μέσω VBA στο Microsoft Excel.