Excel ei paku vaikimisi funktsiooni, mis teisendab arvu või summa sõnadeks India ruupiates või mis tahes valuutas. Kuid see ei tähenda, et me ei saaks numbrit India ruupiaks teisendada. Saame luua kohandatud Exceli valemi, et teisendada arv India ruupiateks sõnadeks. Olen loonud selle kohandatud funktsiooni, et teisendada arv India ruupiateks sõnadeks. Makrofaili saate alla laadida allpool. Olen maininud allolevat koodi ja natuke selgitanud, et saaksite vastavalt oma vajadustele muudatusi teha.
Exceli funktsioon India ruupiate sõnade varjamiseks
Nii et kasutage seda funktsiooni, et teisendada 10 -kohaline või väiksem number või number sõnadeks või ruupiateks. Panin sellele funktsioonile nime NUM_TO_IND_RUPEE_WORD. Selle funktsiooni süntaks on järgmine:
| = NUM_TO_IND_RUPEE_WORD (arv) |
Töötava makrofaili saate alla laadida:
Sõnade arv India ruupia
Nüüd on funktsiooni kood allpool mainitud.
See kood on jagatud neljaks individuaalseks funktsiooniks. Põhifunktsioon on NUM_TO_IND_RUPEE_WORD. Ja teised kolm funktsiooni GetHunderds (), GetTens () ja GetDigits on abiks, mis aitavad põhifunktsioonil stringi moodustada.
Funktsioon NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Optional incRupees as Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace Long, Count Long Long myLakhs, myCrores ReDim Place (9) String Place (2) = "Thousand" : Koht (3) = "Million" Place (4) = "Billion": Place (5) = "Trillion" 'String summas. MinuNumber = Kärbi (Str (MinuNumber)) 'Kümnendkoha asukoht 0, kui seda pole. DecimalPlace = InStr (MyNumber, ".") 'Teisendage Paise ja määrake MyNumber ruupiateks. Kui DecimalPlace> 0 Siis 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 "" Siis Crores = Temp & Place (Count ) & Crores If Len (myCrores)> 3 Siis myCrores = Left (myCrores, Len (myCrores) - 3) Else myCrores = "" End If Count = Count + 1 Loop Count = 1 Do while myLakhs "" Temp = GetHundreds (Parem (myLakhs, 3)) Kui Temp "" Siis Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Siis myLakhs = Left (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" End If Count = Loend + 1 silmuste arv = 1 Tehke samal ajal MinuNumber "" Temp = GetHundreds (Parem (MinuNumber, 3)) Kui Temp "" Siis Ruupiad = Temp & Place (Count) & Rupees If Len (MyNumber)> 3 Siis 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" ümbris Muidu: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Case "One": Lakhs = "One Lakh" Case Else: Lakhs = Lakhs & "Lakhs" End Select Case Case Rupees Case "": Rupees = "Zero" Case "One": Rupees = "One" Case Else: Rupees = Rupees Lõpp Valige Valige juhtum Paise Case "": Paise = "ja Paise Zero Only" Case "One": Paise = "ja Paise One" Case Else: Paise = "and Paise" & Paise & "Only" End Select ' sõnade jada arvu tõlkimiseks sõnadeks Stringina Kui Val (MyNumber) = 0, siis väljuge funktsioonist MyNumber = Right ("000" & MyNumber, 3) 'Teisendage sadade koht. Kui keskmine (minuarv, 1, 1) "0", siis tulemus = GetDigit (keskmine (minuarv, 1, 1)) ja "sada" lõpp, kui 'Teisendage kümnete ja üksikute koht. Kui keskmine (minu number, 2, 1) "0", siis tulemus = tulemus ja GetTens (keskmine (minu number, 2)) Muu tulemus = tulemus ja GetDigit (keskmine (minu number, 3)) lõpp, kui GetHundreds = Tulemuse lõppfunktsioon 'teisendab number 10 kuni 99 tekstiks. Funktsioon GetTens (TensText) Dim Tulemus stringina Tulemus = "" 'Nullib ajutise funktsiooni väärtuse. Kui Val (vasakule (TensText, 1)) = 1 Siis 'Kui väärtus jääb vahemikku 10-19… Valige juhtum Val (TensText) Juhtum 10: tulemus = "kümme" juhtum 11: tulemus = "üksteist" juhtum 12: tulemus = "kaksteist "Juhtum 13: tulemus =" kolmteist "juhtum 14: tulemus =" neliteist "juhtum 15: tulemus =" viisteist "juhtum 16: tulemus =" kuusteist "juhtum 17: tulemus =" seitseteist "juhtum 18: tulemus =" kaheksateist "juhtum 19: Tulemus = "Üheksateistkümne" juhtumi muu lõpp Valige muu 'Kui väärtus jääb vahemikku 20-99… Valige juhtumiväärtus (vasakul (TensText, 1)) Juhtum 2: tulemus = "kakskümmend" juhtum 3: tulemus = "kolmkümmend" juhtum 4: Tulemus = "nelikümmend" juhtum 5: tulemus = "viiskümmend" juhtum 6: tulemus = "kuuskümmend" juhtum 7: tulemus = "seitsekümmend" juhtum 8: tulemus = "kaheksakümmend" juhtum 9: tulemus = "üheksakümmend" juhtumi muud lõppvaliku tulemust = Tulemus ja GetDigit _ (paremal (TensText, 1)) 'Too koht. Lõpeta, kui GetTens = Tulemuse lõppfunktsioon 'Teisendab numbri 1 kuni 9 tekstiks. Funktsioon GetDigit (Digit) Valige juhtum Val (Digit) Case 1: GetDigit = "One" Case 2: GetDigit = "Two" Case 3: GetDigit = "Three" Case 4: GetDigit = "Four" Case 5: GetDigit = "Five "Juhtum 6: GetDigit =" Kuus "Juhtum 7: GetDigit =" Seitse "Juhtum 8: GetDigit =" Kaheksa "Juhtum 9: GetDigit =" Üheksa "juhtum Muu: GetDigit =" "Lõppvaliku lõppfunktsioon
Funktsiooni kood on pikk, kuid kergesti mõistetav.
Selle koodi kasutamiseks sisestage moodul VBE -sse ja kopeerige see. Ja funktsioon on valmis otse lehel kasutamiseks. See teisendab arvu sõnadeks, eriti India ruupia vormingus.
Nii et jah, poisid, nii saate Exceli kohandatud funktsiooni kasutada arvu sõnadeks teisendamiseks. Loodan, et sellest on abi. Kui teil on selle artikli või mõne muu funktsiooni osas kahtlusi, küsige allpool kommentaaride jaotises.
Looge massiivi tagastamiseks VBA -funktsioon| Massiivi tagastamiseks Exceli kohandatud funktsiooni abil kasutame kohandatud funktsiooni kirjutamiseks veidi erinevat süntaksi. See funktsioon tagastab väärtuste massiivi ainult ühe väärtuse asemel.
Massiivid Exceli valemis| Massiivid on sama tüüpi koguväärtused igas tehnilises keeles. Excelis on see sama, kuid seda käsitletakse mõnevõrra erinevalt teistest programmeerimiskeeltest …
Kuidas luua kasutaja määratud funktsiooni VBA kaudu| Siit saate teada, kuidas Excelis kasutaja määratud funktsioone luua.
Kasutaja määratud funktsiooni (UDF) kasutamine teisest töövihikust, kasutades Microsoft Excelis VBA -d| Kasutaja määratud funktsiooni saate kasutada mõnes teises Exceli töövihikus.
Tagastab vigade väärtused kasutaja määratud funktsioonidest, kasutades Microsoft Excelis VBA-d| Siit saate teada, kuidas saate kasutaja määratud funktsiooni veaväärtusi tagastada.
Populaarsed artiklid:
50 Exceli otseteed tootlikkuse suurendamiseks | Saa oma ülesandega kiiremini hakkama. Need 50 otseteed aitavad teil Excelis veelgi kiiremini töötada.
Kuidas kasutada funktsiooni Excel VLOOKUP| See on üks enim kasutatud ja populaarsemaid Exceli funktsioone, mida kasutatakse erinevate vahemike ja lehtede väärtuse otsimiseks.
Kuidas Excelit kasutada Funktsioon COUNTIF| Loendage väärtused tingimustega, kasutades seda hämmastavat funktsiooni. Te ei pea konkreetse väärtuse loendamiseks oma andmeid filtreerima. Countif funktsioon on armatuurlaua ettevalmistamisel hädavajalik.
Funktsiooni SUMIF kasutamine Excelis | See on veel üks armatuurlaua oluline funktsioon. See aitab teil teatud tingimustel väärtusi kokku võtta.