logo
search
list

Садржај

2 laka načina da pretvorite brojeve u slova u indijskim rupijama u Excelu:
Najbolja besplatna alternativa za Microsoft Office - WPS Office
Najčešća pitanja (FAQ):
Rezime:

Kako pretvoriti brojeve u slova u indijskim rupijama u Excelu

Објавио Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

Kada radite sa brojevima u programu Excel, ponekad je potrebno da ih prikažete i u brojevima i u rečima radi zvaničnih dokumenata ili jasnoće. Međutim, Excel nema ugrađen način za ovo, posebno za indijske rupije. Zbog toga se može desiti da na kraju koristite komplikovane formule, spoljne alate ili da to radite ručno.

U ovom vodiču naučićemo vas jednostavnom postupku, korak po korak, kako da pretvorite brojeve u reči za indijske rupije pomoću programa Excel.

2 laka načina za pretvaranje brojeva u reči za indijske rupije u programu Excel:

Naravno, pre svega vam je potrebno odgovarajuće Microsoft Excel preuzimanje!

Metod 1: Pretvaranje brojeva u reči za indijske rupije pomoću VBA koda

Pre pretvaranja brojeva u reči za indijske rupije pomoću VBA koda, možda ćete morati da dodate karticu Developer (Programer) na traku kako biste otvorili VBA funkciju.

Evo koraka za omogućavanje kartice Developer u programu Excel:

Korak 1: Otvorite Excel radni list koji sadrži brojeve koje želite da pretvorite.


Brojevi za pretvaranje u tabeli


Korak 2: Kliknite na File (Datoteka) i izaberite opciju sa liste


Opcije datotekeAlt: Dugme opcija


Korak 3: U Excel opcijama izaberite Customize Ribbon (Prilagodi traku)


Kartica Options (Opcije) i dugme Customize Ribbon (Prilagodi traku)


Korak 4: Izaberite All Tabs (Sve kartice) u opciji Choose commands from (Izaberi komande iz)


Izaberite komande sa liste kada je izabrano All Tabs (Sve kartice)


Korak 5: Pronađite Developer (Programer) na listi i kliknite na Add (Dodaj)


Kartica Developer i dugme Add


Korak 6: Kliknite na OK


Kartica Developer je dodata i dugme OK


Koristite Word, Excel i PPT BESPLATNO

Sada sledi korak za pretvaranje brojeva u reči za indijske rupije pomoću VBA koda:

Korak 1: Otvorite Excel radni list koji sadrži brojeve koje želite da pretvorite.


Brojevi za pretvaranje u tabeli


Korak 2: Kliknite na karticu Developer. Ako ne vidite ovu karticu, pratite gornji korak da biste je omogućili


Kartica Developer


Korak 3: Kliknite na Visual Basic ili koristite prečicu na tastaturi Alt + F11


Dugme Visual Basic


Korak 4: Kliknite na Insert (Umetni) i izaberite Module (Modul).


Kliknite na opciju Insert > Module


Korak 5: Nalepite VBA kod dat u referenci.

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


VBA kod umetnut u referencu


Korak 5: Sačuvajte (Ctrl + S) i zatvorite VBA uređivač. Prilikom čuvanja izaberite Excel Macro-Enabled Workbook (Excel radna sveska sa omogućenim makroima)


Sačuvaj kao tip


Korak 6: Unesite formulu =RupeeFormat(ćelija_za_prikaz) u ćeliju u kojoj želite da prikažete reč i pritisnite Enter


formula =RupeeFormat(ćelija_za_prikaz)


Korak 7: Rezultat će biti prikazan. Prevucite nadole da biste primenili formulu na ostale ćelije


Prikazuju se rezultati svih ćelija


Brojevi u izabranom opsegu biće pretvoreni u reči za indijske rupije.

Metod 2: Pretvaranje brojeva u reči za indijske rupije u programu Excel (Uobičajeni metod)

