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.

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

Hakbang 3: Sa Excel Options, piliin ang Customize Ribbon

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

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

Hakbang 6: I-click ang OK

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.

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

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

Hakbang 4: I-click ang Insert at piliin ang 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 |
|---|

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

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

Hakbang 7: Ipapalabas ang resulta. I-drag pababa upang ilapat ang formula sa iba pang mga 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.

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.

Hakbang 3: I-click ang Insert at piliin ang 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 |
|---|

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

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

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

Ang mga numero sa napiling range ay mako-convert sa mga salita para sa Indian rupees.
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?

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

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

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

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

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.





