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.

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

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

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

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

Korak 6: Kliknite na OK

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.

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

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

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

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

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)

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

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

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.

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.

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

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

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

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

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

Brojevi u izabranom opsegu biće pretvoreni u reči za indijske rupije.
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 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

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)

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

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

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.





