Note: The other languages of the website are Google-translated. Back to English

Πώς να διατηρείτε πάντα ένα γράφημα σε προβολή κατά την κύλιση στο Excel;

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

doc διατηρήστε το γράφημα σε προβολή 1
βέλος εγγράφου προς τα κάτω
doc διατηρήστε το γράφημα σε προβολή 2

Διατηρείτε πάντα ένα γράφημα σε προβολή


βέλος μπλε δεξιά φούσκα Διατηρείτε πάντα ένα γράφημα σε προβολή

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

1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να διατηρήσετε ορατό το γράφημα και κάντε κλικ στο Προβολή κωδικού σχηματίστε το μενού περιβάλλοντος. Δείτε το στιγμιότυπο οθόνης:
doc διατηρήστε το γράφημα σε προβολή 3

2. Στο σκάσιμο Microsoft Visual Basic για εφαρμογές παράθυρο, επικολλήστε τον παρακάτω κώδικα στο κενό σενάριο.

VBA: Διατηρήστε πάντα το διάγραμμα

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'UpdatebyExtendoffice20161111
    Dim CPos As Double
    Application.ScreenUpdating = False
    CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
    ActiveSheet.ChartObjects("Chart 2").Activate
    ActiveSheet.Shapes("Chart 2").Top = CPos
    ActiveWindow.Visible = False
    Application.ScreenUpdating = True
End Sub

doc διατηρήστε το γράφημα σε προβολή 5

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

:

(1) Στον κώδικα VBA, το Διάγραμμα 2 είναι το όνομα γραφήματος που θέλετε να έχετε υπόψη, μπορείτε να το αλλάξετε όπως χρειάζεστε.

(2) Αυτό το VBA δεν μπορεί πάντα να παρακολουθεί μια ομάδα γραφημάτων.


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (15)
Βαθμολογήθηκε το 4.75 από το 5 · αξιολογήσεις 2
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν καλό, αλλά μακάρι να υπήρχε τρόπος να κινείται απλώς με τον τροχό κύλισης, όπως οι γραμμές επικεφαλίδας. Επίσης αν θέλω να επιλέξω ένα κελί χρειάζονται δύο κλικ. Το πρώτο κλικ μετακινεί το γράφημα αλλά επιλέγει επίσης το γράφημα, επομένως πρέπει να κάνω ξανά κλικ για να επιλέξω το κελί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πρόσθεσα το "activecell.select" στην τελευταία γραμμή αυτού του κώδικα και διόρθωσε το πρόβλημα με το διπλό κλικ. Θα επιλέξει αυτόματα το τελευταίο ενεργό κελί, το οποίο θα είναι αυτό στο οποίο κάνατε κλικ για να μετακινήσετε το γράφημα. Ελπίζω ότι αυτό βοηθά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ΑΥΤΟ ΧΡΕΙΑΖΟΜΑΙ! ΧΡΥΣΑΦΕΝΙΟΣ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτή η μακροεντολή έκανε ακριβώς αυτό που ήθελα. Ωστόσο, δημιούργησε ένα άλλο πρόβλημα που αναρωτήθηκα αν θα μπορούσατε να έχετε μια λύση.

Ενώ αυτή η μακροεντολή είναι ενεργή, δεν μπορώ να επιλέξω κελιά για άλλους σκοπούς, όπως τη μορφοποίηση ή τη συγχώνευσή τους. Κάντε κλικ και σύρετε, Shift ή ctrl για να επιλέξετε μια ομάδα κελιών. Μπορώ να επιλέξω μόνο το ένα κελί στο οποίο έκανα κλικ. Συχνά θέλω να αλλάξω τη μορφοποίηση (φόντο, να συμπληρώσω έναν τύπο κ.λπ.) Ο μόνος τρόπος με τον οποίο μπόρεσα να το κάνω αυτό είναι να διαγράψω τη μακροεντολή, να αποθηκεύσω, να κάνω τις αλλαγές μορφοποίησης, να επικολλήσω ξανά τη μακροεντολή και να την αποθηκεύσω.

Υπάρχει πιο απλός τρόπος να γίνει αυτό; Ισως:

1. (προτιμάται) Ένα απλό πάτημα πλήκτρων που θα απενεργοποιούσε προσωρινά τη μακροεντολή και στη συνέχεια θα την ενεργοποιούσε ξανά.

