Wie Konvertieren Anzahl an Wörtern in Excel in Rupees
Excel bietet keine Standardfunktion, die eine Zahl oder einen Betrag in Wörter in indischen Rupien oder einer beliebigen Währung umrechnet. Das heißt aber nicht, dass wir die Zahl 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 Wörter in indischen Rupien umzuwandeln. Sie können die unten stehende Makrodatei herunterladen. Ich habe den folgenden Code erwähnt und ein wenig erklärt, damit Sie Änderungen gemäß Ihren Anforderungen vornehmen können.
Excel-Funktion zum Verdecken von Zahlen in Wörter in indischen Rupien Verwenden Sie diese Funktion, um eine beliebige 10-stellige Menge oder Zahl in Wörter oder Rupien umzuwandeln. Ich habe diese Funktion NUM_TO_IND_RUPEE_WORD genannt. Die Syntax dieser Funktion lautet:
|
=NUM_TO_IND_RUPEE_WORD(number) |
Sie können die Arbeitsmakrodatei nach unten herunterladen:
`link: /wp-content-uploads-2020-03-Number-to-Words-indian-rupee.xls [Zahl zu Wörtern indische Rupie]
Nun wird der Code der Funktion unten erwähnt.
Dieser Code ist in vier einzelne Funktionen unterteilt. Die Hauptfunktion ist NUM_TO_IND_RUPEE_WORD. Die anderen drei Funktionen GetHunderds (), GetTens () und GetDigits unterstützen die Funktion, mit der die Hauptfunktion den String bilden kann.
Function 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) = " Billion ": Place(5) = " Trillion "
' String representation of amount.
MyNumber = Trim(Str(MyNumber))
' Position of decimal place 0 if none.
DecimalPlace = InStr(MyNumber, ".")
' Convert Paise and set MyNumber to Rupees amount.
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)
Else
MyNumber = ""
End If
Count = Count + 1
Loop
Select Case Crores
Case "": Crores = ""
Case "One": Crores = " One Crore "
Case Else: Crores = Crores & " Crores "
End Select
Select Case Lakhs
Case "": Lakhs = ""
Case "One": Lakhs = " One Lakh "
Case Else: Lakhs = Lakhs & " Lakhs "
End Select
Select Case Rupees
Case "": Rupees = "Zero "
Case "One": Rupees = "One "
Case Else:
Rupees = Rupees
End Select
Select Case Paise
Case "": Paise = " and Paise Zero Only "
Case "One": Paise = " and Paise One Only "
Case Else: Paise = " and Paise " & Paise & " Only "
End Select
'creating the string of words to translate number into words
NUM_TO_IND_RUPEE_WORD = IIf(incRupees, "Rupees ", "") & Crores & _ Lakhs & Rupees & Paise
End Function
' Converts a number from 100-999 into text
Function GetHundreds(ByVal MyNumber)
Dim Result As String
If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right("000" & MyNumber, 3)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' Convert the tens and ones place.
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
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' If value between 10-19...
Select Case Val(TensText)
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 ' If value between 20-99...
Select Case Val(Left(TensText, 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(TensText, 1)) ' Retrieve ones place.
End If
GetTens = Result
End Function
' Converts a number from 1 to 9 into text.
Function 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"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
Der Code der Funktion ist lang, aber leicht zu verstehen.
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 kann direkt auf dem Blatt verwendet werden. Die Zahl wird in Wörter umgewandelt, insbesondere im indischen Rupienformat.
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.
Verwandte Artikel:
link: / excel-array-formeln-arrays-in-excel-formel [Arrays in Excel-Formel] * | Die Arrays sind Sammlungswerte des gleichen Typs in jeder Fachsprache. In Excel ist es gleich, wird aber etwas anders behandelt als andere Programmiersprachen.
link: / vba-user-defined-function [So erstellen Sie eine benutzerdefinierte Funktion über VBA] * | Erfahren Sie, wie Sie benutzerdefinierte Funktionen in Excel erstellen.
link: / custom-functions-userdefined-functions-from-other-workbooks-using-vba-in-microsoft-excel [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.
link: / custom-functions-return-error-values-from-user-defined-functions-using-vba-in-microsoft-excel [Rückgabe von Fehlerwerten von benutzerdefinierten Funktionen mit VBA in Microsoft Excel] * | Erfahren Sie, wie Sie Fehlerwerte von einer benutzerdefinierten Funktion zurückgeben können.
Beliebte Artikel:
link: / Tastatur-Formel-Verknüpfungen-50-Excel-Verknüpfungen-zur-Steigerung-Ihrer-Produktivität [50 Excel-Verknüpfungen zur Steigerung Ihrer Produktivität] | Werden Sie schneller bei Ihrer Aufgabe. Mit diesen 50 Verknüpfungen können Sie noch schneller in Excel arbeiten.
link: / formeln-und-funktionen-einführung-der-vlookup-funktion [Verwendung der Excel VLOOKUP-Funktion] | Dies ist eine der am häufigsten verwendeten und beliebtesten Funktionen von Excel, mit der Werte aus verschiedenen Bereichen und Tabellen gesucht werden.
link: / tips-countif-in-microsoft-excel [Verwendung des]
link: / formeln-und-funktionen-einführung-der-vlookup-funktion [Excel]
link: / tips-countif-in-microsoft-excel [COUNTIF-Funktion] | Zählen Sie Werte mit Bedingungen, die diese erstaunliche Funktion verwenden.
Sie müssen Ihre Daten nicht filtern, um einen bestimmten Wert zu zählen. Die Countif-Funktion ist wichtig, um Ihr Dashboard vorzubereiten.
link: / excel-formel-und-funktion-excel-sumif-funktion [Verwendung der SUMIF-Funktion in Excel] | Dies ist eine weitere wichtige Funktion des Dashboards. Auf diese Weise können Sie Werte unter bestimmten Bedingungen zusammenfassen.