Wie konvertiere ich schnell Währungszahlen in Wörter in Excel?
Angenommen, Sie haben eine Reihe von Währungsnummern, die für die Konvertierung in Worttext in Excel erforderlich sind, und haben Sie schnelle Tricks, um diese schnell zu lösen? In diesem Tutorial erfahren Sie, wie Sie in Excel auf einfache Weise mehrere Währungsnummern in englische Wörter umwandeln können.
Buchstabieren Sie Währungsnummern zu Wörtern mit langem VBA
Buchstabieren Sie Währungsnummern zu Wörtern mit der praktischen Funktion "Zahlen zu Wörtern"
Buchstabieren Sie Währungsnummern zu Wörtern mit langem VBA
In Excel können Sie Zahlen außer VBA nicht schnell in englische Wörter konvertieren.
1. Drücken Sie Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Anwendung Fenster.
2 Klicken Insert > Modul und unter VBA in das neue einfügen Modul Fenster.
VBA: Währungsnummern in englische Wörter umrechnen.
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. Speichern Sie dann diesen Code, schließen Sie das Fenster, um zum Arbeitsblatt zurückzukehren, und wählen Sie eine leere Zelle aus. Geben Sie diese Formel ein = SpellNumberToEnglish (A2) (A2 ist die Währungsnummer) und drücken Sie Enter Ziehen Sie den Füllpunkt nach unten, um diese Formel auf die benötigten Zellen anzuwenden. Siehe Screenshots:
Buchstabieren Sie Währungsnummern mit der praktischen Funktion "Zahlen buchstabieren" in Wörter
Wenn Sie normalerweise Zahlen in Wörter umwandeln müssen, ist die oben beschriebene Methode möglicherweise nicht der gute und bequeme Weg für Sie. Sie können jedoch die verwenden Zahlen zu Wörtern Funktion zum schnellen Konvertieren von Währungsnummern in englische oder chinesische Wörter, falls vorhanden Kutools for Excel.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1. Wählen Sie die Währungsnummern aus und klicken Sie auf Kutoolen > Inhalt > Zahlen zu Wörtern. Siehe Screenshot:
2. In dem Zahlen zu Währungswörtern Dialog, überprüfen Englisch or Chinesisch Option nach Bedarf. Siehe Screenshot:
3 Klicken Ok or Jetzt bewerben. Dann wurden die von Ihnen ausgewählten Währungsnummern in Wörter umgewandelt.
Währungsnummern zu englischen Wörtern
Währungsnummern zu chinesischen Wörtern
Hinweis: Sie können die Währungsnummern kopieren und in ein anderes Arbeitsblatt einfügen, bevor Sie Zahlen auf Wörter anwenden
Währungsnummer in Wörter umrechnen
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!