2. Κάποιος κώδικας προστέθηκε στη μακροεντολή για να επιτρέπεται η επιλογή μιας ομάδας κελιών.

Dennis
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει παρόμοιος τύπος που μπορεί να κατασκευαστεί για τα Φύλλα Google;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να περιορίσετε το ύψος στο οποίο θα μετακινηθεί το γράφημα; Δεν θέλω να επικολληθεί πάνω από τη σειρά 8
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Hola muchas gracias por el código, utilizando este codigo ¿Hay alguna manera de limitar qué tan alto en la hoja se reubicará el gráfico; por ejemplo, no quiero que se coloque encima de la fila 9. Ayuda por favor.
Βαθμολογήθηκε το 5 από το 5
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
μπορώ να χρησιμοποιήσω το Kutools για να χρησιμοποιήσω αυτόματα αυτό το VBA για τα γραφήματα μου;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λυπούμαστε, Wangnuli, το Kutools δεν το έχει υποστηρίξει μέχρι στιγμής.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μπορεί κάποιος να βοηθήσει. όταν ακολουθώ αυτά τα βήματα


Ιδιωτικό δευτερεύον φύλλο εργασίας_SelectionChange(Στόχος ByVal ως εύρος)
'ΕνημέρωσηExtendoffice20161111
Dim Cpos As Double
Application.ScreenUpdating = False
CPos = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.ChartObjects("Διάγραμμα 2").Ενεργοποίηση
ActiveSheet.Shapes("Διάγραμμα 2").Top = CPos
ActiveWindow.Visible = False
Application.ScreenUpdating = True
Sub End


παίρνω το εξής λάθος

Σφάλμα χρόνου εκτέλεσης '-2147024809 (80070057)':
Το στοιχείο με το καθορισμένο όνομα δεν βρέθηκε

όταν κάνω εντοπισμό σφαλμάτων
ActiveSheet.ChartObjects("Διάγραμμα 2").Ενεργοποίηση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Χρήστο, πρέπει να αλλάξεις το όνομα του γραφήματος "Διάγραμμα 2" στο πραγματικό όνομα του γραφήματος στο σενάριο. Μπορείτε να κάνετε κλικ στο γράφημα και να δείτε το όνομά του στο πλαίσιο ονόματος. Δείτε στιγμιότυπο οθόνης:
https://www.extendoffice.com/images/stories/comments/sun-comment/do_chart_name.png
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ναι ευχαριστώ. αφού έκανα την ερώτηση κατάλαβα ότι το όνομα του διαγράμματος μου ήταν λάθος
ευχαριστώ

ps.
μήπως ξέρετε πώς μπορώ να κάνω το γράφημα να εμφανίζεται ως κύλιση χωρίς να κάνω κλικ στο σημείο που πρέπει να ακολουθήσει
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αντιμετώπισα πρόβλημα με την κατάργηση της επιλογής του κελιού και χρειαζόμουν δύο γραφήματα, οπότε έκανα κάποιες αλλαγές και φαίνεται να λειτουργεί τώρα.
Για να το χρησιμοποιήσετε, βάλτε το σωστό όνομα γραφήματος.
*Σημείωση: Αυτό είναι για δύο γραφήματα


Ιδιωτικό δευτερεύον φύλλο εργασίας_selectionchange(ByVal target As Range)
Θαμπή θέση γραφήματος ως διπλή

γράφημα = ActiveWindow.ScrollRow * ActiveCell.RowHeight
ActiveSheet.Shapes ("Διάγραμμα 2"). Κορυφή = θέση γραφήματος

ActiveSheet.ChartObjects("Γράφημα 3"). Κορυφή = θέση γραφήματος + 250

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
A mí me pasa que la siguiente vez que abro el archivo, el script ya no funciona. Tengo que copiarlo, borrarlo, cerrar el archivo tras guardarlo, volver a abrir el archivo y volver a pegar el script en VBA. ¿Alguna Solución;
Βαθμολογήθηκε το 4.5 από το 5
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, αποθηκεύστε το βιβλίο εργασίας ως βιβλίο εργασίας ενεργοποίησης μακροεντολής excel, το vba θα λειτουργήσει όταν ανοίξει την επόμενη φορά.https://cdn.extendoffice.com/images/stories/comments/sun-comment/doc-macro-enable.png
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL