亞寵展、全球?qū)櫸锂a(chǎn)業(yè)風(fēng)向標——亞洲寵物展覽會深度解析
369
2025-04-01
如何在Excel中將貨幣轉(zhuǎn)換為單詞文本？
如何在Excel中將貨幣轉(zhuǎn)換為單詞文本？
對于使用英語作為第二語言的非母語使用者，有時當數(shù)字過長時，很難直接將貨幣編號更改為英語單詞。 在本文中，您將學(xué)習(xí)如何在Excel中輕松地將貨幣轉(zhuǎn)換為單詞文本。
使用VBA代碼將貨幣轉(zhuǎn)換為單詞
將貨幣轉(zhuǎn)換為單詞 Kutools for Excel 使用VBA代碼將貨幣轉(zhuǎn)換為單詞使用下面的VBA代碼，您可以將貨幣編號轉(zhuǎn)換為英文單詞。
1。 按 其他 + F11 打開 Microsoft Visual Basic應(yīng)用程序 對話框。
2.在 Microsoft Visual Basic應(yīng)用程序 對話框，單擊 插頁 > 模塊。 然后將以下代碼復(fù)制并粘貼到代碼窗口中。
VBA代碼：將貨幣編號轉(zhuǎn)換為英文單詞
Function NumberstoWords(ByVal pNumber)
Dim Dollars, Cents
arr = Array("", "", " Thousand ", " Million ", " Billion ", " Trillion ")
pNumber = Trim(Str(pNumber))
xDecimal = InStr(pNumber, ".")
If xDecimal > 0 Then
Cents = GetTens(Left(Mid(pNumber, xDecimal + 1) & "00", 2))
pNumber = Trim(Left(pNumber, xDecimal - 1))
End If
xIndex = 1
Do While pNumber <> ""
xHundred = ""
xValue = Right(pNumber, 3)
If Val(xValue) <> 0 Then
xValue = Right("000" & xValue, 3)
If Mid(xValue, 1, 1) <> "0" Then
xHundred = GetDigit(Mid(xValue, 1, 1)) & " Hundred "
End If
If Mid(xValue, 2, 1) <> "0" Then
xHundred = xHundred & GetTens(Mid(xValue, 2))
Else
xHundred = xHundred & GetDigit(Mid(xValue, 3))
End If
End If
If xHundred <> "" Then
Dollars = xHundred & arr(xIndex) & Dollars
End If
If Len(pNumber) > 3 Then
pNumber = Left(pNumber, Len(pNumber) - 3)
Else
pNumber = ""
End If
xIndex = xIndex + 1
Loop
Select Case Dollars
Case ""
Dollars = "No Dollars"
Case "One"
Dollars = "One Dollar"
Case Else
Dollars = Dollars & " Dollars"
End Select
Select Case Cents
Case ""
Cents = " and No Cents"
Case "One"
Cents = " and One Cent"
Case Else
Cents = " and " & Cents & " Cents"
End Select
NumberstoWords = Dollars & Cents
End Function
Function GetTens(pTens)
Dim Result As String
Result = ""
If Val(Left(pTens, 1)) = 1 Then
Select Case Val(pTens)
Case 10: Result = "Ten"
Case 11: Result = "Eleven"
Case 12: Result = "Twelve"
Case 13: Result = "Thirteen"
Case 14: Result = "Fourteen"
Case 15: Result = "Fifteen"
Case 16: Result = "Sixteen"
Case 17: Result = "Seventeen"
Case 18: Result = "Eighteen"
Case 19: Result = "Nineteen"
Case Else
End Select
Else
Select Case Val(Left(pTens, 1))
Case 2: Result = "Twenty "
Case 3: Result = "Thirty "
Case 4: Result = "Forty "
Case 5: Result = "Fifty "
Case 6: Result = "Sixty "
Case 7: Result = "Seventy "
Case 8: Result = "Eighty "
Case 9: Result = "Ninety "
Case Else
End Select
Result = Result & GetDigit(Right(pTens, 1))
End If
GetTens = Result
End Function
Function GetDigit(pDigit)
Select Case Val(pDigit)
Case 1: GetDigit = "One"
Case 2: GetDigit = "Two"
Case 3: GetDigit = "Three"
Case 4: GetDigit = "Four"
Case 5: GetDigit = "Five"
Case 6: GetDigit = "Six"
Case 7: GetDigit = "Seven"
Case 8: GetDigit = "Eight"
Case 9: GetDigit = "Nine"
Case Else: GetDigit = ""
End Select
End Function
Copy
3。 按 其他 + Q 同時關(guān)閉按鍵 Microsoft Visual Basic應(yīng)用程序 對話框。
4.選擇與要轉(zhuǎn)換為單詞的單元格相鄰的空白單元格（B1），然后輸入公式 = NumberstoWords（A1），然后按 輸入 鍵。
備注：A1是包含貨幣編號的單元格。 您可以根據(jù)需要進行更改。
5.選擇單元格B1，向下拖動Fill Handle以獲取貨幣編號的所有英文單詞。
將貨幣轉(zhuǎn)換為單詞 Kutools for Excel如此長的VBA代碼似乎很復(fù)雜。 在這里，我將向您介紹一個方便的實用程序，可以輕松解決此問題。 隨著 數(shù)字到單詞 實用程序 Kutools for Excel，將貨幣轉(zhuǎn)換為文字將不再是問題。 請執(zhí)行以下操作。
申請前 Kutools for Excel請 首先下載并安裝.
1.選擇包含您要轉(zhuǎn)換的貨幣編號的單元格。
2。 點擊 Kutools > 內(nèi)容 > 數(shù)字到單詞。 看截圖：
3.在 數(shù)字到貨幣單詞 對話框中選擇 英語 選項，然后單擊 OK or 使用 按鈕。
現(xiàn)在，所選的貨幣數(shù)字將立即轉(zhuǎn)換為英語單詞。
如果您想免費試用（30-day) 這個實用程序， 請點擊下載，然后按照上述步驟進行操作。
最佳辦公生產(chǎn)力工具
將小時轉(zhuǎn)化為分鐘 Kutools for Excel!
準備好增強您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時間的工具。 簡化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗 Excel！
為什么需要 Kutools for Excel
??? 超過 300 項強大功能: Kutools 包含 300 多項高級功能，可簡化您在 1500 多種場景中的工作。
?? 卓越的數(shù)據(jù)處理能力：合并單元格、刪除重復(fù)項并執(zhí)行高級數(shù)據(jù)轉(zhuǎn)換 - 所有這些都不費吹灰之力！
?? 高效的批量操作：當你可以聰明地工作時，為什么還要付出額外的努力呢？ 輕松批量導(dǎo)入、導(dǎo)出、組合和調(diào)整數(shù)據(jù)。
?? 可定制的圖表和報告：訪問各種附加圖表并生成富有洞察力的報告。
??? 強大的導(dǎo)航窗格：通過強大的列管理器、工作表管理器和自定義收藏夾獲得優(yōu)勢。
?? 七種類型的下拉列表：通過各種功能和類型的下拉列表使數(shù)據(jù)輸入變得輕而易舉。
?? 用戶友好：對于初學(xué)者來說輕而易舉，對于專家來說是一個強大的工具。
立即下載，與 Excel 一起穿越時空！
閱讀更多
免費下載... 采購...
Office Tab 為 Office 帶來選項卡式界面，讓您的工作更輕松
在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發(fā)布者，Access，Visio和Project。
在同一窗口的新選項卡中而不是在新窗口中打開并創(chuàng)建多個文檔。
每天將您的工作效率提高50％，并減少數(shù)百次鼠標單擊！
閱讀更多
免費下載... 采購...
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。
相關(guān)文章
