excel中怎么把金额自动转成英文怎么说

在Excel中将金额自动转换成英文的几种方法包括：使用VBA宏、使用Excel函数与自定义函数。以下将详细描述如何实现其中的一种方法。

要在Excel中将金额自动转换成英文，可以使用Excel中的VBA宏来实现。这是一种灵活且强大的方法，可以处理各种金额并将其转换为英文单词。以下是一个详细的步骤和代码示例，帮助你实现这一功能。

一、使用VBA宏

1、创建VBA宏

要开始使用VBA宏，首先需要打开Excel文件，然后按 Alt + F11 进入VBA编辑器。在VBA编辑器中，选择“插入”菜单，然后选择“模块”以创建一个新模块。

2、编写VBA代码

在新模块中，粘贴以下代码。这段代码将金额转换成英文单词：

Function NumberToWords(ByVal MyNumber)
    Dim Units As Variant
    Dim Tens As Variant
    Dim StrNumber As String
    Dim DecimalPlace As Integer
    Dim Count As Integer
    Dim TempStr As String
    Dim DecimalPart As String
    Dim IntegerPart As String
    Dim Place As Integer
    ' Define arrays for units and tens
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    ' Convert MyNumber to a string
    StrNumber = Trim(CStr(MyNumber))
    ' Find position of decimal place
    DecimalPlace = InStr(StrNumber, ".")
    ' Split number into integer and decimal parts
    If DecimalPlace > 0 Then
        IntegerPart = Left(StrNumber, DecimalPlace - 1)
        DecimalPart = Mid(StrNumber, DecimalPlace + 1)
    Else
        IntegerPart = StrNumber
        DecimalPart = ""
    End If
    ' Convert the integer part
    Count = 1
    Do While IntegerPart <> ""
        TempStr = ""
        If Len(IntegerPart) = 1 Then
            Place = 1
        ElseIf Len(IntegerPart) = 2 Then
            Place = 2
        ElseIf Len(IntegerPart) = 3 Then
            Place = 3
        Else
            Place = 4
        End If
        Select Case Place
            Case 1
                TempStr = Units(CInt(IntegerPart))
            Case 2
                If Left(IntegerPart, 1) = "1" Then
                    Select Case CInt(Right(IntegerPart, 1))
                        Case 0: TempStr = "Ten"
                        Case 1: TempStr = "Eleven"
                        Case 2: TempStr = "Twelve"
                        Case 3: TempStr = "Thirteen"
                        Case 4: TempStr = "Fourteen"
                        Case 5: TempStr = "Fifteen"
                        Case 6: TempStr = "Sixteen"
                        Case 7: TempStr = "Seventeen"
                        Case 8: TempStr = "Eighteen"
                        Case 9: TempStr = "Nineteen"
                    End Select
                Else
                    TempStr = Tens(CInt(Left(IntegerPart, 1))) & " " & Units(CInt(Right(IntegerPart, 1)))
                End If
            Case 3
                TempStr = Units(CInt(Left(IntegerPart, 1))) & " Hundred " & NumberToWords(Mid(IntegerPart, 2))
                IntegerPart = ""
            Case 4
                TempStr = NumberToWords(Left(IntegerPart, Len(IntegerPart) - 3)) & " Thousand " & NumberToWords(Right(IntegerPart, 3))
                IntegerPart = ""
        End Select
        IntegerPart = ""
        If TempStr <> "" Then NumberToWords = NumberToWords & TempStr & " "
        IntegerPart = Mid(IntegerPart, Place + 1)
        Count = Count + 1
    Loop
    ' Convert the decimal part
    If DecimalPart <> "" Then
        NumberToWords = NumberToWords & "and " & NumberToWords(DecimalPart) & " Cents"
    End If
    NumberToWords = Trim(NumberToWords)
End Function

3、使用VBA宏

保存并关闭VBA编辑器，返回Excel。在需要转换金额的单元格旁边，输入公式 =NumberToWords(A1) ，其中 A1 是包含金额的单元格。这样就可以将金额转换为英文单词。

二、使用Excel函数与自定义函数

1、自定义函数

另一种方法是使用Excel自定义函数。这个方法虽然不如VBA灵活，但对于简单的金额转换也非常有效。

2、编写自定义函数

在同样的VBA编辑器中，创建一个新的模块，然后粘贴以下代码：

Function ConvertCurrencyToWords(ByVal MyNumber)
    Dim Units As Variant
    Dim Tens As Variant
    Dim UnitsPlace As Integer
    Dim TensPlace As Integer
    Dim DecimalPlace As Integer
    Dim Count As Integer
    Dim TempStr As String
    Dim DecimalPart As String
    Units = Array("", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
    Tens = Array("", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety")
    MyNumber = Trim(CStr(MyNumber))
    DecimalPlace = InStr(MyNumber, ".")
    If DecimalPlace > 0 Then
        DecimalPart = Mid(MyNumber, DecimalPlace + 1)
        MyNumber = Left(MyNumber, DecimalPlace - 1)
    Else
        DecimalPart = ""
    End If
    Count = 1
    Do While MyNumber <> ""
        TempStr = ""
        If Len(MyNumber) = 1 Then
            TempStr = Units(CInt(MyNumber))
            MyNumber = ""
        Else
            UnitsPlace = Right(MyNumber, 1)
            TensPlace = Left(MyNumber, Len(MyNumber) - 1)
            TempStr = Tens(CInt(TensPlace)) & " " & Units(CInt(UnitsPlace))
            MyNumber = ""
        End If
        ConvertCurrencyToWords = ConvertCurrencyToWords & TempStr & " "
    Loop
    If DecimalPart <> "" Then
        ConvertCurrencyToWords = ConvertCurrencyToWords & "and " & Units(CInt(DecimalPart)) & " Cents"
    End If
    ConvertCurrencyToWords = Trim(ConvertCurrencyToWords)
End Function

3、使用自定义函数

同样，在需要转换金额的单元格旁边，输入公式 =ConvertCurrencyToWords(A1) ，其中 A1 是包含金额的单元格。这样也可以将金额转换为英文单词。

三、总结

通过以上方法，你可以在Excel中轻松地将金额转换为英文单词。使用VBA宏提供了更强大的功能和灵活性，适合处理复杂的金额转换。而使用自定义函数则更简单，适合处理基本的金额转换需求。根据自己的需求选择合适的方法，可以大大提高工作效率。在实际应用中，可能还需要根据具体情况对代码进行适当修改，以满足特定的需求。