Wie konvertiert man Zahlen in Wörter im indischen Rupien-Format in Excel?
Das Konvertieren von Zahlen in Wörter ist eine gängige Anforderung, insbesondere bei der Erstellung von Finanzdokumenten wie Rechnungen oder Schecks. Während Excel keine integrierte Funktion zum Konvertieren von Zahlen in Wörter hat, können Sie dies mit VBA erreichen. Hier ist eine Schritt-für-Schritt-Anleitung zum Konvertieren von Zahlen in Wörter im indischen Rupien-Format oder anderen Währungen.
Konvertieren Sie Zahlen in Wörter im indischen Rupien-Format mit VBA-Code
Konvertieren Sie Zahlen in Wörter im indischen Rupien-Format mit VBA-Code
Der folgende VBA-Code kann Ihnen helfen, Zahlen in Wörter im Rupien-Format zu konvertieren. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten „ALT“ + „F11“ gedrückt, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen.
2. Klicken Sie auf „Einfügen“ > „Modul“ und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Konvertieren Sie Zahlen in Wörter im Rupien-Format
Public Function RupeeFormat(SNum As String)
'Updateby Extendoffice
Dim xDPInt As Integer
Dim xArrPlace As Variant
Dim xRStr_Paisas As String
Dim xNumStr As String
Dim xF As Integer
Dim xTemp As String
Dim xStrTemp As String
Dim xRStr As String
Dim xLp As Integer
xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")
On Error Resume Next
If SNum = "" Then
RupeeFormat = ""
Exit Function
End If
xNumStr = Trim(str(SNum))
If xNumStr = "" Then
RupeeFormat = ""
Exit Function
End If
xRStr = ""
xLp = 0
If (xNumStr > 999999999.99) Then
RupeeFormat = "Digit excced Maximum limit"
Exit Function
End If
xDPInt = InStr(xNumStr, ".")
If xDPInt > 0 Then
If (Len(xNumStr) - xDPInt) = 1 Then
xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))
ElseIf (Len(xNumStr) - xDPInt) > 1 Then
xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))
End If
xNumStr = Trim(Left(xNumStr, xDPInt - 1))
End If
xF = 1
Do While xNumStr <> ""
If (xF >= 2) Then
xTemp = Right(xNumStr, 2)
Else
If (Len(xNumStr) = 2) Then
xTemp = Right(xNumStr, 2)
ElseIf (Len(xNumStr) = 1) Then
xTemp = Right(xNumStr, 1)
Else
xTemp = Right(xNumStr, 3)
End If
End If
xStrTemp = ""
If Val(xTemp) > 99 Then
xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)
If Right(Trim(xStrTemp), 3) <> "Lac" Then
xLp = xLp + 1
End If
ElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 Then
xStrTemp = RupeeFormat_GetT(Right(xTemp, 2))
ElseIf Val(xTemp) < 10 Then
xStrTemp = RupeeFormat_GetD(Right(xTemp, 2))
End If
If xStrTemp <> "" Then
xRStr = xStrTemp & xArrPlace(xF) & xRStr
End If
If xF = 2 Then
If Len(xNumStr) = 1 Then
xNumStr = ""
Else
xNumStr = Left(xNumStr, Len(xNumStr) - 2)
End If
ElseIf xF = 3 Then
If Len(xNumStr) >= 3 Then
xNumStr = Left(xNumStr, Len(xNumStr) - 2)
Else
xNumStr = ""
End If
ElseIf xF = 4 Then
xNumStr = ""
Else
If Len(xNumStr) <= 2 Then
xNumStr = ""
Else
xNumStr = Left(xNumStr, Len(xNumStr) - 3)
End If
End If
xF = xF + 1
Loop
If xRStr = "" Then
xRStr = "No Rupees"
Else
xRStr = " Rupees " & xRStr
End If
If xRStr_Paisas <> "" Then
xRStr_Paisas = " and " & xRStr_Paisas & " Paisas"
End If
RupeeFormat = xRStr & xRStr_Paisas & " Only"
End Function
Function RupeeFormat_GetH(xStrH As String, xLp As Integer)
Dim xRStr As String
If Val(xStrH) < 1 Then
RupeeFormat_GetH = ""
Exit Function
Else
xStrH = Right("000" & xStrH, 3)
If Mid(xStrH, 1, 1) <> "0" Then
If (xLp > 0) Then
xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "
Else
xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "
End If
End If
If Mid(xStrH, 2, 1) <> "0" Then
xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))
Else
xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))
End If
End If
RupeeFormat_GetH = xRStr
End Function
Function RupeeFormat_GetT(xTStr As String)
Dim xTArr1 As Variant
Dim xTArr2 As Variant
Dim xRStr As String
xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen")
xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
Result = ""
If Val(Left(xTStr, 1)) = 1 Then
xRStr = xTArr1(Val(Mid(xTStr, 2, 1)))
Else
If Val(Left(xTStr, 1)) > 0 Then
xRStr = xTArr2(Val(Left(xTStr, 1)) - 1)
End If
xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))
End If
RupeeFormat_GetT = xRStr
End Function
Function RupeeFormat_GetD(xDStr As String)
Dim xArr_1() As Variant
xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")
If Val(xDStr) > 0 Then
RupeeFormat_GetD = xArr_1(Val(xDStr) - 1)
Else
RupeeFormat_GetD = ""
End If
End Function
3. Nachdem Sie den Code eingefügt haben, speichern und schließen Sie das Codefenster, gehen Sie zurück zum Arbeitsblatt und geben Sie die folgende Formel in eine leere Zelle ein. Ziehen Sie dann den Ausfüllkästchen nach unten, um diese Formel auf andere Zellen anzuwenden. Alle Zahlen wurden in Wörtern im Rupien-Format geschrieben.
=RupeeFormat(A2)
Konvertieren Sie Zahlen in englische Dollar-Wörter oder andere Währungen mit einem erstaunlichen Feature
Vereinfachen Sie Ihre Excel-Aufgaben und steigern Sie Ihre Produktivität mit „Kutools für Excel“. „Kutools für Excel“ bietet eine leistungsstarke Funktion – „Zahlen in Wörter“, die über 40 Währungskonvertierungsoptionen bietet und Ihnen hilft, Zahlen schnell in chinesische YUAN, englische Dollar oder andere Währungswörter mit nur wenigen Klicks umzuwandeln.
Nach der Installation von Kutools für Excel gehen Sie wie folgt vor:
1. Wählen Sie die Liste der Zahlen aus, die Sie konvertieren möchten, und klicken Sie dann auf „Kutools“ > „Text“ > „Zahlen in Wörter“.
2. Wählen Sie im Dialogfeld „Zahlen in Währungswörter“ eine Währungsoption im Abschnitt „Sprache“ aus, siehe Screenshot:
3. Klicken Sie dann auf die Schaltfläche „OK“. Die Zahlen in der Auswahl wurden in die benötigten spezifischen Währungswörter konvertiert.
Die besten Tools zur Büroproduktivität
Kutools für Excel löst die meisten Ihrer Probleme und steigert Ihre Produktivität um 80 %
- Super Formel-Leiste (F) (mehrere Zeilen Text und Formeln einfach bearbeiten); Lese-Layout (einfaches Lesen und Bearbeiten einer großen Anzahl von Zellen); Einfügen in gefilterte Bereiche...
- Zellen/Zeilen/Spalten zusammenführen und Daten behalten; Zellinhalt aufteilen; Doppelte Zeilen zusammenführen und Summe/Durchschnitt berechnen... Doppelte Zellen verhindern; Bereiche vergleichen...
- Doppelte oder eindeutige Zeilen auswählen; Leere Zeilen auswählen (alle Zellen sind leer); Super Suchen und unscharfes Suchen in vielen Arbeitsmappen; Zufällige Auswahl...
- Exakte Kopie mehrerer Zellen ohne Änderung der Formelreferenz; Automatisches Erstellen von Referenzen zu mehreren Blättern; Aufzählungszeichen, Kontrollkästchen und mehr einfügen...
- Formeln, Bereiche, Diagramme und Bilder favorisieren und schnell einfügen; Zellen mit Passwort verschlüsseln; Mailingliste erstellen und E-Mails senden...
- Text extrahieren, Text hinzufügen, Zeichen an einer bestimmten Position entfernen, Leerzeichen entfernen; Druckstatistik erstellen und drucken; Zwischen Zelleninhalt und Kommentaren konvertieren...
- Super Filter (Filter-Schemata speichern und auf andere Blätter anwenden); Erweiterte Sortierung nach Monat/Woche/Tag, Häufigkeit und mehr; Spezialfilter nach Fett, Kursiv...
- Arbeitsmappen und Arbeitsblätter konsolidieren; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten auf mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
- Gruppierung von PivotTables nach Kalenderwoche, Wochentag und mehr... Entsperre und gesperrte Zellen durch unterschiedliche Farben anzeigen; Zellen mit Formel/Name hervorheben...
- Aktivieren Sie die Registerkarten-Bearbeitung und den Lese-Modus in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs desselben Fensters, anstatt in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert Hunderte von Mausklicks täglich!
