Excel bietet keine Standardfunktion, die eine Zahl oder einen Betrag in Wörtern in indische Rupien oder eine andere Währung umwandelt. Aber das bedeutet nicht, dass wir Zahlen nicht in indische Rupie umrechnen können. Wir können eine benutzerdefinierte Excel-Formel erstellen, um Zahlen in Wörter in indischen Rupien umzuwandeln. Ich habe diese benutzerdefinierte Funktion erstellt, um Zahlen in indische Rupien in Wörter umzuwandeln. Sie können die Makrodatei unten herunterladen. Ich habe den Code unten erwähnt und ein wenig erklärt, damit Sie Änderungen nach Ihren Anforderungen vornehmen können.
Excel-Funktion zum Umwandeln von Zahlen in Wörter in indischen Rupien
Verwenden Sie also diese Funktion, um einen beliebigen Betrag oder eine Zahl mit 10 Stellen oder weniger in Wörter oder Rupien umzuwandeln. Ich habe diese Funktion NUM_TO_IND_RUPEE_WORD genannt. Die Syntax dieser Funktion ist:
| =NUM_TO_IND_RUPEE_WORD(Zahl) |
Sie können die Arbeitsmakrodatei herunterladen:
Zahl zu Wörter Indische Rupie
Nun wird der Code der Funktion unten erwähnt.
Dieser Code ist in vier Einzelfunktionen unterteilt. Die Hauptfunktion ist NUM_TO_IND_RUPEE_WORD. Und die anderen drei Funktionen GetHunderds(), GetTens() und GetDigits helfen Funktionen, die der Hauptfunktion helfen, den String zu bilden.
Funktion NUM_TO_IND_RUPEE_WORD(ByVal MyNumber, Optional incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace As Long, Count As Long Dim myLakhs, myCrores ReDim Place(9) As String Place(2) = " Thousand " : Place(3) = "Million" Place(4) = "Milliarde": Place(5) = "Billion" ' Stringdarstellung des Betrags. MyNumber = Trim(Str(MyNumber)) ' Position der Dezimalstelle 0 falls keine. DecimalPlace = InStr(MyNumber, ".") ' Paise umwandeln und MyNumber auf Rupienbetrag setzen. If DecimalPlace > 0 Then Paise = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim(Left(MyNumber, DecimalPlace - 1)) End If myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds(Right(myCrores, 3)) If Temp "" Then Crores = Temp & Place(Count ) & Crores If Len(myCrores) > 3 Then myCrores = Left(myCrores, Len(myCrores) - 3) Else myCrores = "" End If Count = Count + 1 Loop Count = 1 Do While myLakhs "" Temp = GetHundreds(Right (myLakhs, 3)) If Temp "" Then Lakhs = Temp & Place(Count) & Lakhs If Len(myLakhs) > 3 Then myLakhs = Left(myLakhs, Len(myLakhs) - 3) Else myLakhs = "" End If Count = Count + 1 Loop Count = 1 Do While MyNumber "" Temp = GetHundreds(Right(MyNumber, 3)) If Temp "" Then Rupees = Temp & Place(Count) & Rupees If Len(MyNumber) > 3 Then MyNumber = Left (MyNumber, Len(MyNumber) - 3) Sonst MyNumber = "" End If Count = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = " One Crore " Case Else: Crores = Crores & " Crores " End Select Case auswählen Lakhs Case "": Lakhs = "" Case "One": Lakhs = " One Lakh " Case Else: Lakhs = Lakhs & " Lakhs " End Select Case auswählen Rupees Case "": Rupees = "Null " Case "One": Rupees = "One " Case Else: Rupees = Rupees End Select Case auswählen Paise Case "": Paise = " und Paise Zero Only " Case "One": Paise = " und Paise One Only " Case Else: Paise = " und Paise " & Paise & " Only " End Select 'Erstellen der Wortfolge, um Zahl in Worte zu übersetzen NUM_TO_IND_RUPEE_WORD = IIf(incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function ' Konvertiert eine Zahl von 100-999 in Text Function GetHundreds(ByVal MyNumber) Dim Result As String If Val(MyNumber) = 0 Then Exit Function MyNumber = Right("000" & MyNumber, 3) ' Konvertieren Sie die Hunderterstelle. If Mid(MyNumber, 1, 1) "0" Then Result = GetDigit(Mid(MyNumber, 1, 1)) & "Hundert" End If ' Wandle die Zehner- und Einerstelle um. If Mid(MyNumber, 2, 1) "0" Then Result = Result & GetTens(Mid(MyNumber, 2)) Else Result = Result & GetDigit(Mid(MyNumber, 3)) End If GetHundreds = Result End Function ' Konvertiert a Zahl von 10 bis 99 in Text. Funktion GetTens(TensText) Dim Result As String Result = "" ' Den temporären Funktionswert auf Null setzen. If Val(Left(TensText, 1)) = 1 Then ' Wenn Wert zwischen 10-19… Select Case Val(TensText) Fall 10: Ergebnis = "Zehn" Fall 11: Ergebnis = "Elf" Fall 12: Ergebnis = "Zwölf " Fall 13: Ergebnis = "Dreizehn" Fall 14: Ergebnis = "Vierzehn" Fall 15: Ergebnis = "Fünfzehn" Fall 16: Ergebnis = "Sechzehn" Fall 17: Ergebnis = "Siebzehn" Fall 18: Ergebnis = "Achtzehn" Fall 19: Ergebnis = "Neunzehn" Fall Else End Select Else ' Wenn Wert zwischen 20-99… Select Case Val(Left(TensText, 1)) Fall 2: Ergebnis = "Zwanzig" Fall 3: Ergebnis = "Dreißig" Fall 4: Ergebnis = "Vierzig" Fall 5: Ergebnis = "Fünfzig" Fall 6: Ergebnis = "Sechzig" Fall 7: Ergebnis = "Siebzig" Fall 8: Ergebnis = "Achtzig" Fall 9: Ergebnis = "Neunzig" Fall Sonst Ende Ergebnis auswählen = Ergebnis & GetDigit _ (Right(TensText, 1)) ' Stelle zurück. End If GetTens = Result End Function ' Wandelt eine Zahl von 1 bis 9 in Text um. Funktion GetDigit(Digit) Select Case Val(Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five " Fall 6: GetDigit = "Sechs" Fall 7: GetDigit = "Sieben" Fall 8: GetDigit = "Acht" Fall 9: GetDigit = "Neun" Fall Else: GetDigit = "" End Select End Function
Der Code der Funktion ist lang, aber leicht verständlich.
Um diesen Code zu verwenden, fügen Sie ein Modul in VBE ein und kopieren Sie es und fügen Sie es ein. Und die Funktion ist direkt auf dem Blatt einsatzbereit. Es wandelt die Zahl in Wörter um, insbesondere in das Format der indischen Rupie.
Also ja, Leute, so können Sie eine benutzerdefinierte Funktion in Excel verwenden, um Zahlen in Wörter umzuwandeln. Ich hoffe, das ist hilfreich. Wenn Sie Zweifel an diesem Artikel oder einer anderen Funktion haben, fragen Sie im Kommentarbereich unten nach.
VBA-Funktion erstellen, um Array zurückzugeben| Um ein Array mit einer benutzerdefinierten Funktion in Excel zurückzugeben, verwenden wir eine etwas andere Syntax zum Schreiben der benutzerdefinierten Funktion. Diese Funktion gibt ein Array von Werten anstelle von nur einem Wert zurück.
Arrays in Excel-Formel|Die Arrays sind Sammlungswerte gleichen Typs in jeder Fachsprache. In Excel ist es gleich, wird aber etwas anders behandelt als in anderen Programmiersprachen…
So erstellen Sie eine benutzerdefinierte Funktion über VBA| Erfahren Sie, wie Sie benutzerdefinierte Funktionen in Excel erstellen.
Verwenden einer benutzerdefinierten Funktion (UDF) aus einer anderen Arbeitsmappe mit VBA in Microsoft Excel| Verwenden Sie die benutzerdefinierte Funktion in einer anderen Arbeitsmappe von Excel.
Fehlerwerte von benutzerdefinierten Funktionen mit VBA in Microsoft Excel zurückgeben| Erfahren Sie, wie Sie Fehlerwerte von einer benutzerdefinierten Funktion zurückgeben können.
Populäre Artikel:
50 Excel-Kurzbefehle zur Steigerung Ihrer Produktivität | Werden Sie schneller bei Ihrer Aufgabe. Mit diesen 50 Tastenkombinationen arbeiten Sie noch schneller mit Excel.
So verwenden Sie die Excel SVERWEIS-Funktion| Dies ist eine der am häufigsten verwendeten und beliebtesten Funktionen von Excel, die verwendet wird, um Werte aus verschiedenen Bereichen und Blättern zu suchen.
So verwenden Sie Excel ZÄHLENWENN-Funktion| Zählen Sie Werte mit Bedingungen mit dieser erstaunlichen Funktion. Sie müssen Ihre Daten nicht filtern, um einen bestimmten Wert zu zählen. Die Countif-Funktion ist unerlässlich, um Ihr Dashboard vorzubereiten.
So verwenden Sie die SUMIF-Funktion in Excel | Dies ist eine weitere wesentliche Funktion des Dashboards. Dies hilft Ihnen, Werte unter bestimmten Bedingungen zusammenzufassen.