'%3e%3cpath%20d='M8%200C12.4183%200%2016%203.58172%2016%208C16%2012.4183%2012.4183%2016%208%2016C3.58172%2016%200%2012.4183%200%208C0%203.58172%203.58172%200%208%200ZM11.6162%204.38379C11.2257%203.99337%2010.5927%203.99338%2010.2021%204.38379L8%206.58594L5.79785%204.38379C5.40732%203.99334%204.77429%203.99329%204.38379%204.38379C3.99331%204.77429%203.99335%205.40733%204.38379%205.79785L6.58594%208L4.38379%2010.2021C3.99348%2010.5927%203.99341%2011.2257%204.38379%2011.6162C4.77426%2012.0066%205.40734%2012.0065%205.79785%2011.6162L8%209.41406L10.2021%2011.6162C10.5927%2012.0066%2011.2257%2012.0067%2011.6162%2011.6162C12.0067%2011.2257%2012.0066%2010.5927%2011.6162%2010.2021L9.41406%208L11.6162%205.79785C12.0066%205.40735%2012.0066%204.77429%2011.6162%204.38379Z'%20fill='%23080E17'%20fill-opacity='0.46'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_3761_713'%3e%3crect%20width='16'%20height='16'%20fill='white'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20fill-rule='evenodd'%20clip-rule='evenodd'%20d='M21.4999%2010.9993C21.4999%205.20009%2016.7986%200.498901%2010.9993%200.498901C5.19994%200.498901%200.498657%205.20009%200.498657%2010.9993C0.498657%2016.2404%204.33858%2020.5844%209.35855%2021.3722V14.0346H6.69238V10.9993H9.35855V8.68594C9.35855%206.05427%2010.9262%204.60062%2013.3248%204.60062C14.4736%204.60062%2015.6753%204.80571%2015.6753%204.80571V7.38979H14.3512C13.0468%207.38979%2012.64%208.19921%2012.64%209.0296V10.9993H15.5523L15.0867%2014.0346H12.64V21.3722C17.66%2020.5844%2021.4999%2016.2404%2021.4999%2010.9993Z'%20fill='%231568EA'/%3e%3c/g%3e%3c/svg%3e)
'%3e%3cpath%20d='M2.42045%2022.1876H6.31818V12.7217L0.75%208.54553V20.5171C0.75%2021.4414%201.49892%2022.1876%202.42045%2022.1876Z'%20fill='%234285F4'/%3e%3cpath%20d='M19.682%2022.1876H23.5797C24.5041%2022.1876%2025.2502%2021.4387%2025.2502%2020.5171V8.54553L19.682%2012.7217'%20fill='%2334A853'/%3e%3cpath%20d='M19.682%205.48293V12.7216L25.2502%208.54543V6.31816C25.2502%204.25236%2022.8921%203.07469%2021.2411%204.31361'%20fill='%23FBBC04'/%3e%3cpath%20d='M6.31824%2012.7217V5.48303L13.0001%2010.4944L19.6819%205.48303V12.7217L13.0001%2017.733'%20fill='%23EA4335'/%3e%3cpath%20d='M0.75%206.31816V8.54543L6.31818%2012.7216V5.48293L4.75909%204.31361C3.10534%203.07469%200.75%204.25236%200.75%206.31816Z'%20fill='%23C5221F'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2954_7305'%3e%3crect%20width='24.5'%20height='18.375'%20fill='white'%20transform='translate(0.75%203.8125)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e){kind=icon}
Kada radite s brojevima u programu Excel, ponekad ih zbog službenih dokumenata ili jasnoće morate prikazati i brojčano i slovima. Međutim, Excel nema ugrađeni način za to, posebno za indijske rupije. Zbog toga biste mogli završiti koristeći komplicirane formule, vanjske alate ili to raditi ručno.
U ovom ćemo vas vodiču naučiti jednostavnoj metodi korak po korak za pretvaranje brojeva u riječi za indijske rupije pomoću programa Excel.
2 jednostavna načina za pretvaranje brojeva u riječi za indijske rupije u programu Excel:
Naravno, prije svega, prvo trebate osigurati odgovarajuće preuzimanje programa Microsoft Excel!
1. metoda: Pretvaranje brojeva u riječi za indijske rupije pomoću VBA koda
Prije pretvaranja brojeva u riječi za indijske rupije pomoću VBA koda, možda ćete morati dodati karticu za razvojne programere na alatnu vrpcu kako biste otvorili VBA funkciju.
Evo koraka za omogućavanje kartice za razvojne programere u programu Excel:
1. korak: Otvorite Excel proračunsku tablicu koja sadrži brojeve koje želite pretvoriti.
2. korak: Kliknite na Datoteka i odaberite Opcije na popisu
3. korak: U Excel opcijama odaberite prilagodbu alatne vrpce
4. korak: Odaberite karticu Sve u opciji Odaberi naredbe iz
5. korak: Pronađite stavku Razvojni programatelj na popisu i kliknite Dodaj
6. korak: Kliknite na U redu
Sada slijede koraci za pretvaranje brojeva u riječi za indijske rupije pomoću VBA koda:
1. korak: Otvorite Excel proračunsku tablicu koja sadrži brojeve koje želite pretvoriti.
2. korak: Kliknite na karticu Razvojni programatelj. Ako ne vidite ovu karticu, slijedite gornje korake da biste je omogućili
3. korak: Kliknite na Visual Basic ili upotrijebite tipkovnički prečac Alt + F11
4. korak: Kliknite na Umetni i odaberite Modul.
5. korak: Zalijepite VBA kod naveden 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 |
|---|
5. korak: Spremite (Ctrl + S) i zatvorite VBA uređivač. Prilikom spremanja odaberite Excel radna knjiga s omogućenim makronaredbama
6. korak: Unesite formulu =RupeeFormat(referenca ćelije) u ćeliju u kojoj želite prikazati riječ i pritisnite Enter
7. korak: Rezultat će se prikazati. Povucite prema dolje kako biste primijenili formulu na druge ćelije
Brojevi u odabranom rasponu bit će pretvoreni u riječi za indijske rupije.
2. metoda: Pretvaranje brojeva u riječi za indijske rupije u programu Excel (Uobičajena metoda)
Naučite uobičajenu metodu za pretvaranje brojeva u riječi za indijske rupije unutar programa Excel, što je praktičan korak pri pripremi faktura za knjigovodstvo.
1. korak: Otvorite Excel proračunsku tablicu koja sadrži brojeve koje želite pretvoriti.
2. korak: Desnom tipkom miša kliknite na naziv lista i odaberite Prikaži kod za otvaranje VBA aplikacije. Ovo je korisno i za analizu podataka u programu Excel.
3. korak: Kliknite na Umetni i odaberite Modul.
4. korak: Zalijepite VBA kod naveden 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 |
|---|
5. korak: Odaberite Excel radna knjiga s omogućenim makronaredbama pod Spremi kao vrstu. Zatvorite prozor VBA uređivača
6. korak: Unesite formulu =RupeeFormat(referenca ćelije) u odabленную ćeliju za prikaz rezultata.
7. korak: Povucite prema dolje kako biste primijenili formulu na druge ćelije nakon što se rezultat prikaže u odabranoj ćeliji
Brojevi u odabranom rasponu bit će pretvoreni u riječi za indijske rupije.
Najbolja besplatna alternativa za Microsoft Office - WPS Office
Uz Microsoft Office, predložit ću vam još jednu aplikaciju. Riječ je o paketu WPS Office. Dakle, što je WPS?
WPS Office besplatni je uredski paket otvorenog koda kompatibilan s Microsoft Officeom. Uključuje program za obradu teksta, proračunske tablice, softver za prezentacije i PDF čitač kako biste jednostavno mogli otvarati, uređivati i spremati datoteke. Također je jednostavan za korištenje, čak i osobama bez prethodnog iskustva s uredskim paketima.
Uz to, WPS Office moćan je uredski paket koji nudi širok raspon značajki. Dobra je alternativa za NeoOffice, posebno za studente i tvrtke s ograničenim budžetom.
Kratko pogledajte neke od značajki koje nudi WPS:
● Besplatno korištenje aplikacija Word, Excel i PPT. Snažan skup alata za PDF
● Bogata trgovina predložaka
● Bogate funkcije: asistenti za životopise, pametni obrasci, snimanje zaslona, popravak datoteka i drugi mali alati integrirani su u proizvod
● Softver zauzima samo 200 MB prostora te koristi vrlo malo memorije računala.
● Mac verzija paketa WPS Office iznimno je moćna. Microsoft Office zanemaruje iskustvo Mac korisnika, što uspješno nadoknađuje WPS Office.
● Podržava mrežne dokumente(WPS AirPage) i suradničko uređivanje više osoba
● WPS Office podržava sustave Linux, Android i iOS. Za korištenje WPS Office proizvoda na različitim sustavima dovoljno je prijaviti se na isti račun, a sve će datoteke biti sinkronizirane.
Mislite da je WPS Office najbolji izbor za vas i želite ga preuzeti? Posjetite ovu službenu web-stranicu: https://www.wps.com i preuzmite ga odmah.
Kako preuzeti WPS Office
1. korak: Posjetite web-stranicu WPS Office: wps.com.
2. korak: Kliknite na gumb "Besplatno preuzimanje"
3. korak: Odaberite mjesto gdje želite spremiti WPS Office -> Spremi
4. korak: Dvaput kliknite na WPS Office datoteku u mapi Preuzimanja, kliknite "Pokreni" i slijedite upute na zaslonu za instalaciju
5. korak: Nakon završetka, možete uživati u svim mogućnostima paketa WPS Office
Česta pitanja:
P1: Kako pretvoriti valutu u tekst u Excel VBA?
Možete koristiti VBA (Visual Basic for Applications) za pretvaranje valute u tekst u programu Excel. Morat ćete napisati prilagođenu VBA makronaredbu za ovu konverziju. Primjere i isječke koda možete pronaći na internetu ili u dokumentaciji za Excel VBA.
P2: Kako pretvoriti valutu u tekst riječima u programu Excel?
Za pretvaranje valute u riječi u programu Excel obično se koristi kombinacija funkcija i prilagođenog formatiranja. Na internetu možete pronaći razne priručnike i vodiče koji objašnjavaju kako to postići.
P3: Kako formatirati brojeve u programu Excel za indijske rupije?
Za formatiranje brojeva u programu Excel u indijske rupije, možete se poslužiti ugrađenim opcijama oblikovanja valute. Odaberite ćeliju ili raspon koji želite formatirati, idite na karticu "Broj" u dijaloškom okviru Oblikovanje ćelija i odaberite kategoriju "Valuta". Tamo možete odabrati "₹ Engleski (Indija)" kao simbol valute.
P4: Kako automatski pretvoriti brojeve u tekst u programu Excel?
Postoji nekoliko načina za automatsku pretvorbu brojeva u tekst u programu Excel. Možete koristiti funkcije programa Excel kao što su TEXT, CONCATENATE ili prilagođeno oblikovanje. Za napredniju automatizaciju također možete koristiti VBA makronaredbe.
P5: Kako pretvoriti američke dolare u indijske rupije u programu Excel?
Za pretvaranje američkih dolara u indijske rupije u programu Excel, možete koristiti kombinaciju funkcija programa Excel s web-uslugama ili vanjskim izvorima podataka koji pružaju tečajeve valuta. Format "Valuta" u programu Excel može se koristiti i za prikazivanje iznosa u indijskim rupijama nakon dobivanja tečaja.
P5. Želite li lakše raditi uz Excel Online?
Ako preferirate rad u oblaku, Excel Online nudi iste moćne značajke koje će vam pomoći u upravljanju i čišćenju podataka s bilo kojeg mjesta. S Excel Online verzijom možete koristiti iste funkcije za uklanjanje znakova s lijeve ili desne strane podataka, što ju čini izvrsnom opcijom za sve koji trebaju fleksibilnost ili nemaju pristup stolnoj verziji programa Excel.
Sažetak:
Saznajte kako lako pretvoriti novčane iznose u riječi za indijske rupije unutar programa Excel koristeći VBA kod ili uobičajenu metodu. Najprije omogućite karticu Razvojni programatelj u programu Excel, dodajte navedeni VBA kod i upotrijebite formulu =RupeeFormat(referenca ćelije).
Alternativno, desnom tipkom miša kliknite na naziv lista za pristup aplikaciji VBA, umetnite modul, zalijepite kod i primijenite istu formulu. Ove metode prilagođene korisnicima također su kompatibilne s paketom WPS Office, besplatnom alternativom Microsoft Officeu, zahvaljujući čemu precizno i profesionalno oblikovanje dokumenata postaje iznimno lako.
'%3e%3cpath%20d='M19.9911%204.11386V6.471H18.5894C18.0775%206.471%2017.7322%206.57814%2017.5536%206.79243C17.3751%207.00671%2017.2858%207.32814%2017.2858%207.75671V9.44421H19.9019L19.5536%2012.0871H17.2858V18.8639H14.5536V12.0871H12.2769V9.44421H14.5536V7.49779C14.5536%206.39064%2014.8632%205.53201%2015.4822%204.92189C16.1013%204.31177%2016.9257%204.00671%2017.9554%204.00671C18.8304%204.00671%2019.509%204.04243%2019.9911%204.11386Z'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8199'%3e%3crect%20width='16'%20height='16'%20fill='white'%20transform='translate(8%204.00671)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
'%3e%3cpath%20d='M17.5237%2010.7813L23.4811%204H22.0699L16.8949%209.88693L12.7648%204H8L14.2469%2012.9029L8%2020.0133H9.4112L14.8725%2013.7952L19.2352%2020.0133H24M9.92053%205.04213H12.0885L22.0688%2019.0224H19.9003'%20fill='%23333333'/%3e%3c/g%3e%3cdefs%3e%3cclipPath%20id='clip0_2938_8200'%3e%3crect%20width='16'%20height='16.0134'%20fill='white'%20transform='translate(8%204)'/%3e%3c/clipPath%3e%3c/defs%3e%3c/svg%3e)
