Πώς να μετατρέψετε το νόμισμα σε κείμενο λέξεων στο Excel;
Για μη γηγενείς ομιλητές που χρησιμοποιούν τα αγγλικά ως δεύτερη γλώσσα τους, μερικές φορές είναι δύσκολο να αλλάξετε άμεσα τον αριθμό νομίσματος σε αγγλικές λέξεις όταν ο αριθμός είναι πολύ μεγάλος. Σε αυτό το άρθρο, θα μάθετε πώς να μετατρέπετε εύκολα το νόμισμα σε κείμενο λέξεων στο Excel.
Μετατροπή νομίσματος σε λέξεις με κωδικό VBA
Μετατροπή νομίσματος σε λέξεις με το Kutools για Excel
Μετατροπή νομίσματος σε λέξεις με κωδικό VBA
Με τον παρακάτω κωδικό VBA, μπορείτε να μετατρέψετε τον αριθμό νομίσματος σε αγγλικές λέξεις.
1. Τύπος άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές κουτί διαλόγου.
2. Στο Microsoft Visual Basic για εφαρμογές , κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο παράθυρο κώδικα.
Κωδικός VBA: Μετατροπή αριθμού νομίσματος σε αγγλικές λέξεις
Function NumberstoWords(ByVal pNumber)
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
NumberstoWords = 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. Τύπος άλλος + Q ταυτόχρονα για να κλείσετε το Microsoft Visual Basic για εφαρμογές κουτί διαλόγου.
4. Επιλέξτε ένα κενό κελί (B1) που βρίσκεται δίπλα στο κελί που θέλετε να μετατρέψετε σε λέξεις, εισαγάγετε τον τύπο = NumberstoWords (Α1), και στη συνέχεια πατήστε το εισάγετε κλειδί.
Note: A1 είναι το κελί που περιέχει τον αριθμό νομίσματος. Μπορείτε να το αλλάξετε όπως χρειάζεστε.
5. Επιλέξτε το κελί B1, σύρετε τη λαβή πλήρωσης προς τα κάτω για να λάβετε όλες τις αγγλικές λέξεις των αριθμών νομίσματος.
Μετατροπή νομίσματος σε λέξεις με το Kutools για Excel
Αυτός ο μακρύς κώδικας VBA φαίνεται περίπλοκος. Εδώ θα σας παρουσιάσω ένα εύχρηστο βοηθητικό πρόγραμμα για την εύκολη επίλυση αυτού του προβλήματος. Με το Αριθμοί σε λέξεις χρησιμότητα του Kutools για Excel, η μετατροπή νομίσματος σε λέξεις δεν θα είναι πλέον πρόβλημα. Κάντε τα εξής:
Πριν από την εφαρμογή Kutools για Excel, σας παρακαλούμε κατεβάστε και εγκαταστήστε το πρώτα.
1. Επιλέξτε τα κελιά με τους αριθμούς νομισμάτων που θέλετε να μετατρέψετε.
2. κλικ Kutools > Περιεχόμενο > Αριθμοί σε λέξεις. Δείτε το στιγμιότυπο οθόνης:
3. Στο Αριθμοί σε λέξεις νομίσματος , επιλέξτε Αγγλικά και κάντε κλικ στο OK or Εφαρμογή κουμπί.
Τώρα οι επιλεγμένοι αριθμοί νομισμάτων μετατρέπονται σε αγγλικές λέξεις αμέσως.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (30-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!