logo
search
list

Talaan ng Nilalaman

2 Madaling Paraan para I-convert ang Numbers sa Words sa Indian Rupees sa Excel:
Pinakamagandang Libreng Alternatibo sa Microsoft Office - WPS Office
Mga FAQ:
Buod:

Paano I-convert ang Numbers sa Words sa Indian Rupees sa Excel

Nai-post ni Maria Santos

calendar

2026-09-24

views

868

likes

59

Kapag gumagawa ka sa mga numero sa Excel, minsan kailangan mong ipakita ang mga ito sa parehong numero at salita para sa mga opisyal na dokumento o para sa kalinawan. Ngunit walang built-in na paraan ang Excel para gawin ito, lalo na para sa mga Indian Rupee. Kaya naman, maaaring humantong ka sa paggamit ng mga kumplikadong formula, external tools, o gawin ito nang mano-mano.

Sa gabay na ito, tuturuan ka namin ng isang simpleng hakbang-hakbang na paraan para i-convert ang mga numero sa mga salita para sa Indian Rupees gamit ang Excel.

2 Madaling Paraan para I-convert ang mga Numero sa Salita para sa Indian Rupees sa Excel:

Siyempre, higit sa lahat, kailangan mo munang makakuha ng tamang Microsoft Excel download!

Paraan 1: I-convert ang mga numero sa salita para sa Indian rupees gamit ang VBA code

Bago i-convert ang mga numero sa salita para sa Indian Rupees gamit ang VBA code, maaaring kailanganin mong idagdag ang developer tab sa iyong ribbon para mabuksan ang VBA function.

Narito ang hakbang para paganahin ang developer tab sa Excel:

Hakbang 1: Buksan ang Excel spreadsheet na naglalaman ng mga numerong gusto mong i-convert.


Numerong iko-convert Sa Talahanayan


Hakbang 2: I-click ang File at piliin ang Options sa listahan


File OptionAlt: Option Button


Hakbang 3: Sa Excel Options, piliin ang Customize Ribbon


Option Tab at Customize Ribbon Button


Hakbang 4: Piliin ang All Tabs sa opsyong Choose commands from


Listahan ng Choose commands from na pinili ang All Tabs


Hakbang 5: Hanapin ang Developer sa listahan at i-click ang Add


Developer Tab at Add button


Hakbang 6: I-click ang OK


Developer Tab na idinagdag at OK button


Gumamit ng Word, Excel, at PPT nang LIBRE

Ngayon, narito ang hakbang para i-convert ang mga numero sa salita para sa Indian Rupees gamit ang VBA code:

Hakbang 1: Buksan ang Excel spreadsheet na naglalaman ng mga numerong gusto mong i-convert.


Numerong iko-convert Sa Talahanayan


Hakbang 2: I-click ang Developer tab. Kung hindi mo nakikita ang tab na ito, sundin ang hakbang sa itaas upang paganahin ito


Developer Tab


Hakbang 3: I-click ang Visual Basic o gamitin ang keyboard shortcut na Alt + F11


Visual Basic Button


Hakbang 4: I-click ang Insert at piliin ang Module.


I-click ang opsyong Insert > Module


Hakbang 5: I-paste ang VBA code na ibinigay sa reference.

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


Inilagay ang VBA Code sa reference


Hakbang 5: I-save (Ctrl + S) at isara ang VBA editor. Piliin ang Excel Macro-Enabled Workbook kapag nagse-save


Save as type


Hakbang 6: Ilagay ang formula na =RupeeFormat(display cell) sa cell kung saan mo gustong ipakita ang salita at i-click ang enter


formula na =RupeeFormat(display cell)


Hakbang 7: Ipapalabas ang resulta. I-drag pababa upang ilapat ang formula sa iba pang mga cell


Lalabas ang resulta ng lahat ng cell


Ang mga numero sa napiling range ay mako-convert sa mga salita para sa Indian rupees.

Paraan 2: Pag-convert ng mga Numero sa mga Salita para sa Indian Rupees sa Excel (Karaniwang Paraan)

