Excel gir ingen standardfunksjon som konverterer et tall eller beløp i ord i indiske rupier eller noen valuta. Men det betyr ikke at vi ikke kan konvertere tall til indisk rupi. Vi kan lage en tilpasset Excel -formel for å konvertere tall til ord i indiske rupier. Jeg har opprettet denne egendefinerte funksjonen for å konvertere tall til ord når det gjelder indiske rupier. Du kan laste ned makrofilen nedenfor. Jeg har nevnt koden nedenfor og forklart litt, slik at du kan gjøre endringer i henhold til dine krav.
Excel -funksjon for å skjule tall til ord i indiske rupier
Så bruk denne funksjonen til å konvertere et beløp eller tall på 10 siffer eller mindre til ord eller rupi. Jeg har navngitt denne funksjonen NUM_TO_IND_RUPEE_WORD. Syntaksen til denne funksjonen er:
= NUM_TO_IND_RUPEE_WORD (nummer) |
Du kan laste ned den fungerende makrofilen ned:
Nummer til Words indisk rupi
Nå er funksjonskoden nevnt nedenfor.
Denne koden er delt inn i fire individuelle funksjoner. Hovedfunksjonen er NUM_TO_IND_RUPEE_WORD. Og andre tre funksjoner GetHunderds (), GetTens () og GetDigits hjelper funksjon som hjelper hovedfunksjonen med å danne strengen.
Funksjon NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Valgfrie inkRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace So 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 representasjon av beløp. MyNumber = Trim (Str (MyNumber)) 'Posisjon til desimal 0 hvis ingen. DecimalPlace = InStr (MyNumber, ".") 'Konverter Paise og sett MyNumber til Rupees -beløp. 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 = 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 Velg Select Case Paise Case "": Paise = "og Paise Zero Only" Case "One": Paise = "og Paise One Only" Case Else: Paise = "og Paise" & Paise & "Only" End Select 'og opprett ordstreng for å oversette tall til ord NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function 'Konverterer et tall fra 100-999 til tekst Funksjon 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 'Convert the tiers 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 nummer fra 10 til 99 i tekst. Funksjon GetTens (TensText) Dim Resultat som strengresultat = "" 'Null ut den midlertidige funksjonsverdien. Hvis Val (Venstre (TensText, 1)) = 1 Deretter 'If verdi mellom 10-19 … Velg Case Val (TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve "Sak 13: resultat =" tretten "sak 14: resultat =" fjorten "sak 15: resultat =" femten "sak 16: resultat =" seksten "sak 17: resultat =" sytten "sak 18: resultat =" atten "sak 19: Result = "Nineteen" Case Else End Velg Else 'If verdi mellom 20-99 … Velg Case Val (Venstre (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 Velg resultat = Resultat & GetDigit _ (Høyre (TensText, 1)) 'Hent stedet. Slutt hvis GetTens = Resultat Sluttfunksjon 'Konverterer et tall fra 1 til 9 til tekst. Funksjon GetDigit (Digit) Velg 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
Koden for funksjonen er lang, men lett å forstå.
For å bruke denne koden må du sette inn en modul i VBE og kopiere den. Og funksjonen er klar til å brukes på arket direkte. Det vil konvertere tallet til ord, spesielt i indisk rupi -format.
Så ja gutta, slik kan du bruke en egendefinert funksjon i Excel til å konvertere tall til ord. Jeg håper dette er nyttig. Hvis du er i tvil om denne artikkelen eller en annen funksjon, kan du spørre i kommentarfeltet nedenfor.
Lag VBA -funksjon for å returnere matrise| For å returnere en matrise ved hjelp av en egendefinert funksjon i Excel bruker vi en litt annen syntaks for å skrive den egendefinerte funksjonen. Denne funksjonen returnerer en rekke verdier i stedet for bare én verdi.
Matriser i Excel Formula| Matrisene er en samlingsverdi av samme type på hvert fagspråk. I excel er det det samme, men behandlet litt annerledes enn andre programmeringsspråk …
Hvordan lage brukerdefinert funksjon gjennom VBA| Lær hvordan du oppretter brukerdefinerte funksjoner i Excel.
Bruke en brukerdefinert funksjon (UDF) fra en annen arbeidsbok ved hjelp av VBA i Microsoft Excel| Bruk den brukerdefinerte funksjonen i en annen arbeidsbok i Excel.
Returner feilverdier fra brukerdefinerte funksjoner ved hjelp av VBA i Microsoft Excel| Lær hvordan du kan returnere feilverdier fra en brukerdefinert funksjon.
Populære artikler:
50 Excel -snarveier for å øke produktiviteten | Bli raskere på oppgaven din. Disse 50 snarveiene får deg til å jobbe enda raskere med Excel.
Slik bruker du Excel VLOOKUP -funksjon| Dette er en av de mest brukte og populære funksjonene til excel som brukes til å slå opp verdi fra forskjellige områder og ark.
Slik bruker du Excel COUNTIF -funksjon| Tell verdier med betingelser ved hjelp av denne fantastiske funksjonen. Du trenger ikke å filtrere dataene dine for å telle spesifikk verdi. Countif -funksjonen er avgjørende for å forberede dashbordet.
Slik bruker du SUMIF -funksjonen i Excel | Dette er en annen viktig funksjon på dashbordet. Dette hjelper deg med å oppsummere verdier på spesifikke forhold.