excel金额怎么出现英文怎么说

在Excel中显示金额为英文，可以通过几种方法：使用自定义格式、修改区域设置、使用公式。 其中，最为常见且灵活的方法是使用自定义格式。本文将详细介绍每种方法的具体操作步骤及其优缺点。

一、使用自定义格式

自定义格式是Excel中一个非常强大的功能，可以帮助我们将数据以各种不同的方式展示出来。通过自定义格式，我们可以轻松将金额转换为英文显示。

1、步骤一：选择需要格式化的单元格

首先，选择需要转换为英文金额显示的单元格或区域。可以通过单击鼠标左键进行选择，或者按住Shift键并使用箭头键进行选择。

2、步骤二：打开“单元格格式”对话框

在选择好单元格后，右键单击所选区域，然后选择“设置单元格格式”，或者使用快捷键Ctrl+1，打开“单元格格式”对话框。

3、步骤三：选择“自定义”选项

在“单元格格式”对话框中，选择“数字”选项卡，然后在左侧的列表中选择“自定义”。

4、步骤四：输入自定义格式代码

在“类型”框中，输入以下自定义格式代码：

[$-en-US]#,##0.00;[Red]-[$-en-US]#,##0.00

这个格式代码将金额显示为英文格式，并且负数将以红色显示。

5、步骤五：应用格式

点击“确定”按钮，应用自定义格式。此时，你选中的单元格中的金额将以英文格式显示。

二、修改区域设置

通过修改Excel的区域设置，可以将整个工作表的数字格式更改为英文格式。这种方法适用于需要将整个工作表或多个工作表中的金额都转换为英文显示的情况。

1、步骤一：打开“Excel选项”对话框

点击“文件”菜单，然后选择“选项”，打开“Excel选项”对话框。

2、步骤二：选择“高级”选项

在“Excel选项”对话框中，选择左侧的“高级”选项。

3、步骤三：找到“使用系统分隔符”选项

在“高级”选项卡中，向下滚动，找到“使用系统分隔符”选项，取消勾选该选项。

4、步骤四：设置分隔符

将“十进制分隔符”设置为“.”，将“千位分隔符”设置为“,”。

5、步骤五：应用设置

点击“确定”按钮，应用设置。此时，工作表中的所有金额将以英文格式显示。

三、使用公式

通过使用Excel的公式功能，我们也可以将金额转换为英文显示。以下是一个将数字转换为英文金额的示例公式。

1、步骤一：定义辅助列

在工作表中插入一个辅助列，用于存储转换后的英文金额。

2、步骤二：输入公式

在辅助列中的第一个单元格中输入以下公式：

=TEXT(A1,"[$-en-US]#,##0.00")

其中，A1是需要转换的金额所在的单元格。

3、步骤三：复制公式

将公式向下复制到辅助列中的其他单元格，以转换其他金额。

4、步骤四：隐藏原始列

为了美观，可以将原始金额列隐藏，只显示转换后的英文金额列。

四、使用VBA宏

对于更复杂的需求，例如将金额转换为英文单词，可以使用VBA宏来实现。以下是一个将数字转换为英文单词的VBA宏示例。

1、步骤一：打开VBA编辑器

按下Alt+F11，打开VBA编辑器。

2、步骤二：插入新模块

在VBA编辑器中，选择“插入”菜单，然后选择“模块”，插入一个新模块。

3、步骤三：输入VBA代码

在新模块中输入以下VBA代码：

Function NumberToWords(ByVal MyNumber)
    Dim Units As String
    Dim Tens As String
    Dim Hundreds As String
    Dim Thousands As String
    Dim UnitsPlace As Integer
    Dim TensPlace As Integer
    Dim HundredsPlace As Integer
    Dim ThousandsPlace As Integer
    Dim TempStr As String
    Dim DecimalPlace As Integer
    Dim Count As Integer
    ReDim Place(9) As String
    Place(2) = " Thousand "
    Place(3) = " Million "
    Place(4) = " Billion "
    Place(5) = " Trillion "
    MyNumber = Trim(CStr(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
        TempStr = Left(MyNumber, DecimalPlace - 1)
    Else
        TempStr = MyNumber
    End If
    Count = 1
    Do While TempStr <> ""
        HundredsPlace = Len(TempStr) Mod 3
        If HundredsPlace = 0 Then HundredsPlace = 3
        Hundreds = Mid(TempStr, 1, HundredsPlace)
        TempStr = Mid(TempStr, HundredsPlace + 1)
        If Hundreds <> "" Then
            Tens = ""
            Units = ""
            If Len(Hundreds) = 3 Then
                UnitsPlace = Mid(Hundreds, 3, 1)
                TensPlace = Mid(Hundreds, 2, 1)
                HundredsPlace = Mid(Hundreds, 1, 1)
            ElseIf Len(Hundreds) = 2 Then
                UnitsPlace = Mid(Hundreds, 2, 1)
                TensPlace = Mid(Hundreds, 1, 1)
                HundredsPlace = 0
            Else
                UnitsPlace = Mid(Hundreds, 1, 1)
                TensPlace = 0
                HundredsPlace = 0
            End If
            If HundredsPlace <> 0 Then
                Hundreds = GetDigit(HundredsPlace) & " Hundred "
            End If
            If TensPlace <> 0 Then
                Tens = GetTens(TensPlace, UnitsPlace)
            Else
                Units = GetDigit(UnitsPlace)
            End If
            NumberToWords = NumberToWords & Hundreds & Tens & Units & Place(Count)
        End If
        Count = Count + 1
    Loop
    NumberToWords = Trim(NumberToWords)
End Function
Function GetDigit(ByVal Digit) As String
    Select Case Val(Digit)
        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
Function GetTens(ByVal TensDigit, ByVal UnitsDigit) As String
    Select Case Val(TensDigit)
        Case 1
            Select Case Val(UnitsDigit)
                Case 0: GetTens = "Ten"
                Case 1: GetTens = "Eleven"
                Case 2: GetTens = "Twelve"
                Case 3: GetTens = "Thirteen"
                Case 4: GetTens = "Fourteen"
                Case 5: GetTens = "Fifteen"
                Case 6: GetTens = "Sixteen"
                Case 7: GetTens = "Seventeen"
                Case 8: GetTens = "Eighteen"
                Case 9: GetTens = "Nineteen"
            End Select
        Case 2: GetTens = "Twenty " & GetDigit(UnitsDigit)
        Case 3: GetTens = "Thirty " & GetDigit(UnitsDigit)
        Case 4: GetTens = "Forty " & GetDigit(UnitsDigit)
        Case 5: GetTens = "Fifty " & GetDigit(UnitsDigit)
        Case 6: GetTens = "Sixty " & GetDigit(UnitsDigit)
        Case 7: GetTens = "Seventy " & GetDigit(UnitsDigit)
        Case 8: GetTens = "Eighty " & GetDigit(UnitsDigit)
        Case 9: GetTens = "Ninety " & GetDigit(UnitsDigit)
        Case Else: GetTens = GetDigit(UnitsDigit)
    End Select
End Function

4、步骤四：保存并关闭VBA编辑器

保存VBA代码，然后关闭VBA编辑器。

5、步骤五：使用自定义函数

在工作表中，使用新定义的NumberToWords函数，将金额转换为英文单词。例如，在单元格B1中输入以下公式：

=NumberToWords(A1)