Matutunan ang karaniwang paraan para i-convert ang mga numero sa salita para sa Indian Rupees sa loob ng Excel, isang madaling hakbang kapag naghahanda ka ng mga invoice para sa bookkeeping.

Hakbang 1: Buksan ang Excel spreadsheet na naglalaman ng mga numerong gusto mong i-convert.


Numerong iko-convert Sa Talahanayan


Hakbang 2: Mag-right click sa pangalan ng sheet at piliin ang View Code upang buksan ang VBA application. Kapaki-pakinabang din ito para sa data analysis sa Excel.


Sheet Tab at View Code Button


Hakbang 3: I-click ang Insert at piliin ang Module.


I-click ang opsyong Insert > Module


Hakbang 4: I-paste ang VBA code na ibinigay sa reference.

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


Inilagay ang VBA Code sa reference


Hakbang 5: Piliin ang Excel Macro-Enabled Workbook sa save as type. Isara ang mga bintana ng VBA editor


Save as type


Hakbang 6: ilagay ang formula na =RupeeFormat(display cell) sa napiling cell upang maipakita ang resulta.


formula na =RupeeFormat(display cell)


Hakbang 7: I-drag pababa para ilapat ang formula sa ibang mga cell pagkatapos lumabas ang mga resulta sa napiling cell


Lalabas ang resulta ng lahat ng cell


Ang mga numero sa napiling range ay mako-convert sa mga salita para sa Indian rupees.

Libreng Office Download
  • Gumamit ng Word, Excel, at PPT nang LIBRE, Walang Mga Ad.

  • I-edit ang mga PDF file gamit ang mahusay na PDF toolkit.

  • Interface na tulad ng Microsoft. Madaling matutunan. 100% Compatibility.

  • Palakasin ang iyong pagiging produktibo gamit ang maraming libreng template ng Word, Excel, PPT, at CV mula sa WPS.

100% secure
avatar
Algirdas Jasaitis

Pinakamahusay na Libreng Alternatibo sa Microsoft Office - WPS Office

Bukod sa Microsoft Office, aalukin kita ng isa pang app. Ito ay ang WPS Office. Kaya, ano ba ang WPS?


WPS Office


Ang WPS Office ay isang libre at open-source na office suite na compatible sa Microsoft Office. Kabilang dito ang isang word processor, spreadsheet, presentation software, at isang PDF reader, kaya madali kang makakapagbukas, makakapag-edit, at makakapag-save ng mga file. Madali rin itong gamitin, kahit pa para sa mga taong walang karanasan sa mga office suite.

Hindi lamang iyan, ang WPS Office ay isang malakas na office suite na nag-aalok ng malawak na hanay ng mga feature. Ito ay magandang alternatibo sa NeoOffice, lalo na para sa mga mag-aaral at negosyo na may limitadong badyet.

Mabilis na tingnan ang ilan sa mga feature ng WPS:

●  Libreng gamitin ang Word, Excel, at PPT. Napakahusay na PDF toolkit

●  Mayamang store ng mga template

●  Mayamang functions, may mga resume assistant, smart forms, screen recording, file repair, at iba pang maliliit na tool na nakasama sa produkto

● Ang magaang sukat ng produkto ay 200M lamang, at umuubos lang ito ng maliit na espasyo sa computer memory.

● Ang MAC version ng WPS Office ay napakalakas. Binabalewala ng Microsoft office ang karanasan ng mga mac user, na maaaring mapunan ng wps office

● Suporta sa mga online document (WPS AirPage), multi-person collaborative editing

● Sinusuportahan din ng WPS office ang Linux system, Android, at ios system. Upang gamitin ang mga produkto ng WPS office sa iba't ibang system, kailangan mo lang mag-log in sa iisang account, at masi-synchronize ang lahat ng file


Libreng i-download sa Maramihang Platform


Pakiramdam mo ba ay ang WPS Office ang pinakamagandang pagpipilian para sa iyo at gusto mong mag-download? Mangyaring bisitahin ang opisyal na website na ito: https://www.wps.com at i-download na ngayon.

Paano i-download ang WPS Office

Hakbang 1: Bisitahin ang website ng WPS Office: wps.com.

Hakbang 2: I-click ang " Free Download" button


