logo
search
list

目錄

2 種在 Excel 中將數字轉換為印度盧比文字的簡單方法：
Microsoft Office 的最佳免費替代方案 - WPS Office
常見問題解答：
總結：

如何在 Excel 中將數字轉換為印度盧比文字

發佈者 陳文豪

calendar

2026-09-24

views

868

likes

59

在 Excel 中處理數字時，有時為了正式文件或清楚起見，您需要同時以數字和文字顯示。但是 Excel 沒有內建的方法來執行此操作，尤其是對於印度盧比。因此，您可能最終會使用複雜的公式、外部工具或手動執行。

在本指南中，我們將教您一個簡單的逐步方法，在 Excel 中將印度盧比數字轉換為文字。

在 Excel 中將印度盧比數字轉換為文字的 2 種簡單方法：

當然，最重要的是，您需要先完成 Microsoft Excel 下載！

方法 1：使用 VBA 程式碼將印度盧比數字轉換為文字

在使用 VBA 程式碼將印度盧比數字轉換為文字之前，您可能需要在功能區中新增「開發人員」索引標籤以開啟 VBA 功能。

以下是在 Excel 中啟用「開發人員」索引標籤的步驟：

步驟 1：開啟包含要轉換之數字的 Excel 試算表。


表格中要轉換的數字


步驟 2：按一下「檔案」，然後在清單中選擇「選項」


「檔案」選項，Alt：選項按鈕


步驟 3：在 Excel「選項」中，選擇「自訂功能區」


「選項」索引標籤與「自訂功能區」按鈕


步驟 4：在「由此選擇命令」選項中選擇「所有索引標籤」


在清單中選擇命令，並選取「所有索引標籤」


步驟 5：在清單中尋找「開發人員」，然後按一下「新增」


「開發人員」索引標籤與「新增」按鈕


步驟 6：按一下「確定」


已新增「開發人員」索引標籤與「確定」按鈕


免費使用 Word、Excel 和 PPT

現在，以下是使用 VBA 程式碼將印度盧比數字轉換為文字的步驟：

步驟 1：開啟包含要轉換之數字的 Excel 試算表。


表格中要轉換的數字


步驟 2：按一下「開發人員」索引標籤。如果您沒有看到此索引標籤，請依照上述步驟將其啟用


「開發人員」索引標籤


步驟 3：按一下 Visual Basic 或使用鍵盤快速鍵 Alt + F11


Visual Basic 按鈕


步驟 4：按一下「插入」並選擇「模組」。


按一下「插入」>「模組」選項


步驟 5：貼上參考資料中提供的 VBA 程式碼。

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


在參考資料中插入的 VBA 程式碼


步驟 5：儲存 (Ctrl + S) 並關閉 VBA 編輯器。儲存時選擇「Excel 啟用巨集的活頁簿」


存檔類型


步驟 6：在要顯示文字的儲存格中輸入公式 =RupeeFormat(display cell) ，然後按 Enter 鍵


公式 =RupeeFormat(display cell)


步驟 7：將顯示結果。向下拖曳以將公式套用到其他儲存格


出現所有儲存格結果


選定範圍內的數字將轉換為印度盧比文字。

方法 2：在 Excel 中將印度盧比數字轉換為文字（常見方法）

學習在 Excel 中將印度盧比數字轉換為文字的常見方法，這是您在準備簿記發票時的便利步驟。

步驟 1：開啟包含要轉換之數字的 Excel 試算表。


表格中要轉換的數字


步驟 2：在工作表名稱上按一下滑鼠右鍵，然後選擇「檢視程式碼」以開啟 VBA 應用程式。這對 Excel 中的資料分析也非常有用。


工作表索引標籤與「檢視程式碼」按鈕


步驟 3：按一下「插入」並選擇「模組」。


按一下「插入」>「模組」選項


步驟 4：貼上參考資料中提供的 VBA 程式碼。

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


在參考資料中插入的 VBA 程式碼


步驟 5：在存檔類型中選擇「Excel 啟用巨集的活頁簿」。關閉 VBA 編輯器視窗


存檔類型


步驟 6：在選定的儲存格中輸入公式 =RupeeFormat(display cell) 以顯示結果。


公式 =RupeeFormat(display cell)


步驟 7：在選定儲存格中出現結果後，向下拖曳以將公式套用到其他儲存格


出現所有儲存格結果


選定範圍內的數字將轉換為印度盧比文字。

免費 Office 下載

  • 免費使用 Word、Excel 和 PPT，無廣告。

  • 使用強大的 PDF 工具組編輯 PDF 檔案。

  • 類似 Microsoft 的介面。易於學習。100% 相容。

  • 利用 WPS 豐富的免費 Word、Excel、PPT 和履歷範本提升您的生產力。

100% 安全
頭像
Algirdas Jasaitis

Microsoft Office 的最佳免費替代方案 - WPS Office

除了 Microsoft Office，我還要向您推薦另一款應用程式，那就是 WPS Office。那麼，WPS 是什麼？


WPS Office


WPS Office 是一款免費辦公軟體套件。它包含文書處理、試算表、簡報軟體和 PDF 閱讀器，讓您輕鬆開啟、編輯及儲存檔案。它的操作也非常簡單，即便是沒有使用過辦公軟體套件經驗的人也能輕鬆上手。

