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

Πώς να μετατρέψετε κείμενο σε πλαίσιο κειμένου σε περιεχόμενο κελιού στο Excel;

Εάν υπάρχουν ορισμένα πλαίσια κειμένου σε ένα φύλλο και θέλετε να μετατρέψετε τα περιεχόμενα στα πλαίσια κειμένου σε κελιά ξεχωριστά όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης, υπάρχουν γρήγοροι τρόποι επίλυσης αυτής της εργασίας εκτός από την εισαγωγή ενός προς ένα στο Excel; Σε αυτό το άρθρο, εισάγω μια μακροεντολή για να σας βοηθήσω σε αυτό το πρόβλημα.
doc μετατρέψτε το πλαίσιο κειμένου σε κελί 1

Μετατροπή περιεχομένων πλαισίου κειμένου σε κελί με 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

doc μετατρέψτε το πλαίσιο κειμένου σε κελί 2

3. Τύπος F5 για να εκτελέσετε τον κώδικα, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι επιλέγετε ένα κελί για εξαγωγή των περιεχομένων του κειμένου. Δείτε το στιγμιότυπο οθόνης:
doc μετατρέψτε το πλαίσιο κειμένου σε κελί 3

4. κλικ OK. Τώρα όλα τα πλαίσια κειμένου έχουν μετατραπεί σε περιεχόμενο κελιού.
doc μετατρέψτε το πλαίσιο κειμένου σε κελί 4

Συμβουλή: Το παραπάνω VBA θα αφαιρέσει τα πλαίσια κειμένου μετά την εκτέλεση, εάν θέλετε να διατηρήσετε τα πλαίσια κειμένου, αλλάξτε τον κωδικό xTxtBox.Διαγραφή προς την 'xTxtBox.Delete.

Επέκταση:Εάν θέλετε να μετατρέψετε γρήγορα μεταξύ αριθμού και κειμένου, δοκιμάστε να χρησιμοποιήσετε το Kutools για Excel Μετατροπή μεταξύ κειμένου και αριθμού όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Είναι πλήρης λειτουργία χωρίς περιορισμό

Kutools για Excel, με περισσότερα από 300 εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. 
μέρες, κάντε λήψη και κάντε μια δωρεάν δοκιμή τώρα.
doc μετατρέψτε το πλαίσιο κειμένου σε κελί 5


Τα καλύτερα εργαλεία παραγωγικότητας του 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)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το VBA δεν λειτουργεί;!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί τέλεια εδώ. Τι συμβαίνει όταν εκτελείτε τον κώδικα; Δεν αλλάζει τίποτα; Αν μπορείτε, περιγράψτε περισσότερα σχετικά με τα δεδομένα και το πρόβλημά σας. Σας ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ούτε εδώ δουλεύει. Επιλέξτε το κελί προορισμού, κάντε κλικ στο OK και δεν συμβαίνει τίποτα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Το έχω δοκιμάσει σε Win10 Excel2016 και Win8 Excel2010, λειτουργεί και τα δύο. Τι περιβάλλον εργασίας χρησιμοποιείτε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Έχω πολλά κουτιά σε διαφορετικά φύλλα, Υπάρχουν 4 φύλλα που έχουν συγκεκριμένα συμβάντα τη συγκεκριμένη ημέρα και θα ήθελα να μεταφέρω αυτά τα πλαίσια κειμένου της συγκεκριμένης ημέρας σε νέο φύλλο συνδυασμένα για εκείνη την ημέρα, Πώς λειτουργεί δεν έχω ιδέα πώς να το βρω ότι τα δεδομένα από 4 διαφορετικά φύλλα σε ένα φύλλο.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εντάξει, έχω το Textbox μέσα στο Textbox που πρέπει να εξαχθεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολλή χάρη! Buen aporte. Me ayudó mucho.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Όχι εμένα. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Juan, δεν αναφέρεται κανένα κλειδί Enter στην παραπάνω μέθοδο, αντιγράψτε και επικολλήστε το vba και, στη συνέχεια, πατήστε το πλήκτρο F5 ή κάντε κλικ στο κουμπί Εκτέλεση για να ενεργοποιήσετε τον κωδικό.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
γεια, δοκίμασα στο Excel365 και δεν λειτουργεί, μου βγαίνει το αναδυόμενο παράθυρο και μετά συμπληρώνω αλλά μετά δεν γίνεται τίποτα, ευχαριστώ για τη βοήθεια, Michel
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Michel, έχω δοκιμάσει τον κώδικα στο Excel 365, λειτουργεί σωστά. Θα μπορούσατε να μου δώσετε μια εικόνα σχετικά με την έκδοση του Excel όπως αυτή (Αρχείο > Λογαριασμός)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png, και η εικόνα σχετικά με τα περιεχόμενα των πλαισίων κειμένου σας;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου ηλιόλουστη. Θέλω μια λύση στο excel. Έχω αντιγράψει και επικολλήσει μια ιστοσελίδα που περιέχει δεδομένα. σε αυτό, κάθε πλαίσιο κειμένου περιέχει ορισμένους αριθμούς. Δεν μπορώ να τον μετατρέψω ως κανονικό αριθμό σε ένα κελί excel που περιέχει μια συγκεκριμένη στήλη. Χρησιμοποιώ excel 2007.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου ηλιόλουστη. Θέλω μια λύση στο excel. Έχω αντιγράψει και επικολλήσει μια ιστοσελίδα που περιέχει δεδομένα. σε αυτό, κάθε πλαίσιο κειμένου περιέχει ορισμένους αριθμούς. Δεν μπορώ να τον μετατρέψω ως κανονικό αριθμό σε ένα κελί excel που περιέχει μια συγκεκριμένη στήλη. Χρησιμοποιώ excel 2007.Το κείμενό σας για σύνδεση
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χρησιμοποιώ αυτό το σενάριο (ευχαριστώ παρεμπιπτόντως), αλλά προσπαθώ να το αποκτήσω έτσι ώστε να συμπληρώνει ένα συγκεκριμένο κελί και να μην ζητά εισαγωγή κελιού κάθε φορά. τι θα άλλαζα ώστε να συμπληρώνεται αυτόματα για παράδειγμα το κελί Β2.

Εβίβα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, απλώς αλλάξτε το σενάριο
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

προς την
Set xRg = Application.Range("B2")

θα εισαγάγετε τα περιεχόμενα του πλαισίου κειμένου από το κελί Β2
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

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

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