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

Κατεβάστε το βιβλίο ασκήσεων

Κατεβάστε αυτό το βιβλίο ασκήσεων

Μετατροπή κειμένου σε αριθμούς με χρήση VBA.xlsm

Πώς να αναγνωρίζετε αριθμούς μορφοποιημένους ως κείμενο

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

Ρίξτε μια ματιά σε αυτό το σύνολο δεδομένων. Εδώ, έχουμε μερικούς αριθμούς σε μια στήλη.

Παρόλο που έχουμε αριθμούς στη στήλη, όλοι είναι αριστερά στοιχισμένοι όπως το κείμενο. Τώρα, κάντε κλικ σε οποιοδήποτε κελί. Θα βρείτε αυτό το πλαίσιο δίπλα στο κελί.

Τώρα, τοποθετήστε τον κέρσορα του ποντικιού πάνω από το πλαίσιο. Μετά από αυτό, θα δείτε αυτό το μήνυμα.

Δείχνει ότι το κελί είναι μορφοποιημένο ως κείμενο. Με αυτόν τον τρόπο, μπορείτε να είστε σίγουροι αν τα κελιά είναι μορφοποιημένα ως κείμενο ή όχι.

3 κώδικες VBA για τη μετατροπή κειμένου σε αριθμό στο Excel

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

1. Κώδικας VBA με τη μέθοδο Range.NumberFormat για τη μετατροπή κειμένου σε αριθμό στο Excel

Αυτή η μέθοδος είναι αρκετά απλή και εύκολη στη χρήση σε οποιοδήποτε σύνολο δεδομένων. Το μόνο που έχετε να κάνετε είναι να επιλέξετε την περιοχή των κελιών και να την εισάγετε στο αρχείο Κώδικας VBA .

📌 Βήματα

1. Πρώτον, πατήστε ALT+F11 στο πληκτρολόγιό σας για να ανοίξετε το Επεξεργαστής VBA .

2. Κάντε κλικ στο Εισαγωγή> Ενότητα .

3. Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα:

 Sub ConvertTextToNumber() With Range("B5:B14") .NumberFormat = "General" .Value = .Value End With End Sub 

4. Αποθηκεύστε το αρχείο.

5. Στη συνέχεια, πατήστε ALT+F8 . Θα ανοίξει το Μάκρο παράθυρο διαλόγου.

6. Επιλέξτε ConvertTextToNumber και κάντε κλικ στο Τρέξτε.

Στο τέλος, αυτός ο κώδικας θα μετατρέψει το κείμενό μας σε αριθμούς.

Διαβάστε περισσότερα: Πώς να μετατρέψετε συμβολοσειρά σε αριθμό στο Excel VBA

2. Κώδικας VBA με βρόχο και CSng για τη μετατροπή του κειμένου σε αριθμό

Σε αυτή τη μέθοδο, χρησιμοποιούμε Βρόχος και CSng λειτουργίες. CSng Η συνάρτηση ουσιαστικά δέχεται οποιοδήποτε κείμενο ως όρισμα και το μετατρέπει σε έναν απλό αριθμό. Ο βρόγχος μας θα περάσει από κάθε κελί της επιλεγμένης στήλης. Μετά από αυτό, θα περάσουμε την τιμή κάθε κελιού στην εντολή CSng για να το μετατρέψετε από κείμενο σε αριθμό.

📌 Βήματα

1. Πρώτον, πατήστε ALT+F11 στο πληκτρολόγιό σας για να ανοίξετε το Επεξεργαστής VBA .

2. Κάντε κλικ στο Εισαγωγή> Ενότητα .

3. Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα:

 Sub ConvertUsingLoop() For Each r In Sheets("Loop&CSng").UsedRange.SpecialCells(xlCellTypeConstants) If IsNumeric(r) Then r.Value = CSng(r.Value) r.NumberFormat = "General" End If Next End Sub 

4. Αποθηκεύστε το αρχείο.

5. Στη συνέχεια, πατήστε ALT+F8 . Θα ανοίξει το Μάκρο παράθυρο διαλόγου.

6. Επιλέξτε ConvertUsingLoop και κάντε κλικ στο Τρέξτε.

Όπως μπορείτε να δείτε, μετατρέψαμε το κείμενό μας σε αριθμούς χρησιμοποιώντας αυτόν τον κώδικα VBA.

Παρόμοιες αναγνώσεις

• Μαζική μετατροπή κειμένου σε αριθμό στο Excel (6 τρόποι)
• Πώς να μετατρέψετε συμβολοσειρά σε μακρά χρησιμοποιώντας το VBA στο Excel (3 τρόποι)
• Μετατροπή συμβολοσειράς σε διπλό στο Excel VBA (5 μέθοδοι)
• Πώς να διορθώσετε το σφάλμα μετατροπής σε αριθμό στο Excel (6 μέθοδοι)

3. Μετατροπή κειμένου σε αριθμούς για δυναμικές περιοχές στο Excel

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

Έτσι, προσδιορίζουμε δυναμικά την τελευταία χρησιμοποιούμενη γραμμή του excel που περιέχει δεδομένα χρησιμοποιώντας Cells(Rows.Count, "B").End(xlUp).Row Επιστρέφει τον τελευταίο μη κενό αριθμό γραμμής που συνδιάζουμε με το " B5:B ".

📌 Βήματα

1. Πρώτον, πατήστε ALT+F11 στο πληκτρολόγιό σας για να ανοίξετε το Επεξεργαστής VBA .

2. Κάντε κλικ στο Εισαγωγή >, Ενότητα .

3. Στη συνέχεια, πληκτρολογήστε τον ακόλουθο κώδικα:

 Sub ConvertDynamicRanges() With Range("B5:B" & Cells(Rows.Count, "B").End(xlUp).Row) .NumberFormat = "General" .Value = .Value End With End Sub 

4. Αποθηκεύστε το αρχείο.

5. Στη συνέχεια, πατήστε ALT+F8 . Θα ανοίξει το Μάκρο παράθυρο διαλόγου.

6. Στη συνέχεια επιλέξτε ConvertDynamicRanges και κάντε κλικ στο Τρέξτε.

Όπως μπορείτε να δείτε, καταφέραμε να μετατρέψουμε κείμενο σε αριθμούς χρησιμοποιώντας τους κωδικούς VBA.

💬 Πράγματα που πρέπει να θυμάστε

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

✎ Οι κωδικοί VBA θα λειτουργούν μόνο στο ενεργό φύλλο.

Συμπέρασμα

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