Μακροεντολή για την εξαγωγή δεδομένων από ένα γράφημα στο Excel

Για μια έκδοση του Microsoft Excel 2000 αυτού του άρθρου, ανατρέξτε στην ενότητα
213814 .
Για ένα Microsoft Excel 98 ή παλαιότερη έκδοση αυτού του άρθρου, ανατρέξτε στην ενότητα
137016 .

Σύνοψη

Στο Microsoft Excel, μπορείτε να ανακτήσετε δεδομένα από ένα γράφημα, ακόμη και όταν τα δεδομένα βρίσκονται σε ένα εξωτερικό φύλλο εργασίας ή βιβλίο εργασίας. Αυτό είναι χρήσιμο σε περιπτώσεις όπου το γράφημα δημιουργήθηκε από, ή που συνδέονται με ένα άλλο αρχείο που δεν είναι διαθέσιμη ή έχει καταστραφεί με κάποιον τρόπο. Όταν τα δεδομένα προέλευσης ενός γραφήματος χαθούν, τα δεδομένα μπορούν ακόμα να ανακτηθούν από το γράφημα, χρησιμοποιώντας το Microsoft Visual Basic για εφαρμογές μακροεντολή.

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

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


Το ακόλουθο δείγμα μακροεντολής τοποθετεί τα δεδομένα προέλευσης του γραφήματος σε ένα φύλλο εργασίας που ονομάζεται "ChartData" του ενεργού βιβλίου εργασίας, αρχή στην πρώτη στήλη και πρώτης γραμμής.
  1. Πληκτρολογήστε τον ακόλουθο κώδικα μακροεντολής σε ένα φύλλο λειτουργικής μονάδας:
    Sub GetChartValues()   Dim NumberOfRows As Integer
    Dim X As Object
    Counter = 2

    ' Calculate the number of rows of data.
    NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)

    Worksheets("ChartData").Cells(1, 1) = "X Values"

    ' Write x-axis values to worksheet.
    With Worksheets("ChartData")
    .Range(.Cells(2, 1), _
    .Cells(NumberOfRows + 1, 1)) = _
    Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
    End With

    ' Loop through all series in the chart and write their values to
    ' the worksheet.
    For Each X In ActiveChart.SeriesCollection
    Worksheets("ChartData").Cells(1, Counter) = X.Name

    With Worksheets("ChartData")
    .Range(.Cells(2, Counter), _
    .Cells(NumberOfRows + 1, Counter)) = _
    Application.Transpose(X.Values)
    End With

    Counter = Counter + 1
    Next

    End Sub

  2. Εισαγάγετε ένα νέο φύλλο εργασίας στο βιβλίο εργασίας και μετονομάστε το σε "ChartData" (χωρίς τα εισαγωγικά).
  3. Επιλέξτε το γράφημα από το οποίο θέλετε να εξαγάγετε τις υποκείμενες τιμές δεδομένων.

    ΣΗΜΕΊΩΣΗ: το γράφημα είτε μπορούν να ενσωματωθούν, σε ένα φύλλο εργασίας ή σε ένα ξεχωριστό φύλλο γραφήματος.
  4. Εκτελέστε τη μακροεντολή GetChartValues .

    Τα δεδομένα από το γράφημα τοποθετείται στο φύλλο "ChartData".

Τα βήματα για να συνδέσετε το γράφημα με τα δεδομένα που ανακτήθηκαν

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

    ΣΗΜΕΊΩΣΗ: το όνομα του φύλλου μπορεί να ακολουθήστε το όνομα βιβλίου εργασίας, το οποίο περικλείεται σε αγκύλες, όπως "[Βιβλίο1]", και να προηγείται του θαυμαστικού "!" (ή απόστροφο και θαυμαστικό "'!") που επισημαίνει την έναρξη μιας αναφοράς κελιού. Το όνομα του φύλλου περιλαμβάνει μόνο τους χαρακτήρες μεταξύ του συμβόλου κλειστό αγκύλη "]" και το θαυμαστικό (ή απόστροφο και θαυμαστικό). Αφήστε εκτός τυχόν απόστροφο αν είναι αμέσως πριν από το θαυμαστικό, επειδή μια απόστροφο δεν μπορεί να είναι ο τελευταίος χαρακτήρας σε ένα όνομα φύλλου.
  2. Κάντε διπλό κλικ στην καρτέλα του νέου φύλλου που ονομάζεται ChartData.
  3. Πληκτρολογήστε το όνομα του αρχικού φύλλου από το βήμα 1 για την επισήμανση "ChartData" και πιέστε το πλήκτρο ENTER. Αυτό το όνομα πρέπει να είναι το ίδιο με το όνομα του φύλλου από το βιβλίο εργασίας είναι κατεστραμμένο ή λείπει.
  4. Εάν δεν έχετε αποθηκεύσει αυτό το αρχείο με το φύλλο δεδομένων και του γραφήματος, αποθηκεύστε το αρχείο.
  5. Στο Excel 2003 ή το Excel 2002, κάντε κλικ στην εντολή " συνδέσεις " από το μενού Επεξεργασία και, στη συνέχεια, κάντε κλικ στο κουμπί Αλλαγή αρχείου προέλευσης.

    Στο Excel 2007, κάντε κλικ στην καρτέλα " δεδομένα ", κάντε κλικ στην επιλογή Επεξεργασία συνδέσεων
    στην ομάδα Connenctions και, στη συνέχεια, κάντε κλικ στο κουμπί
    Αλλαγή αρχείου προέλευσης.
  6. Στο πλαίσιο Αρχείο προέλευσης , επιλέξτε τη σύνδεση για να αλλάξετε και, στη συνέχεια, κάντε κλικ στην επιλογή Αλλαγή προέλευσης.
  7. Στο πλαίσιο διαλόγου " Αλλαγή συνδέσεων ", επιλέξτε ένα νέο αρχείο με τα δεδομένα που ανακτήθηκαν και το γράφημα και, στη συνέχεια, κάντε κλικ στο κουμπί OK.
  8. Εάν λάβετε το ακόλουθο μήνυμα λάθους
    Ο τύπος περιέχει μια μη έγκυρη εξωτερική αναφορά σε ένα φύλλο εργασίας.
    είναι πιθανό ότι το όνομα του φύλλου που πληκτρολογήσατε στο βήμα 3 δεν είναι το ίδιο με το πρωτότυπο. Επιστρέψτε στο βήμα 1.
  9. Το πλαίσιο Αρχείο προέλευσης τώρα μπορεί να είναι κενό. Αυτό σημαίνει ότι όλες οι συνδέσεις οδηγούν το ενεργό αρχείο αντί για το αρχείο λείπει ή είναι κατεστραμμένο. Κάντε κλικ στο κουμπί Κλείσιμο.
Το γράφημα αναφέρεται τώρα και αλληλεπιδρά με τα δεδομένα που ανακτήθηκαν από το μετονομασμένο φύλλο του ενεργού βιβλίου εργασίας.
Ιδιότητες

Αναγνωριστικό άρθρου: 300643 - Τελευταία αναθεώρηση: 21 Ιαν 2017 - Αναθεώρηση: 1

Σχόλια