Πώς να βρείτε και να αντικαταστήσετε κείμενο σε τίτλους γραφημάτων στο Excel;
Τα γραφήματα είναι πολύ χρήσιμα για εμάς στο Excel και τους δίνουμε συχνά ορισμένους τίτλους για την αναγνώρισή τους. Αλλά έχετε προσπαθήσει να βρείτε και να αντικαταστήσετε την τιμή κειμένου σε τίτλους γραφήματος σε πολλά γραφήματα; Σήμερα, θα μιλήσω για το πώς να βρείτε ένα συγκεκριμένο κείμενο σε πολλά πλακίδια γραφήματος και να το αντικαταστήσω με άλλη τιμή στο Excel.
Βρείτε και αντικαταστήστε κείμενο σε τίτλους γραφημάτων στο Excel με κώδικα VBA
Βρείτε και αντικαταστήστε κείμενο σε τίτλους γραφημάτων στο Excel με κώδικα VBA
Ας υποθέσουμε ότι έχετε ένα φύλλο εργασίας που περιέχει τα γραφήματα όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης και θέλετε να αντικαταστήσετε το κείμενο Ιανουάριος έως Φεβρουάριο μόνο σε όλους τους τίτλους γραφήματος. Φυσικά, μπορείτε να τα αλλάξετε χειροκίνητα ένα προς ένα, αλλά αυτό θα είναι χρονοβόρο εάν υπάρχουν πολλά γραφήματα. Εδώ λοιπόν, ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει να αντιμετωπίσετε αυτήν την εργασία. </ P>
1. Ενεργοποιήστε το φύλλο εργασίας σας που περιέχει τα γραφήματα που θέλετε να βρείτε και να αντικαταστήσετε στους τίτλους τους.
2. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Παράθυρο Microsoft Visual Basic for Applications.
3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Εύρεση και αντικατάσταση κειμένου σε τίτλους γραφημάτων στο ενεργό φύλλο εργασίας
Sub ChartLabelReplace()
'Update 20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
For Each ch In xWs.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
End Sub
4. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε το παλιό σας κείμενο που θέλετε να αντικαταστήσετε, δείτε το στιγμιότυπο οθόνης:
5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί και εμφανίζεται ένα άλλο πλαίσιο προτροπής, πρέπει να πληκτρολογήσετε τη νέα τιμή κειμένου που θέλετε να αντικαταστήσετε την παλιά, δείτε το στιγμιότυπο οθόνης:
6. Κάντε κλικ OK για να κλείσετε το πλαίσιο προτροπής και τα παλιά σας κείμενα έχουν αντικατασταθεί από τις ειδήσεις ταυτόχρονα στο τρέχον φύλλο εργασίας όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
Note: Εάν πρέπει να βρείτε και να αντικαταστήσετε την τιμή κειμένου των τίτλων γραφήματος σε όλα τα φύλλα εργασίας σε ένα βιβλίο εργασίας, θα πρέπει να εφαρμόσετε τον ακόλουθο κώδικα VBA: (Η διαδικασία είναι ίδια με τα παραπάνω)
Κωδικός VBA: Βρείτε και αντικαταστήστε κείμενο σε τίτλους γραφημάτων σε όλα τα φύλλα εργασίας
Sub ChartLabelReplaceAllWorksheet()
'Update 20140603
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
For Each sh In Worksheets
For Each ch In sh.ChartObjects
If ch.Chart.HasTitle Then
ch.Chart.ChartTitle.Text = VBA.Replace(ch.Chart.ChartTitle.Text, xFindStr, xReplace, 1)
End If
Next
Next
End Sub
Σχετικά άρθρα:
Πώς να βρείτε και να αντικαταστήσετε κείμενο εντός σχολίων στο Excel;
Πώς να βρείτε και να αντικαταστήσετε συγκεκριμένο κείμενο σε πολλά πλαίσια κειμένου του Excel;
Πώς να αλλάξετε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!