excel金额怎么用显示英语金额

一、EXCEL金额用英语金额显示的方法

使用内置函数、创建自定义函数、使用VBA宏代码。在Excel中，可以通过内置函数和自定义函数来实现金额转换为英语金额的功能。本文将详细介绍这几种方法，帮助你在不同需求下选择最适合的方法。

首先，最简单的方法是使用内置函数，可以将数字转换为文本格式，并在特定情况下显示英文金额。然后，我们可以通过创建自定义函数来实现更复杂的转换需求。最后，如果你对编程有一定了解，还可以使用VBA宏代码来实现自动化转换。在接下来的内容中，我们将详细讲解这三种方法，并提供相应的代码示例和使用指南。

一、使用内置函数

Excel中并没有直接的内置函数可以将金额转换为英语金额，但我们可以借助一些辅助函数来实现这一功能。

1.1 使用TEXT函数

TEXT函数可以将数字格式化为文本形式。虽然不能直接显示英语金额，但它可以帮助我们在特定情况下进行格式化处理。

=TEXT(A1,"$#,##0.00")

这个公式将单元格A1中的数字转换为货币格式，并在结果前面添加美元符号。虽然这不是英文单词形式，但在某些情况下也能满足需求。

1.2 使用格式单元格功能

我们还可以通过格式单元格功能来设置单元格的显示格式，使其显示为货币格式。

选中需要格式化的单元格或区域。
右键点击，选择“设置单元格格式”。
在“数字”选项卡中，选择“货币”。
设置所需的货币符号和小数位数。

二、创建自定义函数

如果需要将金额转换为英文单词形式，我们可以创建自定义函数。以下是一个简单的VBA代码示例，可以将数字转换为英文金额。

2.1 启用开发工具

首先，需要启用Excel中的开发工具。

点击“文件”菜单，选择“选项”。
在Excel选项窗口中，选择“自定义功能区”。
勾选“开发工具”复选框，点击“确定”。

2.2 创建自定义函数

然后，我们可以创建自定义函数来实现金额转换。以下是一个简单的VBA代码示例：

Function NumberToWords(ByVal MyNumber)
    Dim Units As Variant, Tens As Variant
    Dim Temp As String
    Dim DecimalPlace As Integer, Count As Integer
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    ' Convert MyNumber to string and Trim white space.
    MyNumber = Trim(CStr(MyNumber))
    ' Find Position of decimal place.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Substring to Number if there is a decimal place.
    If DecimalPlace > 0 Then
        Temp = Left(MyNumber, DecimalPlace - 1)
    Else
        Temp = MyNumber
    End If
    Count = 1
    Do While Temp <> ""
        Temp = ConvertHundreds(Right(Temp, 3)) & Place(Count) & Temp
        If Len(Temp) > 3 Then
            Temp = Left(Temp, Len(Temp) - 3)
        Else
            Temp = ""
        End If
        Count = Count + 1
    Loop
    NumberToWords = Application.Trim(Temp)
End Function
Function ConvertHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = ConvertDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & ConvertTens(Mid(MyNumber, 2))
    Else
        Result = Result & ConvertDigit(Mid(MyNumber, 3))
    End If
    ConvertHundreds = Result
