Excel tillhandahåller ingen standardfunktion som konverterar ett tal eller belopp i ord i indiska rupier eller någon valuta. Men det betyder inte att vi inte kan konvertera nummer till indisk rupie. Vi kan skapa en anpassad Excel -formel för att konvertera tal till ord i indiska rupier. Jag har skapat den här anpassade funktionen för att konvertera nummer till ord när det gäller indiska rupier. Du kan ladda ner makrofilen nedan. Jag har nämnt koden nedan och förklarat lite, så att du kan göra ändringar enligt dina krav.
Excel -funktion för att dölja tal till ord i indiska rupier
Så använd den här funktionen för att konvertera alla 10 -siffriga eller mindre belopp eller tal till ord eller rupier. Jag har döpt den här funktionen till NUM_TO_IND_RUPEE_WORD. Syntaxen för denna funktion är:
| = NUM_TO_IND_RUPEE_WORD (nummer) |
Du kan ladda ner den fungerande makrofilen ner:
Antal till ord indiska rupier
Nu nämns funktionskoden nedan.
Denna kod är uppdelad i fyra individuella funktioner. Huvudfunktionen är NUM_TO_IND_RUPEE_WORD. Och andra tre funktioner GetHunderds (), GetTens () och GetDigits hjälper funktioner som hjälper huvudfunktionen att bilda strängen.
Funktion NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Valfria inkrupeer som Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace så länge, 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)) 'Decimalens position 0 om ingen. DecimalPlace = InStr (MyNumber, ".") 'Konvertera Paise och ställ in MyNumber till Rupees -belopp. 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 loop = 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 = C ount + 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 = "och Paise Zero Only" Case "One": Paise = "och Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'skapar ordsträng för att översätta tal till ord NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function 'Konverterar ett tal från 100-999 till text Funktion GetHundreds (ByVal MyNumber) Dim Resultat As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right ("000" & MyNumber, 3) 'Convert the hundred place. If Mid (MyNumber, 1, 1) "0" Then Result = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Konvertera tiotalet och enorna. 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 nummer från 10 till 99 i text. Funktion GetTens (TensText) Dim Resultat som strängresultat = "" 'Nullera det tillfälliga funktionsvärdet. 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 "Fall 13: Resultat =" Tretton "fall 14: resultat =" fjorton "fall 15: resultat =" femton "fall 16: resultat =" sexton "fall 17: resultat =" sjutton "fall 18: resultat =" arton "fall 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: Resultat = "fyrtio" fall 5: resultat = "femtio" fall 6: resultat = "sextio" fall 7: resultat = "sjuttio" fall 8: resultat = "åttio" fall 9: resultat = "nittio" fall Annat slut Välj resultat = Result & GetDigit _ (Right (TensText, 1)) 'Hämta en plats. Avsluta om GetTens = Resultat Avsluta funktion 'Konverterar ett tal från 1 till 9 till text. Funktion GetDigit (siffer) Välj fall Val (siffra) fall 1: GetDigit = "ett" fall 2: GetDigit = "två" fall 3: GetDigit = "tre" fall 4: GetDigit = "fyra" fall 5: GetDigit = "fem "Case 6: GetDigit =" Six "Case 7: GetDigit =" Seven "Case 8: GetDigit =" Eight "Case 9: GetDigit =" Nine "Case Else: GetDigit =" "End Select End Function
Koden för funktionen är lång men lätt att förstå.
För att använda denna kod, sätt in en modul i VBE och kopiera den. Och funktionen är klar att användas på arket direkt. Det kommer att konvertera numret till ord, särskilt i indiskt rupieformat.
Så ja killar, så här kan du använda en anpassad funktion i Excel för att konvertera nummer till ord. Jag hoppas att detta är till hjälp. Om du har några tvivel angående denna artikel eller någon annan funktion, fråga i kommentarfältet nedan.
Skapa VBA -funktion för att returnera matris| För att returnera en matris med en anpassad funktion i Excel använder vi en något annorlunda syntax för att skriva den anpassade funktionen. Denna funktion returnerar en rad värden istället för bara ett värde.
Matriser i Excel Formula| Matriserna är samlingsvärden av samma typ på alla tekniska språk. I excel är det samma men behandlas något annorlunda än andra programmeringsspråk …
Hur man skapar användardefinierad funktion via VBA| Lär dig hur du skapar användardefinierade funktioner i Excel.
Använda en användardefinierad funktion (UDF) från en annan arbetsbok med VBA i Microsoft Excel| Använd den användardefinierade funktionen i en annan arbetsbok i Excel.
Returnera felvärden från användardefinierade funktioner med VBA i Microsoft Excel| Lär dig hur du kan returnera felvärden från en användardefinierad funktion.
Populära artiklar:
50 Excel -genvägar för att öka din produktivitet | Bli snabbare på din uppgift. Dessa 50 genvägar får dig att arbeta ännu snabbare med Excel.
Hur man använder Excel VLOOKUP -funktion| Detta är en av de mest använda och populära Excel -funktionerna som används för att leta upp värde från olika intervall och ark.
Hur man använder Excel COUNTIF -funktion| Räkna värden med förhållanden med denna fantastiska funktion. Du behöver inte filtrera dina data för att räkna specifikt värde. Countif -funktionen är avgörande för att förbereda din instrumentpanel.
Hur man använder SUMIF -funktionen i Excel | Detta är en annan viktig instrumentpanel. Detta hjälper dig att summera värden på specifika förhållanden.