如何在Excel中将货币转换为单词文本？

网友投稿 259 2023-12-17

如何在Excel中将货币转换为单词文本？

对于使用英语作为第二语言的非母语使用者，有时当数字过长时，很难直接将货币编号更改为英语单词。在本文中，您将学习如何在Excel中轻松地将货币转换为单词文本。

使用VBA代码将货币转换为单词

将货币转换为单词 Kutools for Excel 使用VBA代码将货币转换为单词

使用下面的VBA代码，您可以将货币编号转换为英文单词。

1。按其他 + F11 打开 Microsoft Visual Basic应用程序 对话框。

2.在 Microsoft Visual Basic应用程序 对话框，单击插页 > 模块。 然后将以下代码复制并粘贴到代码窗口中。

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

Copy

3。按其他 + Q 同时关闭按键 Microsoft Visual Basic应用程序 对话框。

4.选择与要转换为单词的单元格相邻的空白单元格（B1），然后输入公式 = NumberstoWords（A1），然后按输入键。

备注：A1是包含货币编号的单元格。您可以根据需要进行更改。

5.选择单元格B1，向下拖动Fill Handle以获取货币编号的所有英文单词。

将货币转换为单词 Kutools for Excel

如此长的VBA代码似乎很复杂。在这里，我将向您介绍一个方便的实用程序，可以轻松解决此问题。随着 数字到单词 实用程序 Kutools for Excel，将货币转换为文字将不再是问题。请执行以下操作。