logo
search
list

Obsah

2 jednoduché spôsoby, ako previesť čísla na slová v indických rupiách v Exceli:
Najlepšia bezplatná alternatíva k Microsoft Office - WPS Office
Často kladené otázky (FAQ):
Zhrnutie:

Ako previesť čísla na slová v indických rupiách v Exceli

Publikoval Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

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ť.


Číslo na prevod v tabuľke


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


Možnosť SúborAlt: Tlačidlo Možnosti


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


Karta Možnosti a tlačidlo Prispôsobiť pás s nástrojmi


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


Zoznam Vybrať príkazy z s vybratou možnosťou Všetky karty


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


Karta Vývojár a tlačidlo Pridať


Krok 6: Kliknite na tlačidlo OK


Pridávanie karty Vývojár a tlačidlo OK


Používajte Word, Excel a PPT ZADARMO

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.


Číslo na prevod v tabuľke


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


Karta Vývojár


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


Tlačidlo Visual Basic


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


Kliknite na možnosť Vložiť > 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


Kód VBA vložený do referencie


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


Uložiť vo formáte


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


vzorec =RupeeFormat(zobrazovaná_bunka)


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


Zobrazenie výsledkov vo všetkých bunkách


Čí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ť.


Číslo na prevod v tabuľke


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.


Karta hárka a tlačidlo Zobraziť kód


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


Kliknite na možnosť Vložiť > 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


Kód VBA vložený do referencie


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


Uložiť vo formáte


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


vzorec =RupeeFormat(zobrazovaná_bunka)


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


Zobrazenie výsledkov vo všetkých bunkách


Čísla vo vybranom rozsahu sa prevedú na slová v indických rupiách.

Stiahnutie bezplatného balíka Office
  • Používajte Word, Excel a PPT ZADARMO, bez reklám.

  • Upravujte súbory PDF pomocou výkonnej súpravy nástrojov na prácu s PDF.

  • Rozhranie podobné aplikáciám Microsoft. Jednoduché na naučenie. 100 % kompatibilita.

  • Zvýšte svoju produktivitu pomocou množstva bezplatných šablón pre Word, Excel, PPT a životopisy od WPS.

100 % bezpečné
avatar
Algirdas Jasaitis

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


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ú.


Bezplatné stiahnutie na viacerých platformách


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)"


Vybrať


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


Uložiť súbor WPS Office


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


Spustenie softvéru


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.

100 % bezpečné


Algirdas Jasaitis

15 years of office industry experience, tech lover and copywriter. Follow me for product reviews, comparisons, and recommendations for new apps and software.