Excel giver ikke nogen standardfunktion, der konverterer et tal eller beløb i ord i indiske rupees eller en anden valuta. Men det betyder ikke, at vi ikke kan konvertere nummer til indisk rupee. Vi kan oprette en brugerdefineret Excel -formel til konvertering af tal til ord i indiske rupees. Jeg har oprettet denne brugerdefinerede funktion til at konvertere nummer til ord i form af indiske rupees. Du kan downloade makrofilen herunder. Jeg har nævnt koden herunder og forklaret en lille smule, så du kan foretage ændringer i henhold til dine krav.
Excel -funktion til at skjule nummer til ord i indiske rupees
Så brug denne funktion til at konvertere et beløb eller tal på 10 cifre eller mindre til ord eller rupees. Jeg har navngivet denne funktion NUM_TO_IND_RUPEE_WORD. Syntaksen for denne funktion er:
| = NUM_TO_IND_RUPEE_WORD (nummer) |
Du kan downloade den fungerende makrofil ned:
Nummer til Words indian rupee
Nu er funktionens kode nævnt nedenfor.
Denne kode er opdelt i fire individuelle funktioner. Hovedfunktionen er NUM_TO_IND_RUPEE_WORD. Og andre tre funktioner GetHunderds (), GetTens () og GetDigits hjælper funktion, der hjælper hovedfunktionen med at danne strengen.
Funktion NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Valgfri 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 repræsentation af beløb. MyNumber = Trim (Str (MyNumber)) 'Placering af decimal 0, hvis ingen. DecimalPlace = InStr (MyNumber, ".") 'Konverter Paise og sæt MyNumber til Rupees beløb. Hvis DecimalPlace> 0 Så Paise = GetTens (Venstre (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 Afslut Vælg Select Case Paise Case "": Paise = "og Paise Zero Only" Case "One": Paise = "og Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'opretter ordstreng for at oversætte tal til ord NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function 'Konverterer et tal fra 100-999 til tekst Funktion GetHundreds (ByVal MyNumber) Dim Resultat As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right ("000" & MyNumber, 3) 'Konverter hundredvis -stedet. Hvis Mid (MyNumber, 1, 1) "0" Så er Resultat = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Konverter tiere og enerne. Hvis Mid (MyNumber, 2, 1) "0" Så er Resultat = Resultat & GetTens (Midt (MyNummer, 2)) Else Resultat = Resultat & GetDigit (Mid (MyNumber, 3)) Slut Hvis GetHundreds = Resultatafslutningsfunktion 'Konverterer en nummer fra 10 til 99 i tekst. Funktion GetTens (TensText) Dim Resultat som strengresultat = "" 'Nul den midlertidige funktionsværdi. Hvis Val (Venstre (TensText, 1)) = 1 Så 'Hvis værdi mellem 10-19 … Vælg Case Val (TensText) Case 10: Result = "Ten" Case 11: Result = "Eleven" Case 12: Result = "Twelve "Sag 13: Resultat =" Tretten "Sag 14: Resultat =" Fjorten "Sag 15: Resultat =" Femten "Sag 16: Resultat =" Seksten "Sag 17: Resultat =" Sytten "Sag 18: Resultat =" Atten "Sag 19: Result = "Nineteen" Case Else End Vælg Else 'If-værdi mellem 20-99 … Vælg Case Val (Venstre (TensText, 1)) Case 2: Result = "Twenty" Case 3: Result = "Thirty" Case 4: Resultat = "Fyrre" sag 5: Resultat = "halvtreds" sag 6: resultat = "tres" sag 7: resultat = "halvfjerds" sag 8: resultat = "firs" sag 9: resultat = "halvfems" sag anden ende Vælg resultat = Result & GetDigit _ (Right (TensText, 1)) 'Hent et sted. Slut hvis GetTens = Resultat Slutfunktion 'Konverterer et tal fra 1 til 9 til tekst. Funktion GetDigit (ciffer) Vælg 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 =" Otte "Case 9: GetDigit =" Nine "Case Else: GetDigit =" "End Select End Function
Funktionskoden er lang, men let at forstå.
For at bruge denne kode skal du indsætte et modul i VBE og kopiere den. Og funktionen er klar til at blive brugt på arket direkte. Det vil konvertere tallet til ord, specifikt i indisk rupee -format.
Så ja fyre, sådan kan du bruge en brugerdefineret funktion i Excel til at konvertere tal til ord. Jeg håber, at dette er nyttigt. Hvis du er i tvivl om denne artikel eller en anden funktion, så spørg i kommentarfeltet herunder.
Opret VBA -funktion for at returnere matrix| For at returnere en matrix ved hjælp af en brugerdefineret funktion i Excel bruger vi en lidt anden syntaks til at skrive den tilpassede funktion. Denne funktion returnerer en række værdier i stedet for kun én værdi.
Arrays i Excel Formula| Arraysne er en samlingsværdi af samme type på alle tekniske sprog. I excel er det det samme, men behandlet lidt anderledes end andre programmeringssprog …
Sådan oprettes brugerdefineret funktion via VBA| Lær, hvordan du opretter brugerdefinerede funktioner i Excel.
Brug af en brugerdefineret funktion (UDF) fra en anden projektmappe ved hjælp af VBA i Microsoft Excel| Brug den brugerdefinerede funktion i en anden projektmappe i Excel.
Returner fejlværdier fra brugerdefinerede funktioner ved hjælp af VBA i Microsoft Excel| Lær, hvordan du kan returnere fejlværdier fra en brugerdefineret funktion.
Populære artikler:
50 Excel -genveje til at øge din produktivitet | Få hurtigere til din opgave. Disse 50 genveje får dig til at arbejde endnu hurtigere i Excel.
Sådan bruges Excel VLOOKUP -funktion| Dette er en af de mest anvendte og populære funktioner i excel, der bruges til at slå værdi op fra forskellige områder og ark.
Sådan bruges Excel COUNTIF -funktion| Tæl værdier med betingelser ved hjælp af denne fantastiske funktion. Du behøver ikke at filtrere dine data for at tælle specifik værdi. Countif -funktion er afgørende for at forberede dit dashboard.
Sådan bruges SUMIF -funktionen i Excel | Dette er endnu en vigtig instrumentbrætfunktion. Dette hjælper dig med at opsummere værdier på bestemte betingelser.