Μετάβαση στο κύριο περιεχόμενο

Πώς να γράψετε ή να μετατρέψετε αριθμούς σε αγγλικές λέξεις στο Excel;

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

Ορίστε ή μετατρέψτε τους αριθμούς σε αγγλικές λέξεις με κωδικό VBA

Ορίστε ή μετατρέψτε τους αριθμούς σε αγγλικές λέξεις με το Kutools για Excel


Ορίστε ή μετατρέψτε τους αριθμούς σε αγγλικές λέξεις με κωδικό VBA

Ο παρακάτω μακρύς κώδικας VBA μπορεί να σας βοηθήσει να γράψετε αριθμούς σε συμβολοσειρές κειμένου. Κάντε τα εξής:

1. Κρατήστε πατημένο το ALT + F11 και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Παράθυρο ενότητας.

VBA: Ορίστε αριθμούς νομισμάτων σε αγγλικές λέξεις στο Excel

Function SpellNumberToEnglish(ByVal pNumber)
'Updateby20131113
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
    Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
    pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
    xHundred = ""
    xValue = Right(pNumber, 3)
    If Val(xValue) <> 0 Then
        xValue = Right("000" & xValue, 3)
        If Mid(xValue, 1, 1) <> "0" Then
            xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
        End If
        If Mid(xValue, 2, 1) <> "0" Then
            xHundred = xHundred & GetTens(Mid(xValue, 2))
        Else
            xHundred = xHundred & GetDigit(Mid(xValue, 3))
        End If
    End If
    If xHundred <> "" Then
        Dollars = xHundred & arr(xIndex) & Dollars
    End If
    If Len(pNumber) > 3 Then
        pNumber = Left(pNumber, Len(pNumber) - 3)
    Else
        pNumber = ""
    End If
    xIndex = xIndex + 1
Loop
Select Case Dollars
    Case ""
        Dollars = "No Dollars"
    Case "One"
        Dollars = "One Dollar"
    Case Else
        Dollars = Dollars & " Dollars"
End Select
Select Case Cents
    Case ""
        Cents = " and No Cents"
    Case "One"
        Cents = " and One Cent"
    Case Else
        Cents = " and " & Cents & " Cents"
End Select
SpellNumberToEnglish = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
    Select Case Val(pTens)
        Case 10: Result = "Ten"
        Case 11: Result = "Eleven"
        Case 12: Result = "Twelve"
        Case 13: Result = "Thirteen"
        Case 14: Result = "Fourteen"
        Case 15: Result = "Fifteen"
        Case 16: Result = "Sixteen"
        Case 17: Result = "Seventeen"
        Case 18: Result = "Eighteen"
        Case 19: Result = "Nineteen"
        Case Else
    End Select
Else
Select Case Val(Left(pTens, 1))
    Case 2: Result = "Twenty "
    Case 3: Result = "Thirty "
    Case 4: Result = "Forty "
    Case 5: Result = "Fifty "
    Case 6: Result = "Sixty "
    Case 7: Result = "Seventy "
    Case 8: Result = "Eighty "
    Case 9: Result = "Ninety "
    Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
    Case 1: GetDigit = "One"
    Case 2: GetDigit = "Two"
    Case 3: GetDigit = "Three"
    Case 4: GetDigit = "Four"
    Case 5: GetDigit = "Five"
    Case 6: GetDigit = "Six"
    Case 7: GetDigit = "Seven"
    Case 8: GetDigit = "Eight"
    Case 9: GetDigit = "Nine"
    Case Else: GetDigit = ""
End Select
End Function

3. Στη συνέχεια, αποθηκεύστε τον κωδικό και επιστρέψτε στο φύλλο εργασίας, στο παρακείμενο Cell B2, εισαγάγετε τον τύπο = SpellNumberToEnglish (Α1), δείτε το στιγμιότυπο οθόνης:

4. Στη συνέχεια πατήστε εισάγετε και επιλέξτε το Cell B2 και, στη συνέχεια, σύρετε τη λαβή πλήρωσης στο εύρος που περιέχει αυτόν τον τύπο όπως χρειάζεστε. Και όλοι οι αριθμοί νομισμάτων έχουν διατυπωθεί σε αγγλικές λέξεις. Δείτε το στιγμιότυπο οθόνης:

Note: Καθώς είναι τύποι, όταν πρέπει να τα αντιγράψετε και να τα επικολλήσετε, επικολλήστε το ως τιμές.


Ορίστε ή μετατρέψτε τους αριθμούς σε αγγλικές λέξεις με το Kutools για Excel

Ίσως ο παραπάνω μακρύς κώδικας μπορεί να σας κάνει να είστε τρελοί, μην ανησυχείτε, εδώ μπορώ να σας δώσω έναν εύκολο και γρήγορο τρόπο για να το λύσετε. Με το Kutools για Excel'S Αριθμοί σε λέξεις Μπορείτε να μετατρέψετε γρήγορα και εύκολα τους αριθμούς σε συμβολοσειρές κειμένου.

