Când lucrezi cu numere în Excel, uneori trebuie să le afișezi atât în cifre, cât și în cuvinte, pentru documente oficiale sau pentru claritate. Însă Excel nu are o funcție încorporată pentru acest lucru, în special pentru rupiile indiene. Astfel, s-ar putea să ajungi să folosești formule complicate, instrumente externe sau să faci conversia manual.
În acest ghid, te vom învăța o metodă simplă, pas cu pas, pentru a converti numerele în cuvinte pentru rupiile indiene, folosind Excel.
2 modalități simple de a converti numerele în cuvinte în rupii indiene în Excel:
Înainte de toate, desigur, trebuie mai întâi să finalizezi descărcarea Microsoft Excel!
Metoda 1: Convertirea numerelor în cuvinte în rupii indiene folosind cod VBA
Înainte de a converti numerele în cuvinte pentru rupii indiene folosind cod VBA, s-ar putea să fie necesar să adaugi fila Developer (Dezvoltator) în panglica ta pentru a accesa funcțiile VBA.
Iată pașii pentru a activa fila Developer în Excel:
Pasul 1: Deschide foaia de calcul Excel care conține numerele pe care dorești să le convertești.

Pasul 2: Fă clic pe File (Fișier) și alege Options (Opțiuni) din listă.

Pasul 3: În fereastra Excel Options (Opțiuni Excel), alege Customize Ribbon (Personalizare panglică).

Pasul 4: Alege All Tabs (Toate filele) din opțiunea Choose commands from (Alegeți comenzile de la).

Pasul 5: Găsește Developer (Dezvoltator) în listă și fă clic pe Add (Adăugare).

Pasul 6: Fă clic pe OK.

Acum iată pașii pentru a converti numerele în cuvinte în rupii indiene folosind cod VBA:
Pasul 1: Deschide foaia de calcul Excel care conține numerele pe care dorești să le convertești.

Pasul 2: Fă clic pe fila Developer (Dezvoltator). Dacă nu vezi această filă, urmează pașii de mai sus pentru a o activa.

Pasul 3: Fă clic pe Visual Basic sau folosește comanda rapidă de la tastatură Alt + F11.

Pasul 4: Fă clic pe Insert (Inserare) și alege Module (Modul).

Pasul 5: Lipește codul VBA furnizat în referință.
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 |
|---|

Pasul 5: Salvează (Ctrl + S) și închide editorul VBA. Alege Excel Macro-Enabled Workbook (Registru de lucru Excel cu macrocomenzi activate) la salvare.

Pasul 6: Introdu formula =RupeeFormat(celulă_afișare) în celula în care dorești să afișezi textul și apasă Enter.

Pasul 7: Rezultatul va fi afișat. Trage în jos pentru a aplica formula și la alte celule.

Numerele din intervalul selectat vor fi convertite în cuvinte în rupii indiene.
Metoda 2: Convertirea numerelor în cuvinte în rupii indiene în Excel (Metoda comună)
Învață metoda comună de a converti numerele în cuvinte în rupii indiene în Excel, un pas util atunci când pregătești facturi pentru contabilitate.
Pasul 1: Deschide foaia de calcul Excel care conține numerele pe care dorești să le convertești.

Pasul 2: Fă clic dreapta pe numele foii și selectează View Code (Vizualizare cod) pentru a deschide aplicația VBA. Acest lucru este util și pentru analiza datelor în Excel.

Pasul 3: Fă clic pe Insert (Inserare) și alege Module (Modul).

Pasul 4: Lipește codul VBA furnizat în referință.
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 |
|---|

Pasul 5: Alege Excel Macro-Enabled Workbook la tipul de salvare (Save as type). Închide fereastra editorului VBA.

Pasul 6: Introdu formula =RupeeFormat(celulă_afișare) în celula selectată pentru a afișa rezultatul.

Pasul 7: Trage în jos pentru a aplica formula și la alte celule, după ce rezultatele apar în celula selectată.

Numerele din intervalul selectat vor fi convertite în cuvinte în rupii indiene.
Cea mai bună alternativă gratuită la Microsoft Office - WPS Office
Pe lângă Microsoft Office, îți voi prezenta o altă aplicație. Aceasta este WPS Office. Așadar, ce este WPS Office?

