Πώς να μετατρέψετε κείμενο σε πλαίσιο κειμένου σε περιεχόμενο κελιού στο Excel;
Εάν υπάρχουν ορισμένα πλαίσια κειμένου σε ένα φύλλο και θέλετε να μετατρέψετε τα περιεχόμενα στα πλαίσια κειμένου σε κελιά ξεχωριστά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, υπάρχουν γρήγοροι τρόποι επίλυσης αυτής της εργασίας εκτός από την εισαγωγή ενός προς ένα στο Excel; Σε αυτό το άρθρο, εισάγω μια μακροεντολή για να σας βοηθήσω σε αυτό το πρόβλημα.
Μετατροπή περιεχομένων πλαισίου κειμένου σε κελί με VBA
Μετατροπή περιεχομένων πλαισίου κειμένου σε κελί με VBA
Εκτός από τον κώδικα μακροεντολής, δεν υπάρχει τέχνασμα που να μετατρέπει γρήγορα τα πλαίσια κειμένου σε περιεχόμενο κελιού.
1. Τύπος Alt + F11 πλήκτρα για ενεργοποίηση Microsoft Visual Basic για εφαρμογές παράθυρο.
2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε τον παρακάτω κώδικα στο Μονάδα μέτρησης γραφή.
VBA: Μετατροπή πλαισίων κειμένου σε κελί
Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
Dim xRg As Range
Dim xRow As Long
Dim xCol As Long
Dim xTxtBox As TextBox
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xRg.Row
xCol = xRg.Column
For Each xTxtBox In ActiveSheet.TextBoxes
Cells(xRow, xCol).Value = xTxtBox.Text
xTxtBox.Delete
xRow = xRow + 1
Next
End Sub
3. Τύπος F5 για να εκτελέσετε τον κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι επιλέγετε ένα κελί για εξαγωγή των περιεχομένων του κειμένου. Δείτε το στιγμιότυπο οθόνης:
4. κλικ OK. Τώρα όλα τα πλαίσια κειμένου έχουν μετατραπεί σε περιεχόμενο κελιού.
Συμβουλή: Το παραπάνω VBA θα αφαιρέσει τα πλαίσια κειμένου μετά την εκτέλεση, εάν θέλετε να διατηρήσετε τα πλαίσια κειμένου, αλλάξτε τον κωδικό xTxtBox.Διαγραφή προς την 'xTxtBox.Delete.
| Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. |
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
