如何在Excel中將數字轉換為印度盧比的單詞？

本文，我將介紹如何在Excel中將數字列表轉換為印度盧比或英語的單詞。

使用VBA代碼將數字轉換為印度盧比的單詞

具有驚人功能的將數字轉換為英文單詞

使用VBA代碼將數字轉換為印度盧比的單詞

以下VBA代碼可以幫助您將數字轉換為盧比的單詞，請按以下步驟操作：

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic應用程序 窗口。

2。 點擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊窗口”中。

VBA代碼：將數字轉換為盧比的單詞

Public Function RupeeFormat(SNum As String)Updateby ExtendofficeDim xDPInt As IntegerDim xArrPlace As VariantDim xRStr_Paisas As StringDim xNumStr As StringDim xF As IntegerDim xTemp As StringDim xStrTemp As StringDim xRStr As StringDim xLp As IntegerxArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "")On Error Resume NextIf SNum = "" ThenRupeeFormat = ""Exit FunctionEnd IfxNumStr = Trim(str(SNum))If xNumStr = "" ThenRupeeFormat = ""Exit FunctionEnd IfxRStr = ""xLp = 0If (xNumStr > 999999999.99) ThenRupeeFormat = "Digit excced Maximum limit"Exit FunctionEnd IfxDPInt = InStr(xNumStr, ".")If xDPInt > 0 ThenIf (Len(xNumStr) - xDPInt) = 1 ThenxRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2))ElseIf (Len(xNumStr) - xDPInt) > 1 ThenxRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2))End IfxNumStr = Trim(Left(xNumStr, xDPInt - 1))End IfxF = 1Do While xNumStr <> ""If (xF >= 2) ThenxTemp = Right(xNumStr, 2)ElseIf (Len(xNumStr) = 2) ThenxTemp = Right(xNumStr, 2)ElseIf (Len(xNumStr) = 1) ThenxTemp = Right(xNumStr, 1)ElsexTemp = Right(xNumStr, 3)End IfEnd IfxStrTemp = ""If Val(xTemp) > 99 ThenxStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp)If Right(Trim(xStrTemp), 3) <> "Lac" ThenxLp = xLp + 1End IfElseIf Val(xTemp) <= 99 And Val(xTemp) > 9 ThenxStrTemp = RupeeFormat_GetT(Right(xTemp, 2))ElseIf Val(xTemp) < 10 ThenxStrTemp = RupeeFormat_GetD(Right(xTemp, 2))End IfIf xStrTemp <> "" ThenxRStr = xStrTemp & xArrPlace(xF) & xRStrEnd IfIf xF = 2 ThenIf Len(xNumStr) = 1 ThenxNumStr = ""ElsexNumStr = Left(xNumStr, Len(xNumStr) - 2)End IfElseIf xF = 3 ThenIf Len(xNumStr) >= 3 ThenxNumStr = Left(xNumStr, Len(xNumStr) - 2)ElsexNumStr = ""End IfElseIf xF = 4 ThenxNumStr = ""ElseIf Len(xNumStr) <= 2 ThenxNumStr = ""ElsexNumStr = Left(xNumStr, Len(xNumStr) - 3)End IfEnd IfxF = xF + 1LoopIf xRStr = "" ThenxRStr = "No Rupees"ElsexRStr = " Rupees " & xRStrEnd IfIf xRStr_Paisas <> "" ThenxRStr_Paisas = " and " & xRStr_Paisas & " Paisas"End IfRupeeFormat = xRStr & xRStr_Paisas & " Only"End FunctionFunction RupeeFormat_GetH(xStrH As String, xLp As Integer)Dim xRStr As StringIf Val(xStrH) < 1 ThenRupeeFormat_GetH = ""Exit FunctionElsexStrH = Right("000" & xStrH, 3)If Mid(xStrH, 1, 1) <> "0" ThenIf (xLp > 0) ThenxRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac "ElsexRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred "End IfEnd IfIf Mid(xStrH, 2, 1) <> "0" ThenxRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2))ElsexRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3))End IfEnd IfRupeeFormat_GetH = xRStrEnd FunctionFunction RupeeFormat_GetT(xTStr As String)Dim xTArr1 As VariantDim xTArr2 As VariantDim xRStr As StringxTArr1 = 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 ThenxRStr = xTArr1(Val(Mid(xTStr, 2, 1)))ElseIf Val(Left(xTStr, 1)) > 0 ThenxRStr = xTArr2(Val(Left(xTStr, 1)) - 1)End IfxRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1))End IfRupeeFormat_GetT = xRStrEnd FunctionFunction RupeeFormat_GetD(xDStr As String)Dim xArr_1() As VariantxArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "")If Val(xDStr) > 0 ThenRupeeFormat_GetD = xArr_1(Val(xDStr) - 1)ElseRupeeFormat_GetD = ""End IfEnd Function

3。 插入代碼后，保存并關閉代碼窗口，返回到工作表，然后輸入以下公式： = RupeeFormat（A2） 到一個空白單元格中，然后向下拖動填充手柄以將此公式應用于其他單元格，所有數字均以盧比表示，請參見屏幕截圖：

具有驚人功能的將數字轉換為英文單詞

如果您想將數字轉換成英文單詞， Kutools for Excel“ 小寫金額轉大寫 功能可以幫助您快速輕松地解決此工作。

提示：申請這個 字數功能，首先，您應該下載 Kutools for Excel，然后快速輕松地應用該功能。

安裝后 Kutools for Excel，請這樣做：

1。 選擇要轉換的數字列表，然后單擊 庫工具 > 內容 > 小寫金額轉大寫，請參見屏幕截圖：

2。 在 數字到貨幣單詞 對話框中選擇 英語 選項從 語言 部分，然后單擊 Ok 按鈕，所選內容中的數字已轉換為英語貨幣單詞，請參見屏幕截圖：

點擊下載Kutools for Excel并立即！

最佳辦公效率工具

Kutools for Excel解決了您的大多數問題，并使您的生產率提高了80％

超級公式欄（輕松多行文本和公式）；閱讀視圖 （輕松讀取和大量單元格）； 粘貼到過濾范圍...合并單元格/行/列 和保存數據； 拆分單元格內容； 合并重復的行和總和/平均值...防止細胞重復； 比較范圍...選擇重復或唯一 行; 選擇空白行 （所有單元格都是空的）； 超級查找和模糊查找 在許多工作簿中； 隨機選擇...確切的副本 多個單元格，無需更改公式參考； 自動創建參考 到多張紙； 插入項目符號，復選框等...收藏并快速插入公式，范圍，圖表和圖片； 加密單元 帶密碼 創建郵件列表 并發送電子郵件...提取文字，添加文本，按位置刪除， 刪除空間; 創建和打印分頁小計； 在單元格內容和注釋之間轉換...超級篩選（將過濾方案保存并應用于其他工作表）；高級排序 按月/周/日，頻率及更多； 特殊過濾器 用粗體，斜體...結合工作簿和工作表; 根據關鍵列合并表； 將數據分割成多個工作表; 批量轉換xls，xlsx和PDF...數據透視表分組依據 周號，周幾等 顯示未鎖定的單元格 用不同的顏色 突出顯示具有公式/名稱的單元格...閱讀更多功能齊全的版... 采購...

office Tab - 為 Office 帶來選項卡式界面，讓您的工作更加輕松

在Word，Excel，PowerPoint中啟用選項卡式和閱讀，發布者，Access，Visio和Project。在同一窗口的新選項卡中而不是在新窗口中打開并創建多個文檔。每天將您的工作效率提高50％，并減少數百次鼠標單擊！閱讀更多功能齊全的版... 采購...