Excel neposkytuje žiadnu predvolenú funkciu, ktorá prevádza číslo alebo čiastku slovne v indických rupiách alebo v akejkoľvek mene. To však neznamená, že nemôžeme previesť číslo na indickú rupiu. Môžeme vytvoriť vlastný vzorec programu Excel na prevod čísla na slová v indických rupiách. Vytvoril som túto vlastnú funkciu na prevod čísla na slová v indických rupiách. Súbor makra si môžete stiahnuť nižšie. Nižšie som spomenul kód a trochu ho vysvetlil, aby ste mohli vykonávať zmeny podľa svojich požiadaviek.
Funkcia Excel na skrytie čísla na slová v indických rupiách
Túto funkciu teda použite na konverziu ľubovoľného desaťciferného alebo menšieho množstva alebo čísla na slová alebo rupie. Túto funkciu som pomenoval NUM_TO_IND_RUPEE_WORD. Syntax tejto funkcie je:
| = NUM_TO_IND_RUPEE_WORD (číslo) |
Pracovný súbor makra si môžete stiahnuť nižšie:
Indická rupia od čísla k slovu
Teraz je kód funkcie uvedený nižšie.
Tento kód je rozdelený na štyri jednotlivé funkcie. Hlavnou funkciou je NUM_TO_IND_RUPEE_WORD. A ďalšie tri funkcie GetHunderds (), GetTens () a GetDigits sú pomocné funkcie, ktoré pomáhajú hlavnej funkcii pri vytváraní reťazca.
Funkcia NUM_TO_IND_RUPEE_WORD (ByVal MyNumber, Voliteľné 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" : Miesto (3) = "Milión" Miesto (4) = "Miliarda": Miesto (5) = "Bilión" 'Reťazcové vyjadrenie sumy. MyNumber = Trim (Str (MyNumber)) 'Poloha desatinného miesta 0, ak nie je. DecimalPlace = InStr (MyNumber, ".") 'Previesť Paise a nastaviť MyNumber na sumu rupií. Ak je DecimalPlace> 0, potom Paise = GetTens (vľavo (v strede (moje číslo, desatinné miesto + 1) a „00“, 2)) moje číslo = zostrih (vľavo (moje číslo, desatinné miesto - 1)) koniec, ak myCrores = moje číslo \ 10000000 myLakhs = ( MyNumber - myCrores * 10000000) \ 100000 MyNumber = MyNumber - myCrores * 10000000 - myLakhs * 100000 Count = 1 Do While myCrores "" Temp = GetHundreds (Right (myCrores, 3)) If Temp "" Then Crores = Temp & Place (Count ) & 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 (Right (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 + (MyNumber, Len (MyNumber) - 3) Else MyNumber = "" End If Count = C ount + 1 slučka Vybrať prípad Crores Case "": Crores = "" Case "One": Crores = "One Crore" Case Else: Crores = Crores & "Crores" End Select Select Case Lakhs Case "": Lakhs = "" Case "Jeden": Lakhs = "Jeden lakh" Prípad inak: Lakhs = Lakhs & "Lakhs" Koniec Vyberte prípad prípadu rupií prípad "": rupie = "nulový" prípad "jeden": rupie = "jeden" prípad iný: rupie = rupie End Select Select Case Paise Case "": Paise = "a Paise Zero Only" Case "One": Paise = "and Paise One Only" Case Else: Paise = "and Paise" & Paise & "Only" End Select 'creating the reťazec slov na preklad čísla do slov As String If Val (MyNumber) = 0 Then Exit Function MyNumber = Right ("000" & MyNumber, 3) 'Convert the stovky place. Ak je stredná hodnota (moje číslo, 1, 1) „0“, potom je výsledok = číslica (stredná hodnota (moje číslo, 1, 1)) a „sto“ koniec, ak „Preveďte miesto v desiatkach a jednotkách. Ak je stredná hodnota (MyNumber, 2, 1) „0“, potom Výsledok = Výsledok & GetTens (Stred (MojeČíslo, 2)) Iný Výsledok = Výsledok & GetDigit (Stred (MojeČíslo, 3)) Koniec Ak GetHundreds = Výsledok Koniec Funkcia 'Konvertuje číslo od 10 do 99 do textu. Funkcia GetTens (TensText) Dim Výsledok ako Reťazec Výsledok = "" 'Vynuluje dočasnú hodnotu funkcie. Ak Val (vľavo (TensText, 1)) = 1 Potom 'If hodnota medzi 10-19… Vyberte prípad Val (TensText) Prípad 10: Výsledok = „Desať“ Prípad 11: Výsledok = „Jedenásť“ Prípad 12: Výsledok = „Dvanásť „Prípad 13: Výsledok =„ Trinásť “Prípad 14: Výsledok =„ Štrnásť “Prípad 15: Výsledok =„ Pätnásť “Prípad 16: Výsledok =„ Šestnásť “Prípad 17: Výsledok =„ Sedemnásť “Prípad 18: Výsledok =„ Osemnásť “prípadov 19: Výsledok = Iný prípad ako „Devätnásť“ Vyberte iný 'Ak je hodnota medzi 20-99… Vyberte prípad Val (vľavo (TensText, 1)) Prípad 2: Výsledok = „Dvadsať“ Prípad 3: Výsledok = „Tridsať“ Prípad 4: Výsledok = „Štyridsať“ Prípad 5: Výsledok = „Päťdesiat“ Prípad 6: Výsledok = „Šesťdesiat“ Prípad 7: Výsledok = „Sedemdesiat“ Prípad 8: Výsledok = „Osemdesiat“ Prípad 9: Výsledok = „Deväťdesiat“ prípadov Iný koniec Vybrať výsledok = Výsledok a GetDigit _ (Vpravo (TensText, 1)) 'Načítajte svoje miesto. End If GetTens = Result End Function 'Konvertuje číslo z 1 na 9 na text. Funkcia GetDigit (Digit) Vyberte prípad Val (Digit) Prípad 1: GetDigit = "Jeden" Prípad 2: GetDigit = "Dva" Prípad 3: GetDigit = "Tri" Prípad 4: GetDigit = "Štyri" Prípad 5: GetDigit = "Päť "Prípad 6: GetDigit =" Šesť "Prípad 7: GetDigit =" Sedem "Prípad 8: GetDigit =" Osem "Prípad 9: GetDigit =" Deväť "Prípad inak: GetDigit =" "Koniec Vyberte koncovú funkciu
Kód funkcie je dlhý, ale ľahko zrozumiteľný.
Ak chcete použiť tento kód, vložte modul do VBE a skopírujte ho. A funkcia je pripravená na použitie priamo na hárku. Konvertuje číslo na slová, konkrétne vo formáte indickej rupie.
Takže áno, chlapci, takto môžete v Exceli použiť vlastnú funkciu na prevod čísla na slová. Dúfam, že to pomôže. Ak máte akékoľvek pochybnosti týkajúce sa tohto článku alebo akejkoľvek inej funkcie, opýtajte sa ich v sekcii komentárov nižšie.
Vytvorte funkciu VBA na návrat poľa| Na vrátenie poľa pomocou vlastnej funkcie v programe Excel používame na písanie vlastnej funkcie mierne odlišnú syntax. Táto funkcia vracia pole hodnôt namiesto iba jednej hodnoty.
Polia vo vzorci programu Excel| Polia sú zbierkovými hodnotami rovnakého typu v každom technickom jazyku. V Exceli je to rovnaké, ale zaobchádza sa trochu inak ako s inými programovacími jazykmi …
Ako vytvoriť funkciu definovanú používateľom prostredníctvom VBA| Naučte sa vytvárať v programe Excel funkcie definované používateľom.
Použitie funkcie definovanej používateľom (UDF) z iného zošita pomocou jazyka VBA v programe Microsoft Excel| Používateľom definovanú funkciu použite v inom zošite programu Excel.
Vráťte chybové hodnoty z funkcií definovaných používateľom pomocou jazyka VBA v programe Microsoft Excel| Zistite niečo o tom, ako môžete vrátiť chybové hodnoty z funkcie definovanej používateľom.
Populárne články:
50 skratiek programu Excel na zvýšenie produktivity | Vykonajte svoju úlohu rýchlejšie. Týchto 50 skratiek vám umožní pracovať ešte rýchlejšie v Exceli.
Ako používať funkciu Excel VLOOKUP| Toto je jedna z najpoužívanejších a najobľúbenejších funkcií programu Excel, ktorá sa používa na vyhľadávanie hodnôt z rôznych rozsahov a hárkov.
Ako používať Excel Funkcia COUNTIF| Počítajte hodnoty s podmienkami pomocou tejto úžasnej funkcie. Na počítanie konkrétnej hodnoty nie je potrebné filtrovať údaje. Funkcia Countif je potrebná na prípravu palubnej dosky.
Ako používať funkciu SUMIF v programe Excel | Toto je ďalšia zásadná funkcia palubnej dosky. To vám pomôže zhrnúť hodnoty za konkrétnych podmienok.