Keď pracujete s číslami v aplikácii Excel, niekedy ich kvôli oficiálnym dokumentom alebo prehľadnosti potrebujete zobraziť ako čísla aj ako slová. Excel však na to nemá zabudovanú funkciu, a to najmä pre indické rupie. Môže sa tak stať, že nakoniec použijete zložité vzorce, externé nástroje alebo to urobíte ručne.
V tejto príručke vás naučíme jednoduchú metódu krok za krokom, ako v aplikácii Excel previesť čísla na slová pre indické rupie.
2 jednoduché spôsoby prevodu čísel na slová pre indické rupie v aplikácii Excel:
Samozrejme, v prvom rade si musíte stiahnuť Microsoft Excel!
Metóda 1: Prevod čísel na slová v indických rupiách pomocou kódu VBA
Pred prevodom čísel na slová v indických rupiách pomocou kódu VBA možno budete musieť pridať na pás s nástrojmi kartu Vývojár, aby ste mohli otvoriť funkciu VBA.
Tu je postup, ako povoliť kartu Vývojár v aplikácii Excel:
Krok 1: Otvorte tabuľku v aplikácii Excel, ktorá obsahuje čísla, ktoré chcete previesť.

Krok 2: Kliknite na ponuku Súbor a vyberte položku Možnosti v zozname

Krok 3: V možnostiach aplikácie Excel vyberte Prispôsobiť pás s nástrojmi

Krok 4: V možnosti Vybrať príkazy z vyberte položku Všetky karty

Krok 5: Nájdite v zozname položku Vývojár a kliknite na tlačidlo Pridať

Krok 6: Kliknite na tlačidlo OK

Teraz nasledujú kroky na prevod čísel na slová pre indické rupie pomocou kódu VBA:
Krok 1: Otvorte tabuľku v aplikácii Excel, ktorá obsahuje čísla na prevod.

Krok 2: Kliknite na kartu Vývojár. Ak túto kartu nevidíte, podľa predchádzajúceho postupu ju povoľte

Krok 3: Kliknite na tlačidlo Visual Basic alebo použite klávesovú skratku Alt + F11

Krok 4: Kliknite na Vložiť a vyberte Modul.

Krok 5: Prilepte kód VBA uvedený v referencii.
Public Function RupeeFormat(SNum As String) 'Updateby Extendoffice Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|

Krok 5: Uložte (Ctrl + S) a zatvorte editor VBA. Pri ukladaní vyberte formát Zošit s podporou makier pre Excel

Krok 6: Zadajte vzorec =RupeeFormat(zobrazovaná_bunka) do bunky, v ktorej chcete zobraziť textové vyjadrenie, a stlačte Enter

Krok 7: Zobrazí sa výsledok. Potiahnutím nadol použijete vzorec aj na ďalšie bunky

Čísla vo vybranom rozsahu sa prevedú na slová v indických rupiách.
Metóda 2: Prevod čísel na slová v indických rupiách v aplikácii Excel (Bežná metóda)
Naučte sa bežnú metódu prevodu čísel na slová v indických rupiách v aplikácii Excel, čo je praktický krok pri príprave faktúr na účtovníctvo.
Krok 1: Otvorte tabuľku v aplikácii Excel, ktorá obsahuje čísla, ktoré chcete previesť.

Krok 2: Kliknite pravým tlačidlom myši na názov hárka a výberom položky Zobraziť kód otvorte prostredie VBA. Je to užitočné aj pre analýzu dát v aplikácii Excel.

Krok 3: Kliknite na Vložiť a vyberte Modul.

Krok 4: Prilepte kód VBA uvedený v referencii.
Public Function RupeeFormat(SNum As String) 'Update By Nirmal Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(Str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|

Krok 5: V položke Uložiť vo formáte vyberte Zošit s podporou makier pre Excel. Zatvorte okná editora VBA

Krok 6: Zadajte vzorec =RupeeFormat(zobrazovaná_bunka) do vybratej bunky pre zobrazenie výsledku.

Krok 7: Po zobrazení výsledkov vo vybratej bunke potiahnite nadol, čím vzorec aplikujete aj na ostatné bunky

Čísla vo vybranom rozsahu sa prevedú na slová v indických rupiách.
Najlepšia bezplatná alternatíva k balíku Microsoft Office – WPS Office
Okrem balíka Microsoft Office vám predstavím aj ďalšiu aplikáciu, ktorou je WPS Office. Čo je to teda WPS?