不僅如此，WPS Office 還是一款功能強大的辦公軟體套件，提供廣泛的功能。它是 NeoOffice 的絕佳替代方案，尤其適合預算有限的學生與企業。

快速瀏覽 WPS 的部分功能：

●  免費使用 Word、Excel 和 PPT。強大的 PDF 工具組

●  豐富的範本庫

●  功能豐富，產品內建履歷助手、智慧表單、螢幕錄影、檔案修復等各種實用小工具

● 軟體體積輕巧，僅約 200MB，且佔用極少的電腦記憶體空間。

● Mac 版 WPS Office 擁有強大的功能。Microsoft Office 忽視了 Mac 使用者的體驗，而 WPS Office 剛好能彌補這項不足

● 支援 線上文件 (WPS AirPage)，可進行多人協作編輯

● WPS Office 亦支援 Linux 系統、Android 及 iOS 系統。要在不同系統上使用 WPS Office 產品，您只需登入相同帳號，所有檔案即可自動同步


跨平台免費下載


您覺得 WPS Office 是您的最佳選擇並想下載嗎？請造訪官方網站：https://www.wps.com 並立即下載。

如何下載 WPS Office

步驟 1：造訪 WPS Office 網站： wps.com。

步驟 2：按一下「免費下載」按鈕


選擇


步驟 3：選擇您要儲存 WPS Office 的位置 ->「儲存」


儲存 WPS Office 檔案


步驟 4：在「下載」資料夾中連按兩下 WPS Office 檔案，按一下「執行」，然後按照螢幕上的指示完成安裝


執行軟體


步驟 5：完成後，您即可享受 WPS Office 的所有強大功能

常見問題解答：

Q1：如何在 Excel VBA 中將貨幣轉換為文字？

  • 您可以使用 VBA (Visual Basic for Applications) 在 Excel 中將貨幣轉換為文字。您需要撰寫自訂的 VBA 巨集來執行此轉換。您可以在線上尋找範例與程式碼片段，或參閱 Excel VBA 文件以取得指引。

Q2：如何在 Excel 中將貨幣轉換為文字？

  • 要在 Excel 中將貨幣轉換為文字，您通常需要結合函數與自訂格式。您可以在線上找到各種教學與指南，瞭解如何實現此操作。

Q3：如何在 Excel 中將數字格式化為印度盧比？

  • 要在 Excel 中將數字格式化為印度盧比，您可以使用內建的貨幣格式選項。選擇您要格式化的儲存格或範圍，前往「儲存格格式」對話方塊中的「數值」索引標籤，然後選擇「貨幣」類別。在這裡，您可以選擇「₹ 英文 (印度)」作為貨幣符號。

Q4：如何在 Excel 中自動將數字轉換為文字？

  • 有幾種方法可以在 Excel 中自動將數字轉換為文字。您可以使用 TEXT、CONCATENATE 等 Excel 函數或自訂格式。您也可以使用 VBA 巨集來實現更進階的自動化。

Q5：如何在 Excel 中將美元轉換為印度盧比？

要在 Excel 中將美元轉換為印度盧比，您可以結合 Excel 函數與提供匯率的網路服務或外部資料來源。在取得匯率後，也可以使用 Excel 的「貨幣」格式以印度盧比顯示金額。

Q6：想要使用 Excel Online 讓工作更輕鬆嗎？

  • 如果您偏好在雲端工作，Excel Online 提供了同樣強大的功能，協助您隨時隨地管理和清理資料。使用 Excel Online，您可以利用相同的功能從資料的左側或右側移除字元，對於需要彈性或無法使用 Excel 桌面版的使用者而言，這是一個絕佳的選擇。

總結：

學習如何使用 VBA 程式碼或常見方法，在 Excel 中輕鬆將數字金額轉換為印度盧比文字。首先，在 Excel 中啟用「開發人員」索引標籤，新增提供的 VBA 程式碼，然後使用 =RupeeFormat(display cell) 公式。

或者，在工作表名稱上按一下滑鼠右鍵以存取 VBA，插入模組，貼上程式碼，並套用相同的公式。這些操作簡便的方法同樣相容於 Microsoft Office 的免費替代方案 WPS Office，讓精確且專業的文件格式設定變得輕而易舉。

100% 安全


陳文豪

陳文豪

facebooktwitteryoutube

10年辦公軟件產業經驗，專注於跨平台文件兼容性分析及生產力工具評測。追蹤我的專欄獲取最新WPS功能解析、企業數位轉型案例分享及AI辦公應用實測報告。

你可能喜歡的其他文章

Messages

如何在 Excel 中将数字转换为印度卢比金额大写

icon-arrowPencil

如何修复 Excel 自动填充失效问题

icon-arrowNotifications

如何修復 Excel 自動填滿無法運作的問題

icon-arrowFolder

如何在Excel中将数字转换为文字

icon-arrowLight

如何在 Excel 中將數字轉換為文字

icon-arrowCalendar

如何解決 Excel 複製貼上無法使用的問題（有效又簡單的方法）

icon-arrow