logo
search
list

Cuprins

2 metode ușoare pentru a converti numerele în cuvinte pentru rupii indiene în Excel:
Cea mai bună alternativă gratuită la Microsoft Office - WPS Office
Întrebări frecvente:
Rezumat:

Cum să convertești numerele în cuvinte pentru rupii indiene în Excel

Publicat de Algirdas Jasaitis

calendar

2026-09-24

views

868

likes

59

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.


Numărul de convertit în tabel


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


Opțiunea File Alt: Butonul Options


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


Fila Options și butonul Customize Ribbon


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


Alegerea comenzilor din listă cu opțiunea All Tabs selectată


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


Fila Developer și butonul Add


Pasul 6: Fă clic pe OK.


Fila Developer adăugată și butonul OK


Folosește gratuit Word, Excel și PPT

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.


Numărul de convertit în tabel


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


Fila Developer


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


Butonul Visual Basic


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


Opțiunea Insert > Module


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


Cod VBA inserat ca referință


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


Save as type (Salvare cu tipul)


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


formula =RupeeFormat(celulă_afișare)


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


Apar rezultatele pentru toate celulele


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.


Numărul de convertit în tabel


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.


Fila foii și butonul View Code


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


Opțiunea Insert > Module


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


Cod VBA inserat ca referință


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


Save as type (Salvare cu tipul)


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


formula =RupeeFormat(celulă_afișare)


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


Apar rezultatele pentru toate celulele


Numerele din intervalul selectat vor fi convertite în cuvinte în rupii indiene.

Descărcare Office gratuită
  • Folosește gratuit Word, Excel și PPT, fără reclame.

  • Editează fișiere PDF cu ajutorul setului puternic de instrumente PDF.

  • Interfață similară cu Microsoft. Ușor de învățat. Compatibilitate 100%.

  • Crește-ți productivitatea cu numeroasele șabloane gratuite pentru Word, Excel, PPT și CV-uri de la WPS.

avatar
Algirdas Jasaitis

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


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.


Descărcare gratuită pe multiple platforme


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ă).


Alege


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


Salvare fișier WPS Office


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.


Rulare software


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.

100% sigur


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.