Wie konvertiere ich Währung in Worttext in Excel?
Für Nicht-Muttersprachler, die Englisch als zweite Sprache verwenden, ist es manchmal schwierig, die Währungsnummer direkt in englische Wörter zu ändern, wenn die Nummer zu lang ist. In diesem Artikel erfahren Sie, wie Sie in Excel auf einfache Weise Währung in Worttext konvertieren.
Konvertieren Sie die Währung in Wörter mit VBA-Code
Konvertieren Sie mit Kutools for Excel Währung in Wörter
Konvertieren Sie die Währung in Wörter mit VBA-Code
Mit dem folgenden VBA-Code können Sie die Währungsnummer in englische Wörter umwandeln.
1. Drücken Sie Andere + F11 öffnen Microsoft Visual Basic für Applikationen Dialogbox.
2. In dem Microsoft Visual Basic für Applikationen Dialogfeld, klicken Sie auf Insert > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.
VBA-Code: Konvertieren Sie die Währungsnummer in englische Wörter
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 Function3. Drücken Sie Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Dialogbox.
4. Wählen Sie eine leere Zelle (B1) neben der Zelle aus, die Sie in Wörter konvertieren möchten, und geben Sie die Formel ein = NumberstoWords (A1), und drücken Sie dann die Taste Enter Key.
Note: A1 ist die Zelle, die die Währungsnummer enthält. Sie können es nach Bedarf ändern.
5. Wählen Sie die Zelle B1 aus und ziehen Sie den Füllgriff nach unten, um alle englischen Wörter der Währungsnummern zu erhalten.
Konvertieren Sie mit Kutools for Excel Währung in Wörter
Dieser lange VBA-Code scheint kompliziert zu sein. Hier stelle ich Ihnen ein praktisches Dienstprogramm vor, mit dem Sie dieses Problem leicht lösen können. Mit dem Zahlen zu Wörtern Nutzen von Kutools for ExcelDie Umrechnung von Währung in Wörter ist kein Problem mehr. Bitte gehen Sie wie folgt vor.
Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.
1. Wählen Sie die Zellen mit den Währungsnummern aus, die Sie konvertieren möchten.
2 Klicken Kutoolen > Inhalt > Zahlen zu Wörtern. Siehe Screenshot:
3. In dem Zahlen zu Währungswörtern Dialogfeld auswählen Englisch Option und klicken Sie auf OK or Jetzt bewerben .
Jetzt werden die ausgewählten Währungsnummern sofort in englische Wörter umgewandelt.
Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