Piliin


Hakbang 3: Piliin ang lugar kung saan mo gustong i-save ang WPS Office -> I-save


I-save ang WPS Office file


Hakbang 4: I-double click ang WPS Office file sa iyong na-download na file, i-click ang "Run" at sundin ang mga tagubilin sa screen upang mag-install


I-run ang software


Hakbang 5: Pagkatapos makumpleto, maaari mo nang ma-enjoy ang lahat ng kakayahan ng WPS Office

Mga FAQ:

T1: Paano ko mako-convert ang pera patungo sa text sa Excel VBA?

  • Maaari kang gumamit ng VBA (Visual Basic for Applications) para i-convert ang pera patungo sa text sa Excel. Kakailanganin mong magsulat ng custom na VBA macro para maisagawa ang conversion na ito. Maaari kang makahanap ng mga halimbawa at code snippet online o sumangguni sa dokumentasyon ng Excel VBA para sa gabay.

T2: Paano i-convert ang pera sa salita sa Excel?

  • Upang i-convert ang pera sa salita sa Excel, karaniwan kang gumagamit ng kombinasyon ng mga function at custom na pag-format. Makakahanap ka ng iba't ibang mga tutorial at gabay online na nagpapaliwanag kung paano ito makakamit.

T3: Paano i-format ang mga numero sa Excel para sa Indian rupees?

  • Upang i-format ang mga numero sa Excel para sa Indian Rupees, maaari mong gamitin ang mga built-in na currency formatting option. Piliin ang cell o range na gusto mong i-format, pumunta sa "Number" tab sa Format Cells dialog box, at piliin ang kategoryang "Currency". Mula roon, maaari mong piliin ang "₹ English (India)" bilang simbolo ng currency.

T4: Paano ko awtomatikong mako-convert ang mga numero patungo sa text sa Excel?

  • May ilang paraan upang awtomatikong i-convert ang mga numero sa text sa Excel. Maaari kang gumamit ng mga Excel function tulad ng TEXT, CONCATENATE, o custom na pag-format. Maaari ka ring gumamit ng mga VBA macro para sa mas advanced na automation.

T5: Paano i-convert ang US dollar sa Indian rupees sa Excel?

Upang i-convert ang US dollars sa Indian Rupees sa Excel, maaari kang gumamit ng kombinasyon ng mga Excel function at mga web service o external data sources na nagbibigay ng mga currency exchange rate. Magagamit din ang "Currency" format ng Excel para sa pagpapakita ng mga halaga sa Indian Rupees pagkatapos makuha ang mga exchange rate.

T5. Gustong gumamit ng Excel Online para sa mas madaling trabaho?

  • Kung mas gusto mong magtrabaho sa cloud, ang Excel Online ay nag-aalok ng parehong malalakas na feature upang matulungan kang pamahalaan at linisin ang iyong data mula saanman. Gamit ang Excel Online, maaari mong gamitin ang parehong mga function upang alisin ang mga character mula sa kaliwa o kanang bahagi ng iyong data, na ginagawa itong isang magandang opsyon para sa mga nangangailangan ng flexibility o walang access sa desktop version ng Excel.

Buod:

Matutunan kung paano madaling i-convert ang mga halaga ng numero patungo sa salita para sa Indian Rupees sa loob ng Excel, gamit ang VBA code man o isang karaniwang paraan. Una, paganahin ang Developer tab sa Excel, idagdag ang ibinigay na VBA code, at gamitin ang formula na =RupeeFormat(display cell).

Bilang alternatibo, mag-right click sa pangalan ng sheet upang i-access ang VBA, magpasok ng module, i-paste ang code, at gamitin ang parehong formula. Ang mga user-friendly na paraang ito ay compatible din sa WPS Office, isang libreng alternatibo sa Microsoft Office, na ginagawang napakadali ng tumpak at propesyonal na pag-format ng dokumento.

100% secure


Maria Santos

13 taong karanasan sa industriya ng office software, tech enthusiast at propesyonal na manunulat. Sundan ang aking mga review ng produkto, paghahambing ng mga app, at mga rekomendasyon para sa mga bagong software.