WPS Office je bezplatný balík kancelárskych aplikácií s otvoreným zdrojovým kódom (open-source), ktorý je kompatibilný s balíkom Microsoft Office. Obsahuje textový procesor, tabuľkový procesor, prezentačný softvér a čítačku PDF, takže môžete jednoducho otvárať, upravovať a ukladať súbory. Používa sa taktiež jednoducho, a to aj pre ľudí bez predchádzajúcich skúseností s kancelárskymi balíkmi.
A nielen to, WPS Office je výkonný kancelársky balík, ktorý ponúka širokú škálu funkcií. Je dobrou alternatívou k NeoOffice, a to najmä pre študentov a firmy s obmedzeným rozpočtom.
Pozrite si v krátkosti niektoré funkcie WPS:
● Bezplatné používanie Wordu, Excelu a PPT. Výkonná súprava nástrojov pre PDF
● Bohatý obchod so šablónami
● Bohaté funkcie: do produktu sú integrovaní asistenti pre životopisy, inteligentné formuláre, nahrávanie obrazovky, oprava súborov a ďalšie menšie nástroje
● Ľahkosť produktu, ktorý má iba 200 MB, pričom zaberá malé množstvo pamäte počítača.
● Verzia WPS Office pre MAC je veľmi výkonná. Microsoft Office zanedbáva používateľskú skúsenosť majiteľov Macov, čo práve dokáže vykompenzovať WPS Office.
● Podpora online dokumentov (WPS AirPage) a úprava viacerými osobami súčasne
● WPS Office podporuje aj systémy Linux, Android a iOS. Ak chcete používať produkty WPS Office na rôznych systémoch, stačí sa prihlásiť do rovnakého účtu a všetky súbory sa synchronizujú.

Máte pocit, že WPS Office je pre vás tou najlepšou voľbou, a chcete si ho stiahnuť? Navštívte túto oficiálnu webovú stránku: https://www.wps.com a stiahnite si ho hneď teraz.
Ako si stiahnuť WPS Office
Krok 1: Navštívte webovú stránku WPS Office: wps.com.
Krok 2: Kliknite na tlačidlo "Free Download (Stiahnuť zadarmo)"

Krok 3: Vyberte miesto, kam chcete WPS Office uložiť -> Uložiť

Krok 4: Dvakrát kliknite na stiahnutý súbor WPS Office, kliknite na "Spustiť" a postupujte podľa pokynov na inštaláciu zobrazených na obrazovke

Krok 5: Po dokončení môžete využívať všetky funkcie WPS Office
Často kladené otázky (FAQ):
Otázka 1: Ako v Exceli pomocou VBA prevediem menu na text?
Na prevod meny na text v Exceli môžete použiť VBA (Visual Basic for Applications). Na vykonanie tohto prevodu si budete musieť napísať vlastné makro vo VBA. Príklady a úryvky kódov nájdete online, prípadne sa môžete obrátiť na dokumentáciu Excel VBA, kde nájdete ďalšie pokyny.
Otázka 2: Ako previesť menu na text zobrazený slovami v aplikácii Excel?
Na prevod meny na slová v Exceli zvyčajne použijete kombináciu funkcií a vlastného formátovania. Online nájdete rôzne návody a príručky, ktoré vysvetľujú, ako na to.
Otázka 3: Ako formátovať čísla v Exceli pre indické rupie?
Na formátovanie čísel pre indické rupie v Exceli môžete použiť vstavané možnosti formátovania meny. Vyberte bunku alebo rozsah, ktorý chcete naformátovať, prejdite na kartu "Číslo" v dialógovom okne Formátovanie buniek a vyberte kategóriu "Mena". Odtiaľ môžete vybrať ako symbol meny "₹ Angličtina (India)".
Otázka 4: Ako v Exceli automaticky previesť čísla na text?
Existuje niekoľko spôsobov, ako v Exceli automaticky previesť čísla na text. Môžete použiť funkcie Excelu, ako sú TEXT, CONCATENATE (ZLEPIŤ), alebo vlastné formátovanie. Pre pokročilejšiu automatizáciu môžete využiť aj makrá vo VBA.
Otázka 5: Ako previesť americký dolár na indické rupie v Exceli?
Na prevod amerických dolárov na indické rupie v Exceli môžete použiť kombináciu funkcií aplikácie Excel a webových služieb alebo externých zdrojov údajov, ktoré poskytujú výmenné kurzy mien. Formát "Mena" v Exceli možno použiť aj na zobrazenie súm v indických rupiách po získaní výmenných kurzov.
Otázka 6: Chcete pre jednoduchšiu prácu používať Excel Online?
Ak uprednostňujete prácu v cloude, Excel Online ponúka rovnako výkonné funkcie, ktoré vám pomôžu spravovať a čistiť dáta odkiaľkoľvek. S aplikáciou Excel Online môžete používať rovnaké funkcie na odstraňovanie znakov z ľavej alebo pravej strany vašich dát, vďaka čomu ide o skvelú možnosť pre tých, ktorí potrebujú flexibilitu alebo nemajú prístup k počítačovej verzii programu Excel.
Zhrnutie:
Zistite, ako v aplikácii Excel jednoducho previesť číselné sumy na slová v indických rupiách, a to buď pomocou kódu VBA, alebo inej bežnej metódy. Najskôr si v Exceli povoľte kartu Vývojár, pridajte poskytnutý kód VBA a použite vzorec =RupeeFormat(zobrazovaná_bunka).
Prípadne kliknite pravým tlačidlom myši na názov hárka, čím získate prístup k prostrediu VBA, následne vložte modul, prilepte kód a použite rovnaký vzorec. Tieto používateľsky prívetivé metódy sú kompatibilné aj s WPS Office, bezplatnou alternatívou k Microsoft Office, vďaka čomu je presné a profesionálne formátovanie dokumentov hračkou.





