Excel ne nudi zadanu funkciju koja pretvara broj ili iznos riječima u indijske rupije ili bilo koju valutu. Ali to ne znači da broj ne možemo pretvoriti u indijsku rupiju. Možemo stvoriti prilagođenu Excel formulu za pretvaranje broja u riječi u indijskim rupijama. Ja sam stvorio ovu prilagođenu funkciju za pretvaranje broja u riječi u smislu indijskih rupija. Ispod možete preuzeti makro datoteku. Spomenuo sam donji kôd i malo objasnio, tako da možete unijeti promjene prema svojim zahtjevima.
Excel funkcija za prikrivanje broja riječi u indijskim rupijama
Stoga koristite ovu funkciju za pretvaranje bilo kojeg 10 -znamenkasti ili manji iznos ili broj u riječi ili rupije. Ovu sam funkciju nazvao NUM_TO_IND_RUPEE_WORD. Sintaksa ove funkcije je:
| = NUM_TO_IND_RUPEE_WORD (broj) |
Radnu datoteku makronaredbe možete preuzeti prema dolje:
Broj u riječi indijska rupija
Sada se kod funkcije spominje u nastavku.
Ovaj je kôd podijeljen u četiri pojedinačne funkcije. Glavna funkcija je NUM_TO_IND_RUPEE_WORD. Ostale tri funkcije GetHunderds (), GetTens () i GetDigits pomažu funkciji koja pomaže glavnoj funkciji u formiranju niza.
Funkcija 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" : Mjesto (3) = "Milijun" Mjesto (4) = "Milijarda": Mjesto (5) = "Trilion" 'String prikaz iznosa. MyNumber = Trim (Str (MyNumber)) 'Pozicija decimalnog mjesta 0 ako nema. DecimalPlace = InStr (MyNumber, ".") 'Pretvorite Paise i postavite MyNumber na iznos rupija. Ako je DecimalPlace> 0 Tada Paise = GetTens (Lijevo (Srednji (Moj broj, Decimalno mjesto + 1) & "00", 2)) MojBroj = Trim (Lijevo (MojBroj, Decimalno Mjesto - 1)) Kraj Ako je myCrores = MojBroj \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds (Desno (myCrores, 3)) If Temp "" Zatim Crores = Temp & Place (Broji ) & 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 (Desno (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 = "" Kraj ako je broj = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Other: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Slučaj "Jedan": Lakhs = "One Lakh" Slučaj Inače: Lakhs = Lakhs & "Lakhs" End Select Select Case Rupees Case "": Rupees = "Zero" Case "One": Rupees = "One" Case Else: Rupee = Rupees End Select Select Case Paise Case "": Paise = "i Paise Zero Only" Case "One": Paise = "and Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'stvarajući niz riječi za prevođenje broja u riječi NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function 'Pretvara broj od 100-999 u tekst Funkcija GetHundreds (ByVal MyNumber) Dim Result Kao niz Ako je Val (MyNumber) = 0 Zatim izađite iz funkcije MyNumber = Right ("000" & MyNumber, 3) 'Pretvorite mjesto stotina. Ako sredina (MyNumber, 1, 1) "0", tada je rezultat = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End If 'Pretvorite mjesto desetica i jedinica. Ako je sredina (MyNumber, 2, 1) "0" then Result = Result & GetTens (Mid (MyNumber, 2)) Else Result = Result & GetDigit (Mid (MyNumber, 3)) End Ako je GetHundreds = Result End funkcija 'Pretvara broj od 10 do 99 u tekst. Funkcija GetTens (TensText) Dim Result As String Result = "" 'Null za privremenu vrijednost funkcije. Ako je Val (lijevo (TensText, 1)) = 1 Zatim 'Ako je vrijednost između 10-19 … Odaberite Valutu slučaja (TensText) Slučaj 10: Rezultat = "Deset" Slučaj 11: Rezultat = "Jedanaest" Slučaj 12: Rezultat = "Dvanaest "Slučaj 13: Rezultat =" Trinaest "Slučaj 14: Rezultat =" Četrnaest "Slučaj 15: Rezultat =" Petnaest "Slučaj 16: Rezultat =" Šesnaest "Slučaj 17: Rezultat =" Sedamnaest "Slučaj 18: Rezultat =" Osamnaest "slučaj 19: Rezultat = "Devetnaest" Slučaj Drugi kraj Odaberite Ostalo 'Ako je vrijednost između 20-99 … Odaberite vrijednost slučaja (lijevo (TensText, 1)) Slučaj 2: Rezultat = "Dvadeset" Slučaj 3: Rezultat = "Trideset" Slučaj 4: Rezultat = "Četrdeset" Slučaj 5: Rezultat = "Pedeset" Slučaj 6: Rezultat = "Šezdeset" Slučaj 7: Rezultat = "Sedamdeset" Slučaj 8: Rezultat = "Osamdeset" Slučaj 9: Rezultat = "Devedeset" Slučaj Drugi kraj Odabir rezultata = Rezultat & GetDigit _ (Desno (TensText, 1)) '' Dohvatite svoje mjesto. Kraj ako je GetTens = Rezultat Krajnja funkcija 'Pretvara broj od 1 do 9 u tekst. Funkcija GetDigit (znamenka) Odabir vrijednosti slova (znamenka) Slučaj 1: GetDigit = "Jedan" Slučaj 2: GetDigit = "Dva" Slučaj 3: GetDigit = "Tri" Slučaj 4: GetDigit = "Četiri" Slučaj 5: GetDigit = "Pet "Slučaj 6: GetDigit =" Šest "Slučaj 7: GetDigit =" Sedam "Slučaj 8: GetDigit =" Osam "Slučaj 9: GetDigit =" Devet "Slučaj Ostalo: GetDigit =" "Kraj Odaberite funkciju završetka
Kod funkcije je dug, ali lako razumljiv.
Za korištenje ovog koda umetnite modul u VBE i kopirajte ga zalijepite. A funkcija je spremna za izravnu uporabu na listu. Pretvorit će broj u riječi, posebno u formatu indijske rupije.
Pa da, dečki, evo kako možete koristiti prilagođenu funkciju u Excelu za pretvaranje broja u riječi. Nadam se da je ovo od pomoći. Ako imate nedoumica u vezi s ovim člankom ili bilo kojom drugom funkcijom, pitajte u odjeljku komentara ispod.
Izradite VBA funkciju za vraćanje niza| Za vraćanje niza pomoću prilagođene funkcije u Excelu koristimo nešto drugačiju sintaksu za pisanje prilagođene funkcije. Ova funkcija vraća niz vrijednosti umjesto samo jedne vrijednosti.
Nizovi u formuli Excel| Nizovi su zbirke vrijednosti iste vrste u svakom tehničkom jeziku. U Excelu je isti, ali tretiran malo drugačije od ostalih programskih jezika …
Kako stvoriti korisnički definiranu funkciju putem VBA -a| Saznajte kako stvoriti korisnički definirane funkcije u Excelu.
Korištenje korisnički definirane funkcije (UDF) iz druge radne knjige pomoću VBA u programu Microsoft Excel| Koristite korisnički definiranu funkciju u drugoj radnoj knjizi programa Excel.
Vratite vrijednosti pogrešaka iz korisnički definiranih funkcija pomoću VBA u Microsoft Excelu| Saznajte kako možete vratiti vrijednosti pogreške iz korisnički definirane funkcije.
Popularni članci:
50 Excel prečaca za povećanje vaše produktivnosti | Budite brži u izvršavanju svojih zadataka. Ovih 50 prečaca učinit će da radite još brže na Excelu.
Kako koristiti Excel VLOOKUP funkciju| Ovo je jedna od najčešće korištenih i popularnih funkcija programa Excel koja se koristi za traženje vrijednosti iz različitih raspona i listova.
Kako koristiti Excel COUNTIF funkcija| Brojte vrijednosti s uvjetima pomoću ove nevjerojatne funkcije. Ne morate filtrirati svoje podatke da biste računali određenu vrijednost. Funkcija Countif bitna je za pripremu vaše nadzorne ploče.
Kako koristiti funkciju SUMIF u Excelu | Ovo je još jedna bitna funkcija nadzorne ploče. To vam pomaže pri zbrajanju vrijednosti u posebnim uvjetima.