Kutools για Excel- Περιλαμβάνει περισσότερα από 300 εύχρηστα εργαλεία για το Excel. Δωρεάν δοκιμή πλήρους δυνατότητας 30 ημερών, δεν απαιτείται πιστωτική κάρτα! Παρ'το Τώρα

1. Επιλέξτε τους αριθμούς εύρους που θέλετε να εξηγήσετε και κάντε κλικ στο Kutools > Περιεχόμενο > Αριθμοί σε λέξεις.
doc kutools αριθμός στις λέξεις 1

2. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Αγγλικά από το Γλώσσες. Και μπορείτε να κάνετε προεπισκόπηση των αποτελεσμάτων από τα δεξιά Προβολή Τζάμι. Δείτε το στιγμιότυπο οθόνης:
doc kutools αριθμός στις λέξεις 2

3. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή. Και όλοι οι αριθμοί ποσού τιμής έχουν μετατραπεί σε συμβολοσειρές κειμένου στο αρχικό εύρος.
doc kutools αριθμός στις λέξεις 3

Note: Εάν θέλετε απλώς να μετατρέψετε αριθμούς σε αγγλικές λέξεις (όχι νόμισμα), ελέγξτε Δεν μετατράπηκε σε Νόμισμα κουτάκι.
doc kutools αριθμός στις λέξεις 3 doc kutools αριθμός στις λέξεις 3

Αυτό το φανταστικό χαρακτηριστικό του Αριθμοί σε λέξεις μπορεί εύκολα να μεταφράσει αριθμούς νομισμάτων στο κείμενο του νομίσματος στα Αγγλικά ή στα Κινέζικα, όπως η μετάφραση 32.01 σε "Τριάντα δύο δολάρια και ένα σεντ" ή "叁拾 贰元 零 壹 分". Κάντε μια δωρεάν δοκιμή!

Επίδειξη: Ορίστε αριθμούς νομισμάτων σε αγγλικές λέξεις

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

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

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (112)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi! How would I go about adding hyphens ( - ) between compound numbers, so instead of it spelling 55 as Fifty Five it would spell Fifty-Five. Simply adding hyphens to all "tens" obviously doesn't work since that would mean tat 20,000,000 would be spelled as "Twenty- Million". Thanks to whoever can solve this!
This comment was minimized by the moderator on the site
Hi! How would I go about adding hyphens ( - ) between compound numbers, so instead of it spelling 55 as Fifty Five it would spell Fifty-Five. Simply adding hyphens to all "tens" obviously doesn't work since that would mean tat 20,000,000 would be spelled as "Twenty- Million". Thanks to whoever can solve this!
This comment was minimized by the moderator on the site
not suitable for indian currency allways show in doller
This comment was minimized by the moderator on the site
Hi prem,
At present, this Numbers to Words feature enables to convert numbers to Chinese Yuan and US Dollars.
This comment was minimized by the moderator on the site
How can i get actuall figure without "no cents/ no dollars", if it's not needed. Please Email me in shown Mail ID.
This comment was minimized by the moderator on the site
HAVE U GOT ANY SOLUTION FOR THIS
This comment was minimized by the moderator on the site
just delete the no cents on line 46 and no dollars on line 38, leave it "" only
This comment was minimized by the moderator on the site
I was unable to do it, I don't know what happened to it, first of all it was OK, but only for one time then it shows this sign #NAME? can any one help me in this regards.
This comment was minimized by the moderator on the site
Save it as Excel Macro Enable Workbook. and each time you will open the file, you'll see a Security Warning prompt (usually on top of Formula Bar) you have to click the Option button and tick the "Enable this content". This would solve your problem. Hope it would help
This comment was minimized by the moderator on the site
Please try one more time
This comment was minimized by the moderator on the site
everytime i close the file.. the complete program is lost.. how can i save this for all my excel files
This comment was minimized by the moderator on the site
thanks for the excellent job, I tried it , great , its working , greetings from Sri Lanka
This comment was minimized by the moderator on the site
We thank you for this guideline it is most helpful, but how can i change the currency from Dollars to Rwandan Francs?

Thanks
This comment was minimized by the moderator on the site
search the below texts in the vba code and replace eg : search 1 >> Search for "Dollars" Replace with "Rwandan Francs"
search 2 >> Search for "Dollar" Replace with "Rwandan Franc"
This comment was minimized by the moderator on the site
I have followed the guidelines and managed to do it perfectly well for the first time. I have been designing templates and it has worked for me. Thank you so much.
This comment was minimized by the moderator on the site
i wan to change this eg:( one hundred thousand rupees only ), pls explain me how to get that word "only"
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations