„Excel“ neteikia jokios numatytosios funkcijos, kuri konvertuotų skaičių ar sumą žodžiais Indijos rupijomis arba bet kokia valiuta. Tačiau tai nereiškia, kad negalime konvertuoti skaičiaus į Indijos rupiją. Mes galime sukurti pasirinktinę „Excel“ formulę, kad skaičius paverstų žodžiais Indijos rupijomis. Sukūriau šią pasirinktinę funkciją, kad skaičius paverstų žodžiais Indijos rupijomis. Makro failą galite atsisiųsti žemiau. Aš paminėjau žemiau esantį kodą ir šiek tiek paaiškinau, kad galėtumėte atlikti pakeitimus pagal savo reikalavimus.
„Excel“ funkcija, padengianti žodžių skaičių Indijos rupijomis
Taigi naudokite šią funkciją, jei norite konvertuoti bet kokį 10 skaitmenų ar mažesnį skaičių ar skaičių į žodžius ar rupijas. Pavadinau šią funkciją NUM_TO_IND_RUPEE_WORD. Šios funkcijos sintaksė yra tokia:
| = NUM_TO_IND_RUPEE_WORD (skaičius) |
Galite atsisiųsti veikiantį makro failą:
Skaičius į žodžius Indijos rupija
Dabar funkcijos kodas yra paminėtas žemiau.
Šis kodas suskirstytas į keturias atskiras funkcijas. Pagrindinė funkcija yra NUM_TO_IND_RUPEE_WORD. Ir kitos trys funkcijos „GetHunderds“ (), „GetTens“ () ir „GetDigits“ yra pagalbinė funkcija, padedanti pagrindinei funkcijai sudaryti eilutę.
Funkcija NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Optional incRupees As Boolean = True) Dim Crores, Lakhs, Rupees, Paise, Temp Dim DecimalPlace Kiek laiko, skaičiuoti kaip ilgai Dim myLakhs, myCrores ReDim Place (9) Kaip eilutės vieta (2) = "Tūkstantis" : Vieta (3) = "Milijonas" Vieta (4) = "Milijardas": Vieta (5) = "Trilijonas" 'Skaičių eilutės. MyNumber = Trim (Str (MyNumber)) 'Dešimtainės vietos padėtis 0, jei jos nėra. DecimalPlace = InStr (MyNumber, ".") 'Konvertuokite Paise ir nustatykite MyNumber į rupijų sumą. Jei „DecimalPlace“> 0, tada „Paise“ = „GetTens“ (kairė (vidurys („Mano“ skaičius, „DecimalPlace“ + 1) ir „00“, 2)) „MyNumber = Trim“ (kairė („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 (Dešinysis (myCrores, 3)) If Temp "" Tada Crores = Temp & Place (Count ) & Crores If Len (myCrores)> 3 Tada myCrores = Left (myCrores, Len (myCrores) - 3) El myCrores = "" End If Count = Count + 1 Loop Count = 1 Do while myLakhs "" Temp = GetHundreds (dešinėje) (myLakhs, 3)) Jei Temp "" Tada Lakhs = Temp & Place (Count) & Lakhs If Len (myLakhs)> 3 Tada myLakhs = Left (myLakhs, Len (myLakhs) - 3) Else myLakhs = "" End If Count = Skaičiuoti + 1 kilpų skaičius = 1 Daryti, kol mano numeris "" Temp = Gauti šimtus (dešinėje (mano numeris, 3)) Jei temp "" Tada rupijos = temp & vieta (skaičius) ir rupijos, jei len (mano numeris)> 3 Tada mano numeris = kairė (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" End if Count = C ount + 1 Loop Select Case Crores Case "": Crores = "" Case "One": Crores = "One Crore" dėklas Kita: 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 Pabaiga Pasirinkite Pasirinkite atvejį Pause Case "": Paise = "ir Paise Zero Only" Case "One": Paise = "ir Paise One" "Case Else: Paise =" and Paise "& Paise &" Only "End Select" kuriant žodžių eilutė, skirta išversti skaičių į žodžius. Kaip eilutė Jei Val (MyNumber) = 0 Tada išeikite iš funkcijos MyNumber = Dešinė ("000" ir MyNumber, 3) 'Konvertuokite šimtų vietą. Jei vidurys (mano skaičius, 1, 1) „0“, tada rezultatas = „GetDigit“ (vidurys (mano skaičius, 1, 1)) ir „šimtas“ pabaiga, jei „konvertuokite dešimčių ir vienetų vietą“. Jei vidurys (mano numeris, 2, 1) „0“, tada rezultatas = rezultatas ir „GetTens“ (vidurys (mano skaičius, 2)) Kitas rezultatas = rezultatas ir „GetDigit“ (vidurys (mano numeris, 3)) pabaiga, jei „GetHundreds“ = rezultato pabaigos funkcija „Konvertuoja“ skaičius nuo 10 iki 99 į tekstą. Funkcija „GetTens“ („TensText“) „Dim Result As String Result“ = "" 'Panaikinkite laikinosios funkcijos vertę. Jei Val (kairė (TensText, 1)) = 1 Tada 'Jei vertė tarp 10-19 … Pasirinkite atvejį Val (TensText) 10 atvejis: Rezultatas = "Dešimt" 11 atvejis: Rezultatas = "Vienuolika" 12 atvejis: Rezultatas = "Dvylika "13 atvejis: rezultatas =" trylika "14 atvejis: rezultatas =" keturiolika "15 atvejis: rezultatas =" penkiolika "16 atvejis: rezultatas =" šešiolika "17 atvejis: rezultatas =" septyniolika "18 atvejis: rezultatas =" aštuoniolika "atvejis 19: Rezultatas = "Devyniolika" atvejo kita pabaiga Pasirinkite kitą 'Jei reikšmė yra tarp 20-99… Pasirinkite atvejo reikšmę (kairė (TensText, 1)) 2 atvejis: rezultatas = "dvidešimt" 3 atvejis: rezultatas = "trisdešimt" 4 atvejis: Rezultatas = "Keturiasdešimt" 5 atvejis: rezultatas = "penkiasdešimt" 6 atvejis: rezultatas = "šešiasdešimt" 7 atvejis: rezultatas = "septyniasdešimt" 8 atvejis: rezultatas = "aštuoniasdešimt" 9 atvejis: rezultatas = "devyniasdešimt" atvejo pabaigos pabaigos pasirinkimo rezultatas = Rezultatas ir „GetDigit“ _ (dešinėje („TensText“, 1)) „Gaukite vietą. Pabaiga, jei „GetTens“ = rezultato pabaigos funkcija “Skaičių nuo 1 iki 9 paverčia tekstu. Funkcija GetDigit (skaitmenys) Pasirinkite atvejį Val (skaitmenis) 1 atvejis: GetDigit = "Vienas" 2 atvejis: GetDigit = "Du" 3 atvejis: GetDigit = "Trys" 4 atvejis: GetDigit = "Keturi" 5 atvejis: GetDigit = "Penki "6 atvejis: GetDigit =" Šeši "7 atvejis: GetDigit =" Septyni "8 atvejis: GetDigit =" Aštuoni "9 atvejis: GetDigit =" Devyni "atvejai Kiti: GetDigit =" "Pabaigos pasirinkimo pabaigos funkcija
Funkcijos kodas yra ilgas, bet lengvai suprantamas.
Norėdami naudoti šį kodą, įdėkite modulį į VBE ir nukopijuokite jį. Ši funkcija yra paruošta naudoti tiesiogiai lape. Jis konvertuos skaičių į žodžius, konkrečiai Indijos rupijos formatu.
Taigi taip, vaikinai, šitaip galite naudoti pasirinktinę „Excel“ funkciją, norėdami konvertuoti skaičių į žodžius. Tikiuosi, kad tai naudinga. Jei turite kokių nors abejonių dėl šio straipsnio ar bet kurios kitos funkcijos, paklauskite žemiau esančiame komentarų skyriuje.
Sukurkite VBA funkciją grąžinti masyvą| Norėdami grąžinti masyvą naudodami pasirinktinę „Excel“ funkciją, rašydami pasirinktinę funkciją naudojame šiek tiek kitokią sintaksę. Ši funkcija grąžina verčių masyvą, o ne tik vieną reikšmę.
Masyvai „Excel“ formulėje| Masyvai yra to paties tipo kolekcijos vertės visomis techninėmis kalbomis. „Excel“ ji yra ta pati, tačiau traktuojama šiek tiek kitaip nei kitos programavimo kalbos …
Kaip sukurti vartotojo apibrėžtą funkciją per VBA| Sužinokite, kaip „Excel“ sukurti vartotojo apibrėžtas funkcijas.
Naudotojo apibrėžtos funkcijos (UDF) naudojimas iš kitos darbaknygės naudojant „Microsoft Excel“ VBA| Naudokite vartotojo apibrėžtą funkciją kitoje „Excel“ darbaknygėje.
Grąžinkite klaidų reikšmes iš vartotojo apibrėžtų funkcijų naudodami VBA programoje „Microsoft Excel“| Sužinokite, kaip galite grąžinti klaidų vertes iš vartotojo nustatytos funkcijos.
Populiarūs straipsniai:
50 „Excel“ nuorodų, skirtų produktyvumui padidinti | Greičiau atlikite savo užduotį. Šie 50 sparčiųjų klavišų leis dar greičiau dirbti naudojant „Excel“.
Kaip naudotis „Excel VLOOKUP“ funkcija| Tai yra viena iš dažniausiai naudojamų ir populiariausių „Excel“ funkcijų, naudojama norint ieškoti vertės iš įvairių diapazonų ir lapų.
Kaip naudotis „Excel“ Funkcija COUNTIF| Naudodami šią nuostabią funkciją, suskaičiuokite reikšmes su sąlygomis. Norint suskaičiuoti konkrečią vertę, nereikia filtruoti duomenų. Skaitiklio funkcija yra būtina norint paruošti prietaisų skydelį.
Kaip naudoti „SUMIF“ funkciją „Excel“ | Tai dar viena esminė prietaisų skydelio funkcija. Tai padeda apibendrinti vertes konkrečiomis sąlygomis.