Πώς μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να προσθέσετε ετικέτες σε σημεία δεδομένων σε ένα γράφημα διασποράς xy ή σε ένα γράφημα φυσαλίδων στο Excel

Σύνοψη

Στο Microsoft Excel, δεν υπάρχει ενσωματωμένη εντολή που να επισυνάπτει αυτόματα ετικέτες κειμένου σε σημεία δεδομένων σε ένα γράφημα xy (διασποράς) ή φυσαλίδας. Ωστόσο, μπορείτε να δημιουργήσετε μια μακροεντολή microsoft Visual Basic for Applications με αυτόν τον τρόπο. Αυτό το άρθρο περιέχει ένα δείγμα μακροεντολής που εκτελεί αυτή την εργασία σε ένα γράφημα διασποράς XY. Ωστόσο, ο ίδιος κώδικας μπορεί να χρησιμοποιηθεί για ένα γράφημα φυσαλίδων.

Περισσότερες πληροφορίες

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

• Η πρώτη στήλη περιέχει τις ετικέτες δεδομένων.

• Η δεύτερη στήλη περιέχει τις τιμές x για το γράφημα xy (διασποράς).

• Η τρίτη και η επόμενη στήλη περιέχουν τις τιμές y για το γράφημα xy (διασποράς).

ΣΗΜΕΙΩΣΗ: Παρόλο που το παράδειγμα που παρέχεται περιέχει μόνο μία στήλη δεδομένων για τις τιμές y, μπορείτε να χρησιμοποιήσετε περισσότερες από μία σειρές δεδομένων.

Για να χρησιμοποιήσετε τις μακροεντολές σε αυτό το άρθρο, δημιουργήστε ένα γράφημα χρησιμοποιώντας τα ακόλουθα δεδομένα: A1: Ετικέτες B1: X Τιμές C1: Τιμές Y A2: DataPoint1 B2: 12 C2: 5 A3: DataPoint2 B3: 9 C3: 7 A4: DataPoint3 B4: 5 C4: 3 A5: DataPoint4 B5: 4 C5: 8 A6: DataPoint5 B6: 1 C6: 4 ΣΗΜΕΙΩΣΗ: Ο πίνακας δεν πρέπει να περιέχει κενές στήλες και η στήλη που περιέχει τις ετικέτες δεδομένων δεν πρέπει να διαχωρίζεται από τη στήλη που περιέχει τις τιμές x. Οι ετικέτες και οι τιμές πρέπει να έχουν ακριβώς τη μορφή που περιγράφεται σε αυτό το άρθρο. (Το επάνω αριστερό κελί δεν χρειάζεται να είναι το κελί A1.)

Για να επισυνάψετε ετικέτες κειμένου σε σημεία δεδομένων σε ένα γράφημα xy (διασποράς), ακολουθήστε τα παρακάτω βήματα:

1. Στο φύλλο εργασίας που περιέχει το δείγμα δεδομένων, επιλέξτε την περιοχή κελιών B1:C6.