Naučite uobičajeni metod za pretvaranje brojeva u reči za indijske rupije u programu Excel, što je koristan korak prilikom pripreme faktura za knjigovodstvo.

Korak 1: Otvorite Excel radni list koji sadrži brojeve koje želite da pretvorite.


Brojevi za pretvaranje u tabeli


Korak 2: Kliknite desnim tasterom miša na ime lista i izaberite View Code (Prikaži kod) da biste otvorili VBA aplikaciju. Ovo je takođe korisno za analizu podataka u programu Excel.


Kartica lista i dugme View Code


Korak 3: Kliknite na Insert (Umetni) i izaberite Module (Modul).


Kliknite na opciju Insert > Module


Korak 4: Nalepite VBA kod dat u referenci.

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


VBA kod umetnut u referencu


Korak 5: Izaberite Excel Macro-Enabled Workbook u opciji Sačuvaj kao tip. Zatvorite prozor VBA uređivača


Sačuvaj kao tip


Korak 6: Unesite formulu =RupeeFormat(ćelija_za_prikaz) u izabranu ćeliju da biste prikazali rezultat.


formula =RupeeFormat(ćelija_za_prikaz)


Korak 7: Prevucite nadole da biste primenili formulu na ostale ćelije nakon što se rezultati pojave u izabranoj ćeliji


Prikazuju se rezultati svih ćelija


Brojevi u izabranom opsegu biće pretvoreni u reči za indijske rupije.

Besplatno preuzimanje Office paketa
  • Koristite Word, Excel i PPT BESPLATNO, bez oglasa.

  • Uređujte PDF datoteke pomoću moćnog skupa PDF alata.

  • Interfejs sličan Microsoftu. Lak za učenje. 100% kompatibilnost.

  • Povećajte svoju produktivnost pomoću bogatih, besplatnih Word, Excel, PPT i CV šablona u WPS-u.

avatar
Algirdas Jasaitis

Najbolja besplatna alternativa za Microsoft Office - WPS Office

Pored programa Microsoft Office, ponudiću vam još jednu aplikaciju. U pitanju je WPS Office. Dakle, šta je WPS?


WPS Office


WPS Office je besplatan kancelarijski paket otvorenog koda koji je kompatibilan sa programom Microsoft Office. Uključuje program za obradu teksta, tabele, softver za prezentacije i PDF čitač, tako da možete lako da otvarate, uređujete i čuvate datoteke. Takođe je jednostavan za korišćenje, čak i za osobe bez prethodnog iskustva u radu sa kancelarijskim paketima.

I ne samo to, WPS Office je moćan kancelarijski paket koji nudi širok spektar funkcija. Predstavlja dobru alternativu za NeoOffice, posebno za studente i preduzeća sa ograničenim budžetom.

Bacite brz pogled na neke od funkcija programa WPS:

●  Besplatno korišćenje Word, Excel i PPT alata. Moćan skup PDF alata

●  Bogata prodavnica šablona

●  Bogate funkcije: u proizvod su integrisani asistenti za biografije, pametni obrasci, snimanje ekrana, popravka datoteka i drugi mali alati

● Instalacija je izuzetno laka i zauzima samo oko 200 MB, te koristi minimalnu količinu memorije računara.

● MAC verzija paketa WPS Office je veoma moćna. Microsoft Office zanemaruje iskustvo Mac korisnika, što se može nadoknaditi korišćenjem paketa WPS Office

● Podrška za onlajn dokumente (WPS AirPage) i kolaborativno uređivanje od strane više osoba

● WPS Office takođe podržava Linux sistem, Android i iOS sisteme. Da biste koristili WPS Office proizvode na različitim sistemima, potrebno je samo da se prijavite na isti nalog i sve datoteke se mogu sinhronizovati


Besplatno preuzimanje na više platformi


Smatrate da je WPS Office najbolji izbor za vas i želite da ga preuzmete? Posetite ovaj zvanični veb-sajt: https://www.wps.com i preuzmite odmah.

Kako da preuzmete WPS Office

