Πώς να γράψετε ή να μετατρέψετε αριθμούς σε αγγλικές λέξεις στο 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 > Περιεχόμενο > Αριθμοί σε λέξεις.
2. Στο αναδυόμενο παράθυρο διαλόγου, επιλέξτε Αγγλικά από το Γλώσσες. Και μπορείτε να κάνετε προεπισκόπηση των αποτελεσμάτων από τα δεξιά Προβολή Τζάμι. Δείτε το στιγμιότυπο οθόνης:
3. Στη συνέχεια κάντε κλικ στο κουμπί Ok or Εφαρμογή. Και όλοι οι αριθμοί ποσού τιμής έχουν μετατραπεί σε συμβολοσειρές κειμένου στο αρχικό εύρος.
Note: Εάν θέλετε απλώς να μετατρέψετε αριθμούς σε αγγλικές λέξεις (όχι νόμισμα), ελέγξτε Δεν μετατράπηκε σε Νόμισμα κουτάκι.
Αυτό το φανταστικό χαρακτηριστικό του Αριθμοί σε λέξεις μπορεί εύκολα να μεταφράσει αριθμούς νομισμάτων στο κείμενο του νομίσματος στα Αγγλικά ή στα Κινέζικα, όπως η μετάφραση 32.01 σε "Τριάντα δύο δολάρια και ένα σεντ" ή "叁拾 贰元 零 壹 分". Κάντε μια δωρεάν δοκιμή!
Επίδειξη: Ορίστε αριθμούς νομισμάτων σε αγγλικές λέξεις
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!