2. Στο Microsoft Office Excel 2003 και σε παλαιότερες εκδόσεις του Excel, ακολουθήστε τα παρακάτω βήματα:

   1. Κάντε κλικ στην επιλογή Γράφημα στο μενού Εισαγωγή.

   2. Στο παράθυρο διαλόγου Οδηγός γραφήματος - Βήμα 1 από 4 - Τύπος γραφήματος, κάντε κλικ στην καρτέλα Standard τύπων. Στην περιοχή Τύπος γραφήματος, κάντε κλικ στην επιλογή XY (διασποράς) και, στη συνέχεια, κάντε κλικ στο κουμπί Επόμενο.

   3. Στο παράθυρο διαλόγου Οδηγός γραφήματος - Βήμα 2 από 4 - Δεδομένα προέλευσης γραφήματος , κάντε κλικ στην καρτέλα Περιοχή δεδομένων. Στην περιοχή Σειρά σε, κάντε κλικ στην επιλογή Στήλες και, στη συνέχεια, κάντε κλικ στο κουμπί Επόμενο.

   4. Στο παράθυρο διαλόγου Οδηγός γραφήματος - Βήμα 3 από 4 - Επιλογές γραφήματος , κάντε κλικ στο κουμπί Επόμενο.

   5. Στο παράθυρο διαλόγου Οδηγός γραφήματος - Βήμα 4 από 4 -Θέση γραφήματος , κάντε κλικ στην επιλογή Ως νέο φύλλο και, στη συνέχεια, κάντε κλικ στο κουμπί Τέλος.

   Στο Microsoft Office Excel 2007, ακολουθήστε τα παρακάτω βήματα:

   1. Κάντε κλικ στην καρτέλα Εισαγωγή , κάντε κλικ στην επιλογή Διασπορά στην ομάδα Γραφήματα και, στη συνέχεια, επιλέξτε έναν τύπο.

   2. Στην καρτέλα Σχεδίαση , κάντε κλικ στην επιλογή Μετακίνηση γραφήματος στην ομάδα Θέση , κάντε κλικ στην επιλογή Δημιουργία φύλλου και, στη συνέχεια, κάντε κλικ στο κουμπί OK.

3. Πατήστε το συνδυασμό πλήκτρων ALT+F11 για να ξεκινήσετε την Επεξεργασία της Visual Basic.

4. Στο μενού Εισαγωγή, κάντε κλικ στην επιλογή Λειτουργική μονάδα.

5. Πληκτρολογήστε το ακόλουθο δείγμα κώδικα στο φύλλο λειτουργικής μονάδας:

   Sub AttachLabelsToPoints()
   
      'Dimension variables.
      Dim Counter As Integer, ChartName As String, xVals As String
   
      ' Disable screen updating while the subroutine is run.
      Application.ScreenUpdating = False
   
      'Store the formula for the first series in "xVals".
      xVals = ActiveChart.SeriesCollection(1).Formula
   
      'Extract the range for the data from xVals.
      xVals = Mid(xVals, InStr(InStr(xVals, ","), xVals, _
         Mid(Left(xVals, InStr(xVals, "!") - 1), 9)))
      xVals = Left(xVals, InStr(InStr(xVals, "!"), xVals, ",") - 1)
      Do While Left(xVals, 1) = ","
         xVals = Mid(xVals, 2)
      Loop
   
      'Attach a label to each data point in the chart.
      For Counter = 1 To Range(xVals).Cells.Count
        ActiveChart.SeriesCollection(1).Points(Counter).HasDataLabel = _
            True
         ActiveChart.SeriesCollection(1).Points(Counter).DataLabel.Text = _
            Range(xVals).Cells(Counter, 1).Offset(0, -1).Value
      Next Counter
   
   End Sub

6. Πατήστε το συνδυασμό πλήκτρων ALT+Q για να επιστρέψετε στο Excel.

7. Μετάβαση στο φύλλο γραφήματος.

8. Στο Excel 2003 και σε παλαιότερες εκδόσεις του Excel, τοποθετήστε το δείκτη του ποντικιού στην επιλογή Μακροεντολή στο μενού Εργαλεία και, στη συνέχεια, κάντε κλικ στην επιλογή Μακροεντολές. Κάντε κλικ στην επιλογή ΕπισύναψηLabelsToPoints και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση για να εκτελέσετε τη μακροεντολή.
   
   Στο Excel 2007, κάντε κλικ στην καρτέλα Προγραμματιστής , κάντε κλικ στην επιλογή Μακροεντολή στην ομάδα Κώδικας , επιλέξτε ΕπισύναψηLabelsToPoints και, στη συνέχεια, κάντε κλικ στην επιλογή Εκτέλεση.

Η μακροεντολή επισυνάπτει τις ετικέτες στα κελιά A2:A6 στα σημεία δεδομένων του γραφήματος.