Excel ne ponuja privzete funkcije, ki pretvori število ali znesek v besedah v indijskih rupijah ali kateri koli valuti. Vendar to ne pomeni, da številke ne moremo pretvoriti v indijsko rupijo. Ustvarimo lahko formulo Excel po meri za pretvorbo števila v besede v indijskih rupijah. Ustvaril sem to funkcijo po meri za pretvorbo številk v besede v smislu indijskih rupij. Spodaj lahko prenesete datoteko makra. Spodaj sem omenil kodo in jo malo razložil, tako da lahko glede na vaše zahteve naredite spremembe.
Excel funkcija za prikrito število besed v indijskih rupijah
Zato s to funkcijo pretvorite kateri koli 10 -mestni ali manjši znesek ali številko v besede ali rupije. To funkcijo sem poimenoval NUM_TO_IND_RUPEE_WORD. Sintaksa te funkcije je:
| = NUM_TO_IND_RUPEE_WORD (številka) |
Delovno datoteko makra lahko prenesete navzdol:
Številka do besed indijska rupija
Zdaj je spodaj omenjena koda funkcije.
Ta koda je razdeljena na štiri posamezne funkcije. Glavna funkcija je NUM_TO_IND_RUPEE_WORD. Druge tri funkcije GetHunderds (), GetTens () in GetDigits pomagajo funkciji, ki glavni funkciji pomaga oblikovati niz.
Funkcija NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Izbirno 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" 'Niz predstavitve zneska. MyNumber = Trim (Str (MyNumber)) 'Položaj decimalnega mesta 0, če ni. DecimalPlace = InStr (MyNumber, ".") 'Pretvorite Paise in nastavite MyNumber na znesek rupij. Če DecimalPlace> 0 Potem Paise = GetTens (Levo (Mid (MyNumber, DecimalPlace + 1) & "00", 2)) MyNumber = Trim (Left (MyNumber, DecimalPlace - 1)) End Če je myCrores = MyNumber \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds (desno (myCrores, 3)) If Temp "" Potem Crores = Temp & Place (Count ) & Crores If Len (myCrores)> 3 Potem je myCrores = Levo (myCrores, Len (myCrores) - 3) Sicer myCrores = "" Konec, če je 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 Potem je myLakhs = Levo (myLakhs, Len (myLakhs) - 3) Drugače myLakhs = "" Konec, če štejem = 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 Potem MyNumber = Levo (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" Konec, če šteje = 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 = "" Primer "One": Lakhs = "One Lakh" Case Other: Lakhs = Lakhs & "Lakhs" End Select Select Case Rupees Case "": Rupees = "Zero" Case "One": Rupees = "One" Case Other: Rupees = Rupees End Select Select Case Paise Case "": Paise = "in Paise Zero Only" Case "One": Paise = "in Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select "ustvarjanje niz besed za prevedbo števila v besede NUM_TO_IND_RUPEE_WORD = IIf (incRupees, "Rupees", "") & Crores & _ Lakhs & Rupees & Paise End Function "Pretvori številko iz 100-999 v besedilno funkcijo GetHundreds (ByVal MyNumber) Dim Result Kot niz Če je Val (MyNumber) = 0, potem zapustite funkcijo MyNumber = Desno ("000" & MyNumber, 3) 'Pretvorite mesto na stotine. Če sredi (MyNumber, 1, 1) "0" Potem je rezultat = GetDigit (Mid (MyNumber, 1, 1)) & "Hundred" End Če 'Pretvorite desetice in enote. Če sredina (MyNumber, 2, 1) "0", potem je rezultat = rezultat & GetTens (sredina (MyNumber, 2)), drugi rezultat = rezultat & GetDigit (sredina (MyNumber, 3)) End, če GetHundreds = Result End funkcija 'Pretvori številko od 10 do 99 v besedilo. Funkcija GetTens (TensText) Dim Result As String Result = "" 'Izniči vrednost začasne funkcije. Če je Val (levo (TensText, 1)) = 1 Potem 'Če je vrednost med 10-19 … Izberite vrednost Val (TensText) Primer 10: Rezultat = "Deset" Primer 11: Rezultat = "Enajst" Primer 12: Rezultat = "Dvanajst "Primer 13: Rezultat =" Trinajst "Primer 14: Rezultat =" Štirinajst "Primer 15: Rezultat =" Petnajst "Primer 16: Rezultat =" Šestnajst "Primer 17: Rezultat =" Sedemnajst "Primer 18: Rezultat =" Osemnajst "primer 19: Rezultat = "Devetnajst" primerov, drugi konec Izberite drugo "Če je vrednost med 20-99 … Izberite vrednost primera (levo (TensText, 1)) Primer 2: Rezultat =" dvajset "Primer 3: Rezultat =" Trideset "Primer 4: Rezultat = "Štirideset" Primer 5: Rezultat = "Petdeset" Primer 6: Rezultat = "Šestdeset" Primer 7: Rezultat = "Sedemdeset" Primer 8: Rezultat = "Osemdeset" Primer 9: Rezultat = "Devetdeset" Zadeva Drugi konec Izberite rezultat = Rezultat & GetDigit _ (Desno (TensText, 1)) '' Pridobite svoje mesto. End If GetTens = Result End Funkcija 'Pretvori številko od 1 do 9 v besedilo. Funkcija GetDigit (številka) Izberi vrednost črke (številka) Primer 1: GetDigit = "En" Primer 2: GetDigit = "Dva" Primer 3: GetDigit = "Tri" Primer 4: GetDigit = "Štiri" Primer 5: GetDigit = "Pet "Primer 6: GetDigit =" Šest "Primer 7: GetDigit =" Sedem "Primer 8: GetDigit =" Osem "Primer 9: GetDigit =" Devet "Primer Drugi: GetDigit =" "Končaj Izberite funkcijo za konec
Koda funkcije je dolga, vendar enostavna za razumevanje.
Če želite uporabiti to kodo, vstavite modul v VBE in ga kopirajte in prilepite. In funkcija je pripravljena za neposredno uporabo na listu. Število bo pretvorilo v besede, zlasti v obliki indijske rupije.
Torej, fantje, tako lahko uporabite funkcijo po meri v Excelu za pretvorbo števil v besede. Upam, da je to v pomoč. Če dvomite o tem članku ali kateri koli drugi funkciji, vprašajte v spodnjem razdelku za komentarje.
Ustvari funkcijo VBA za vrnitev matrike| Za vrnitev matrike z uporabo funkcije po meri v Excelu uporabljamo nekoliko drugačno skladnjo za pisanje funkcije po meri. Ta funkcija vrne niz vrednosti namesto samo ene vrednosti.
Nizovi v formuli Excel| Nizovi so zbirne vrednosti iste vrste v vsakem tehničnem jeziku. V Excelu je isto, vendar obravnavano nekoliko drugače kot drugi programski jeziki …
Kako ustvariti uporabniško definirano funkcijo prek VBA| Naučite se ustvarjati uporabniško določene funkcije v Excelu.
Uporaba uporabniško določene funkcije (UDF) iz drugega delovnega zvezka z uporabo VBA v programu Microsoft Excel| Uporabite uporabniško določeno funkcijo v drugem delovnem zvezku programa Excel.
Vrnite vrednosti napak iz uporabniško določenih funkcij z uporabo VBA v Microsoft Excelu| Preberite, kako lahko vrnete vrednosti napak iz uporabniško določene funkcije.
Priljubljeni članki:
50 bližnjic v Excelu za večjo produktivnost | Poskrbite, da bo vaša naloga hitrejša. S temi 50 bližnjicami boste še hitreje delali v Excelu.
Kako uporabljati funkcijo Excel VLOOKUP| To je ena najpogosteje uporabljenih in priljubljenih funkcij programa Excel, ki se uporablja za iskanje vrednosti iz različnih obsegov in listov.
Kako uporabljati Excel COUNTIF funkcija| Štejte vrednosti s pogoji s to neverjetno funkcijo. Za štetje določene vrednosti vam ni treba filtrirati podatkov. Funkcija Countif je bistvena za pripravo vaše armaturne plošče.
Kako uporabljati funkcijo SUMIF v Excelu | To je še ena bistvena funkcija armaturne plošče. To vam pomaga povzeti vrednosti za posebne pogoje.