如何在 Excel 中將貨幣金額轉換為文字？

作者Siluvia修改日期2024-10-09

對於以英語為第二語言的非母語使用者來說，當數字過長時，有時很難直接將貨幣金額轉換成英文文字。本文將教您如何在 Excel 中輕鬆將貨幣轉換為文字。

使用 VBA 程式碼將貨幣轉換為文字
 使用 Kutools for Excel 將貨幣轉換為文字

使用 VBA 程式碼將貨幣轉換為文字

透過以下 VBA 程式碼，即可將貨幣數字轉換為英文文字。

1. 按下 Alt+F11，即可開啟 Microsoft Visual Basic for Applications 對話方塊！

2. 在 Microsoft Visual Basic for Applications 對話方塊中，點選插入＞模組，然後將下方程式碼複製並貼上至程式碼視窗中。

VBA 程式碼：將貨幣數字轉換為英文文字

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

3. 同時按下 Alt+Q 鍵，即可關閉 Microsoft Visual Basic for Applications 對話方塊。

4. 選取與欲轉換儲存格相鄰的空白儲存格（例如 B1），輸入公式 =NumberstoWords(A1)，再按下 Enter 鍵即可完成！

顯示在 Excel 中套用 NumberstoWords 公式將貨幣轉換為文字的螢幕截圖

注意：A1 為包含貨幣數字的儲存格，您可依需求調整。

5. 選取儲存格 B1，向下拖曳填滿控點，即可將所有貨幣數字轉換為對應的英文文字。

顯示使用 VBA 在 Excel 中將貨幣數字轉換為英文文字的螢幕截圖

使用 Kutools for Excel 將貨幣轉換為文字

這段冗長的 VBA 程式碼看似複雜？別擔心！在此為您介紹一個超實用工具，輕鬆搞定此問題。透過金額轉大寫的 Kutools for Excel 功能，將貨幣轉換為文字將不再是難題！立即依照下列步驟操作，體驗高效便利！

套用前，請先下載並安裝Kutools for Excel。

1. 選取包含您要轉換之貨幣數字的儲存格。

2. 點選 Kutools > 內容 > 金額轉大寫。請參閱截圖：

顯示用於將貨幣轉換為文字的 Kutools for Excel 數字轉文字工具的螢幕截圖

3. 在小寫金額轉大寫對話方塊中，選取英文選項，然後點選確定或套用按鈕。

數字轉貨幣文字對話框的螢幕截圖

現在，所選的貨幣金額已即時轉換為英文文字。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多