Πώς να βρείτε και να αντικαταστήσετε συγκεκριμένο κείμενο σε πλαίσια κειμένου;
Το Find and Replace είναι ένα χρήσιμο εργαλείο για να βρούμε και να αντικαθιστούμε τα περιεχόμενα ή τους τύπους κελιού γρήγορα και εύκολα σε ένα φύλλο εργασίας. Αλλά τώρα, έχω πολλά πλαίσια κειμένου στο φύλλο εργασίας μου και θέλω να βρω το συγκεκριμένο κείμενο και να το αντικαταστήσω με άλλη τιμή μόνο σε αυτά τα πλαίσια κειμένου. Έχετε καλούς τρόπους για να αντιμετωπίσετε αυτό το πρόβλημα;
Βρείτε και αντικαταστήστε συγκεκριμένο κείμενο σε πολλά πλαίσια κειμένου
Βρείτε και αντικαταστήστε συγκεκριμένο κείμενο σε πολλά πλαίσια κειμένου
Μπορείτε να βρείτε και να αντικαταστήσετε το κείμενο που χρειάζεστε χειροκίνητα ένα προς ένα, αλλά αν υπάρχουν πολλά πλαίσια κειμένου, αυτό θα είναι βαρετό και κουρασμένο. Έτσι, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να τον ολοκληρώσετε ταυτόχρονα.
1. Ενεργοποιήστε το φύλλο εργασίας σας και κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Εύρεση και αντικατάσταση συγκεκριμένου κειμένου σε πλαίσια κειμένου του τρέχοντος φύλλου εργασίας
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Στη συνέχεια πατήστε F5 για να εκτελέσετε αυτόν τον κωδικό και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι εισάγετε το παλιό σας κείμενο που θέλετε να αντικαταστήσετε. Δείτε το στιγμιότυπο οθόνης:
4. Κάντε κλικ OKκαι σε αυτό το πλαίσιο προτροπής, πληκτρολογήστε τη νέα τιμή κειμένου που θέλετε, δείτε το στιγμιότυπο οθόνης:
5. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, οι παλιές τιμές έχουν αντικατασταθεί με τις νέες τιμές που εισαγάγατε στο τρέχον φύλλο εργασίας. Δείτε στιγμιότυπα οθόνης:
Σχετικά άρθρα:
Πώς να βρείτε και να αντικαταστήσετε κείμενο σε τίτλους γραφημάτων στο Excel;
Πώς να βρείτε και να αντικαταστήσετε κείμενο εντός σχολίων στο Excel;
Πώς να αλλάξετε πολλές διαδρομές υπερσύνδεσης ταυτόχρονα στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!