End Function
Function ConvertTens(ByVal MyTens)
    Dim Result As String
    If Val(Left(MyTens, 1)) = 1 Then
        Select Case Val(MyTens)
            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(MyTens, 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 & ConvertDigit(Right(MyTens, 1))
    End If
    ConvertTens = Result
End Function
Function ConvertDigit(ByVal MyDigit)
    Select Case Val(MyDigit)
        Case 1: ConvertDigit = "One"
        Case 2: ConvertDigit = "Two"
        Case 3: ConvertDigit = "Three"
        Case 4: ConvertDigit = "Four"
        Case 5: ConvertDigit = "Five"
        Case 6: ConvertDigit = "Six"
        Case 7: ConvertDigit = "Seven"
        Case 8: ConvertDigit = "Eight"
        Case 9: ConvertDigit = "Nine"
        Case Else: ConvertDigit = ""
    End Select
End Function

将上述代码复制并粘贴到Excel中的VBA编辑器中，然后保存。这段代码定义了一个名为NumberToWords的函数，可以将数字转换为英文单词形式。使用方法如下：

=NumberToWords(A1)

这个公式将单元格A1中的数字转换为英文金额。

三、使用VBA宏代码

如果需要频繁地将金额转换为英文单词，可以使用VBA宏代码来自动化这一过程。以下是一个完整的VBA宏代码示例，可以将选定区域中的所有数字转换为英文金额。

3.1 创建VBA宏

启动Excel，按Alt + F11打开VBA编辑器。
在VBA编辑器中，点击“插入”菜单，选择“模块”。
将以下代码复制并粘贴到新模块中：

Sub ConvertToEnglish()
    Dim Cell As Range
    Dim EnglishAmount As String
    For Each Cell In Selection
        If IsNumeric(Cell.Value) Then
            EnglishAmount = NumberToWords(Cell.Value)
            Cell.Value = EnglishAmount
        End If
    Next Cell
End Sub
Function NumberToWords(ByVal MyNumber)
    Dim Units As Variant, Tens As Variant
    Dim Temp As String
    Dim DecimalPlace As Integer, Count As Integer
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    ' Convert MyNumber to string and Trim white space.
    MyNumber = Trim(CStr(MyNumber))
    ' Find Position of decimal place.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Substring to Number if there is a decimal place.
    If DecimalPlace > 0 Then
        Temp = Left(MyNumber, DecimalPlace - 1)
    Else
        Temp = MyNumber
    End If
    Count = 1
    Do While Temp <> ""
        Temp = ConvertHundreds(Right(Temp, 3)) & Place(Count) & Temp
        If Len(Temp) > 3 Then
            Temp = Left(Temp, Len(Temp) - 3)
        Else
            Temp = ""
        End If
        Count = Count + 1
    Loop
    NumberToWords = Application.Trim(Temp)
End Function
Function ConvertHundreds(ByVal MyNumber)
    Dim Result As String
    If Val(MyNumber) = 0 Then Exit Function
    MyNumber = Right("000" & MyNumber, 3)
    If Mid(MyNumber, 1, 1) <> "0" Then
        Result = ConvertDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & ConvertTens(Mid(MyNumber, 2))
    Else
        Result = Result & ConvertDigit(Mid(MyNumber, 3))
    End If
    ConvertHundreds = Result
End Function
Function ConvertTens(ByVal MyTens)
    Dim Result As String
    If Val(Left(MyTens, 1)) = 1 Then
        Select Case Val(MyTens)
            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(MyTens, 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 & ConvertDigit(Right(MyTens, 1))
    End If
    ConvertTens = Result
End Function
Function ConvertDigit(ByVal MyDigit)
    Select Case Val(MyDigit)
        Case 1: ConvertDigit = "One"
        Case 2: ConvertDigit = "Two"
        Case 3: ConvertDigit = "Three"
        Case 4: ConvertDigit = "Four"
        Case 5: ConvertDigit = "Five"
        Case 6: ConvertDigit = "Six"
        Case 7: ConvertDigit = "Seven"
        Case 8: ConvertDigit = "Eight"
        Case 9: ConvertDigit = "Nine"
        Case Else: ConvertDigit = ""
    End Select
End Function

保存并关闭VBA编辑器。

3.2 运行VBA宏

选中需要转换的单元格或区域。
按Alt + F8打开宏对话框。
选择“ConvertToEnglish”宏，点击“运行”。

这个宏将选定区域中的所有数字转换为英文金额，并显示在相应的单元格中。

四、总结

在Excel中，可以通过多种方法将金额转换为英语金额，包括使用内置函数、创建自定义函数、使用VBA宏代码。不同的方法适用于不同的需求和场景。通过本文的详细介绍和示例代码，希望能帮助你更好地实现这一功能，提高工作效率。无论你是Excel初学者还是高级用户，都可以根据自己的需求选择合适的方法来完成金额转换。