WPS Office este o suită de birou gratuită și open-source, compatibilă cu Microsoft Office. Aceasta include un procesor de text, un program pentru foi de calcul, un software pentru prezentări și un cititor PDF, permițându-ți să deschizi, editezi și salvezi fișiere cu ușurință. De asemenea, este foarte ușor de utilizat, chiar și pentru persoanele fără experiență anterioară cu suitele de birou.
Mai mult decât atât, WPS Office este o suită de birou puternică, oferind o gamă largă de funcții. Este o alternativă excelentă la NeoOffice, în special pentru studenții și companiile cu un buget redus.
Iată o scurtă prezentare a câtorva funcții oferite de WPS:
● Utilizare gratuită pentru Word, Excel și PPT. Set puternic de instrumente PDF
● Colecție bogată de șabloane
● Funcții bogate: produsul integrează asistenți pentru CV-uri, formulare inteligente, înregistrare a ecranului, reparare de fișiere și alte instrumente practice
● Dimensiunea redusă a aplicației este de doar 200 MB și ocupă foarte puțin din memoria computerului.
● Versiunea WPS Office pentru Mac este foarte performantă. Microsoft Office ignoră deseori experiența utilizatorilor de Mac, o deficiență ce poate fi compensată de WPS Office.
● Suport pentru documente online (WPS AirPage) și editare colaborativă cu mai multe persoane
● WPS Office suportă, de asemenea, sistemele Linux, Android și iOS. Pentru a utiliza produsele WPS Office pe diferite sisteme, trebuie doar să te conectezi la același cont, iar toate fișierele vor fi sincronizate.

Consideri că WPS Office este cea mai bună alegere pentru tine și vrei să-l descarci? Te rugăm să vizitezi site-ul oficial: https://www.wps.com și să-l descarci chiar acum.
Cum să descarci WPS Office
Pasul 1: Accesează site-ul web WPS Office: wps.com.
Pasul 2: Fă clic pe butonul "Free Download" (Descărcare gratuită).

Pasul 3: Selectează locația unde dorești să salvezi WPS Office -> Save (Salvare)

Pasul 4: Fă dublu clic pe fișierul de instalare WPS Office din dosarul tău de descărcări, apasă pe "Run" (Rulare) și urmează instrucțiunile de pe ecran pentru a instala.

Pasul 5: După finalizare, te poți bucura de toate capabilitățile oferite de WPS Office.
Întrebări frecvente:
Î1: Cum convertesc valuta în text folosind Excel VBA?
Poți folosi VBA (Visual Basic for Applications) pentru a converti valuta în text în Excel. Va trebui să scrii o macrocomandă VBA personalizată pentru a realiza această conversie. Poți găsi online exemple și fragmente de cod sau poți consulta documentația Excel VBA pentru asistență.
Î2: Cum convertesc valuta în text de tip cuvinte în Excel?
Pentru a converti valuta în cuvinte în Excel, se utilizează de obicei o combinație de funcții și formatare personalizată. Poți găsi online diverse tutoriale și ghiduri care explică detaliat cum poți obține acest rezultat.
Î3: Cum formatez numerele în Excel pentru rupiile indiene?
Pentru a formata numerele în Excel pentru rupii indiene, poți folosi opțiunile de formatare valutară încorporate. Selectează celula sau intervalul pe care vrei să-l formatezi, mergi la fila "Număr" (Number) din caseta de dialog Formatare celule (Format Cells) și alege categoria "Monedă" (Currency). De acolo, poți selecta "₹ Engleză (India)" ca simbol valutar.
Î4: Cum convertesc automat numerele în text în Excel?
Există mai multe modalități de a converti automat numerele în text în Excel. Poți folosi funcții Excel precum TEXT, CONCATENATE sau formatarea personalizată. De asemenea, poți utiliza macrocomenzi VBA pentru o automatizare mai avansată.
Î5: Cum convertesc dolarii americani în rupii indiene în Excel?
Pentru a converti dolari americani în rupii indiene în Excel, poți utiliza o combinație de funcții Excel cu servicii web sau surse de date externe care furnizează ratele de schimb valutar. Formatul "Monedă" (Currency) din Excel poate fi folosit ulterior pentru a afișa sumele în rupii indiene, după ce ai obținut cursurile de schimb.
Î6. Vrei să folosești Excel Online pentru a-ți ușura munca?
Dacă preferi să lucrezi în cloud, Excel Online îți oferă aceleași funcții puternice pentru a te ajuta să-ți gestionezi și să-ți cureți datele de oriunde te-ai afla. Cu Excel Online, poți utiliza aceleași funcții pentru a elimina caracterele din partea stângă sau dreaptă a datelor tale, fiind o opțiune excelentă pentru cei care au nevoie de flexibilitate sau care nu au acces la versiunea pentru desktop a programului Excel.
Rezumat:
Află cum să convertești cu ușurință sumele numerice în cuvinte pentru rupiile indiene în Excel, utilizând codul VBA sau o metodă comună. Mai întâi, activează fila Developer (Dezvoltator) în Excel, adaugă codul VBA furnizat și folosește formula =RupeeFormat(celulă_afișare).
Alternativ, poți face clic dreapta pe numele foii pentru a accesa VBA, poți insera un modul, lipi codul și folosi aceeași formulă. Aceste metode ușor de utilizat sunt compatibile și cu WPS Office, o alternativă gratuită la Microsoft Office, care transformă formatarea precisă și profesională a documentelor într-o joacă de copii.





