Excel ei tarjoa mitään oletustoimintoa, joka muuntaa luvun tai summan sanoin Intian rupioina tai missä tahansa valuutassa. Mutta se ei tarkoita, että emme voi muuntaa lukua Intian rupiaksi. Voimme luoda mukautetun Excel -kaavan, joka muuntaa luvun sanoiksi intialaisiksi rupioiksi. Olen luonut tämän mukautetun funktion muuntaaksesi numeron sanoiksi intialaisiksi rupioiksi. Voit ladata makrotiedoston alta. Olen maininnut alla olevan koodin ja selittänyt hieman, jotta voit tehdä muutoksia vaatimuksesi mukaan.
Excel -toiminto peittää numeron sanoiksi Intian rupioina
Käytä tätä toimintoa muuntaaksesi minkä tahansa 10 -numeroisen tai pienemmän summan tai numeron sanoiksi tai rupioiksi. Olen nimennyt tämän toiminnon NUM_TO_IND_RUPEE_WORD. Tämän funktion syntaksi on:
| = NUM_TO_IND_RUPEE_WORD (numero) |
Voit ladata toimivan makrotiedoston alas:
Numero sanoiksi Intian rupia
Nyt toiminnon koodi on mainittu alla.
Tämä koodi on jaettu neljään yksittäiseen toimintoon. Päätoiminto on NUM_TO_IND_RUPEE_WORD. Ja muut kolme toimintoa GetHunderds (), GetTens () ja GetDigits auttavat toimintoa, joka auttaa päätoimintoa muodostamaan merkkijonon.
Toiminto NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Optional incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace Niin kauan, Laske Long Dim myLakhs, myCrores ReDim Place (9) merkkijonopaikkana (2) = "Thousand" : Paikka (3) = "Million" Place (4) = "Billion": Place (5) = "Trillion" 'Merkkijonoesitys. OmaLuku = Leikkaa (Str (OmaNumero)) 'Desimaalipaikka 0, jos sitä ei ole. DecimalPlace = InStr (Oma numero, ".") 'Muunna Paise ja aseta MyNumber arvoksi rupia. Jos DecimalPlace> 0 Sitten Paise = GetTens (Left (Mid (Oma numero, 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 (Oikea (myCrores, 3)) Jos Temp "" Sitten Crores = Temp & Place (Count ) & Crores Jos Len (myCrores)> 3 Sitten myCrores = Left (myCrores, Len (myCrores) - 3) Else myCrores = "" End If Count = Count + 1 Loop Count = 1 Do while myLakhs "" Temp = GetHundreds (Oikea (myLakhs, 3)) Jos Temp "" Sitten Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Sitten myLakhs = Left (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" Lopeta jos lasketaan = Laske + 1 silmukkaluku = 1 Tee samalla MyNumber "" Temp = GetHundreds (oikea (Oma numero, 3)) Jos Temp "" Silloin rupiat = Temp & Place (Count) & rupiat Jos Len (MyNumber)> 3 Sitten MyNumber = Vasen (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" End If Count = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Muu: 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 Loppu Valitse Valitse tapa Paise Case "": Paise = "ja Paise Zero Only" Case "One": Paise = "ja Paise One" "Case Else: Paise =" ja Paise "& Paise &" Only "End Valitse" luo merkkijono sanan kääntämiseksi numeroiksi Merkkijonona Jos Val (MyNumber) = 0 Sitten Lopeta Funktio MyNumber = Right ("000" & MyNumber, 3) 'Muunna satojen paikka. Jos puolivälissä (Oma numero, 1, 1) "0", niin tulos = GetDigit (Keski (Oma numero, 1, 1)) ja "Sata" Loppu, jos 'Muunna kymmenet ja yhdet -paikka. Jos puolivälissä (Oma numero, 2, 1) "0", niin tulos = Tulos ja GetTens (Keski (Oma numero, 2)) Muu tulos = Tulos ja GetDigit (Keski (Oma numero, 3)) Loppu Jos GetHundreds = Tuloksen lopetusfunktio 'Muuntaa numero 10-99 tekstiksi. Funktio GetTens (TensText) Dim Tulos merkkijonona Tulos = "" 'Nollaa väliaikainen funktion arvo. Jos Val (vasen (TensText, 1)) = 1 Sitten 'Jos arvo välillä 10-19… Valitse tapaus Val (TensText) Tapaus 10: Tulos = "Kymmenen" Tapaus 11: Tulos = "Yksitoista" Tapaus 12: Tulos = "Kaksitoista "Tapaus 13: Tulos =" Kolmetoista "Tapaus 14: Tulos =" Neljätoista "Tapaus 15: Tulos =" Viisitoista "Tapaus 16: Tulos =" Kuusitoista "Tapaus 17: Tulos =" Seitsemäntoista "Tapaus 18: Tulos =" Kahdeksantoista "tapaus 19: Tulos = "Yhdeksäntoista" tapauksen muu loppu Valitse muu, jos arvo on 20-99… Valitse tapausarvo Valikko (vasen (TensText, 1)) Tapaus 2: Tulos = "Kaksikymmentä" Tapaus 3: Tulos = "Kolmekymmentä" Tapaus 4: Tulos = "Neljäkymmentä" Tapaus 5: Tulos = "Viisikymmentä" Tapaus 6: Tulos = "Kuusikymmentä" Tapaus 7: Tulos = "Seitsemänkymmentä" Tapaus 8: Tulos = "Kahdeksankymmentä" Tapaus 9: Tulos = "Yhdeksänkymmentä" tapauksen muuta lopputuloksen tulosta = Result & GetDigit _ (Oikea (TensText, 1)) 'Hae paikka. Lopeta, jos GetTens = Tuloksen lopetusfunktio 'Muuntaa luvun 1: stä tekstiksi. Toiminto GetDigit (Digit) Valitse 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 =" Kahdeksan "Case 9: GetDigit =" Nine "Case Else: GetDigit =" "End Select End Function
Toiminnon koodi on pitkä, mutta helppo ymmärtää.
Jos haluat käyttää tätä koodia, aseta moduuli VBE: hen ja liitä se. Ja toiminto on valmis käytettäväksi arkilla suoraan. Se muuntaa numeron sanoiksi, erityisesti Intian rupian muodossa.
Joten kyllä kaverit, tällä tavalla voit käyttää Excelin mukautettua toimintoa muuntaaksesi numeron sanoiksi. Toivottavasti tästä on apua. Jos sinulla on epäilyksiä tästä artikkelista tai muista toiminnoista, kysy alla olevasta kommenttiosasta.
Luo VBA -toiminto palautusryhmään| Jos haluat palauttaa taulukon käyttämällä Excelin mukautettua funktiota, käytämme hieman erilaista syntaksia mukautetun funktion kirjoittamiseen. Tämä funktio palauttaa arvoryhmän vain yhden arvon sijasta.
Array Excel -kaavassa| Taulukot ovat samantyyppisiä kokoelma -arvoja kaikilla teknisillä kielillä. Excelissä se on sama, mutta sitä käsitellään hieman eri tavalla kuin muita ohjelmointikieliä …
Käyttäjän määrittämän toiminnon luominen VBA: n kautta| Opi luomaan käyttäjän määrittämiä toimintoja Excelissä.
Käyttäjän määrittämän toiminnon (UDF) käyttäminen toisesta työkirjasta käyttämällä VBA: ta Microsoft Excelissä| Käytä käyttäjän määrittämää toimintoa toisessa Excelin työkirjassa.
Palauta virhearvot käyttäjän määrittämistä funktioista VBA: n avulla Microsoft Excelissä| Opi kuinka voit palauttaa virhearvot käyttäjän määrittämästä toiminnosta.
Suosittuja artikkeleita:
50 Excel -pikanäppäintä tuottavuuden lisäämiseksi | Nopeuta tehtävääsi. Nämä 50 pikanäppäintä tekevät työskentelystäsi entistä nopeampaa Excelissä.
Excel VLOOKUP -toiminnon käyttäminen| Tämä on yksi eniten käytetyistä ja suosituimmista Excel -toiminnoista, jota käytetään arvon etsimiseen eri alueilta ja arkeilta.
Excelin käyttäminen COUNTIF -toiminto| Laske arvot olosuhteilla käyttämällä tätä hämmästyttävää toimintoa. Sinun ei tarvitse suodattaa tietojasi tietyn arvon laskemiseksi. Laskutoiminto on välttämätön kojelaudan valmistelemiseksi.
SUMIF -toiminnon käyttäminen Excelissä | Tämä on toinen kojelaudan olennainen toiminto. Tämä auttaa sinua laskemaan yhteen arvot tietyissä olosuhteissa.