Korak 1: Posetite WPS Office veb-sajt: wps.com.

Korak 2: Kliknite na dugme "Free Download" (Besplatno preuzimanje)


Izaberite


Korak 3: Izaberite mesto gde želite da sačuvate WPS Office -> Save (Sačuvaj)


Sačuvaj WPS Office datoteku


Korak 4: Dvaput kliknite na WPS Office datoteku u fascikli za preuzimanja, kliknite na "Run" (Pokreni) i pratite uputstva na ekranu za instalaciju


Pokrenite softver


Korak 5: Nakon završetka, možete uživati u svim mogućnostima koje nudi WPS Office

Najčešća pitanja:

P1: Kako da pretvorim valutu u tekst u programu Excel VBA?

  • Možete da koristite VBA (Visual Basic for Applications) da biste pretvorili valutu u tekst u programu Excel. Biće potrebno da napišete prilagođeni VBA makro za vršenje ove konverzije. Primerke i isečke koda možete pronaći onlajn ili konsultovati dokumentaciju za Excel VBA radi dobijanja smernica.

P2: Kako da pretvorim valutu u tekstualne reči u programu Excel?

  • Da biste pretvorili valutu u reči u programu Excel, obično se koristi kombinacija funkcija i prilagođenog formatiranja. Na internetu možete pronaći razne tutorijale i vodiče koji objašnjavaju kako to da postignete.

P3: Kako formatirati brojeve u programu Excel za indijske rupije?

  • Da biste formatirali brojeve u programu Excel za indijske rupije, možete koristiti ugrađene opcije formatiranja valuta. Izaberite ćeliju ili opseg koji želite da formatirate, idite na karticu "Number" (Broj) u okviru za dijalog Format Cells (Formatiranje ćelija) i izaberite kategoriju "Currency" (Valuta). Odatle možete da izaberete "₹ English (India)" kao simbol valute.

P4: Kako da automatski pretvorim brojeve u tekst u programu Excel?

  • Postoji nekoliko načina za automatsko pretvaranje brojeva u tekst u programu Excel. Možete koristiti Excel funkcije kao što su TEXT, CONCATENATE ili prilagođeno formatiranje. Takođe možete koristiti VBA makroe za napredniju automatizaciju.

P5: Kako pretvoriti američke dolare u indijske rupije u programu Excel?

Da biste pretvorili američke dolare u indijske rupije u programu Excel, možete koristiti kombinaciju Excel funkcija i veb-usluga ili spoljnih izvora podataka koji pružaju kurseve valuta. Format "Currency" (Valuta) u programu Excel može se takođe koristiti za prikazivanje iznosa u indijskim rupijama nakon pribavljanja deviznih kurseva.

P5. Želite li da koristite Excel Online za lakši rad?

  • Ako radije radite u oblaku, Excel Online nudi iste moćne funkcije koje vam pomažu da upravljate svojim podacima i čistite ih sa bilo kog mesta. Pomoću programa Excel Online možete koristiti iste funkcije za uklanjanje znakova sa leve ili desne strane podataka, što ga čini odličnom opcijom za one kojima je potrebna fleksibilnost ili nemaju pristup desktop verziji programa Excel.

Rezime:

Naučite kako da lako pretvorite numeričke iznose u reči za indijske rupije unutar programa Excel, koristeći VBA kod ili uobičajeni metod. Prvo omogućite karticu Developer (Programer) u programu Excel, dodajte priloženi VBA kod i upotrebite formulu =RupeeFormat(ćelija_za_prikaz).

Alternativno, kliknite desnim tasterom miša na ime lista da biste pristupili VBA interfejsu, umetnite modul, nalepite kod i upotrebite istu formulu. Ovi metodi, jednostavni za korišćenje, takođe su kompatibilni sa paketom WPS Office, besplatnom alternativom programu Microsoft Office, što omogućava da precizno i profesionalno formatiranje dokumenata postane pravo uživanje.

100% bezbedno


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.