excel表格上显示数字怎么变英文

一、EXCEL表格上显示数字变英文的方法

使用自定义格式、应用Excel公式、使用VBA宏。下面将详细介绍如何使用其中的一种方法来实现这一目标。我们将重点探讨使用自定义格式的方法。

自定义格式是一种强大的工具，可以让你灵活地控制单元格的显示格式。通过自定义格式，可以将数字转换为英文单词。具体操作步骤如下：

选择要转换的单元格或区域。
右键单击选择区域，选择“设置单元格格式”。
在“数字”选项卡中，选择“自定义”。
在“类型”框中输入你所需要的格式代码。

通过自定义格式，你可以将数字转换为任何你想要的形式，包括英文单词。

二、使用自定义格式将数字转换为英文单词

自定义格式是一种可以灵活控制单元格显示格式的工具。虽然Excel自带的格式选项有限，但通过自定义格式，你可以实现更多的格式需求。

1. 设置自定义格式

为了将数字转换为英文单词，我们需要设置自定义格式。以下是具体步骤：

选择单元格或区域：首先，选择你想要转换的单元格或区域。
打开设置单元格格式窗口：右键单击选择区域，然后选择“设置单元格格式”。
选择自定义选项：在“数字”选项卡中，选择“自定义”。
输入格式代码：在“类型”框中输入自定义格式代码。

尽管自定义格式功能强大，但将数字直接转换为英文单词需要特定的代码或宏来实现。以下是一个简单的自定义格式示例：

[$-en-US]dddd, mmmm dd, yyyy

这个格式代码将日期显示为“星期几，月份日期，年份”的形式。

2. 使用Excel公式实现

虽然自定义格式可以完成很多工作，但要将数字转换为英文单词，使用Excel公式可能更为直观。以下是一个简单的公式示例：

使用CHOOSE和MOD函数：你可以使用这些函数来实现数字到英文单词的转换。例如，假设A1单元格中有一个数字，你可以使用以下公式将其转换为相应的英文单词：
```
=CHOOSE(A1+1, "Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")
```

这个公式会将A1单元格中的数字转换为对应的英文单词。

3. 使用VBA宏实现

如果你需要更复杂的转换，可以使用VBA（Visual Basic for Applications）宏来实现。以下是一个简单的VBA代码示例：

Function NumberToWords(ByVal MyNumber)
    Dim Units As String
    Dim StrNumber 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 "
    ' Convert MyNumber to string and trim white space.
    MyNumber = Trim(CStr(MyNumber))
    ' Find Position of decimal place.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Substring into number.
    If DecimalPlace > 0 Then
        StrNumber = Left(MyNumber, DecimalPlace - 1)
    Else
        StrNumber = MyNumber
    End If
    Count = 1
    Do While StrNumber <> ""
        Units = GetHundreds(Right(StrNumber, 3))
        If Units <> "" Then NumberToWords = Units & Place(Count) & NumberToWords
        If Len(StrNumber) > 3 Then
            StrNumber = Left(StrNumber, Len(StrNumber) - 3)
        Else
            StrNumber = ""
        End If
        Count = Count + 1
    Loop
End Function
Function GetHundreds(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 = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function
Function GetTens(TensText)
    Dim Result As String
    Result = ""           ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            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                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 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(TensText, 1))   ' Retrieve ones place.
    End If
    GetTens = Result
End Function
Function GetDigit(Digit)
    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

4. VBA宏的使用

打开Excel并按Alt + F11：这将打开VBA编辑器。
插入新模块：在“插入”菜单中选择“模块”。
粘贴代码：将上述VBA代码粘贴到新模块中。
保存并关闭VBA编辑器。
在单元格中使用新函数：例如，在A1单元格中输入一个数字，然后在B1单元格中输入公式=NumberToWords(A1)。

这个VBA宏会将数字转换为相应的英文单词。

三、使用Excel公式实现数字到英文单词的转换

1. 使用CHOOSE和MOD函数

Excel中的CHOOSE和MOD函数可以帮助我们实现简单的数字到英文单词的转换。以下是具体步骤：

在A1单元格中输入一个数字：例如，输入数字5。
在B1单元格中输入公式：=CHOOSE(A1+1, "Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")。

这个公式将根据A1单元格中的数字返回相应的英文单词。

2. 使用更复杂的公式

如果你需要转换更大的数字，可以使用更复杂的公式。例如，以下公式可以将0到99之间的数字转换为英文单词：

=IF(A1<20, CHOOSE(A1+1, "Zero", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine", "Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen"), CHOOSE(INT(A1/10), "", "", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") & IF(MOD(A1,10)=0, "", "-" & CHOOSE(MOD(A1,10)+1, "", "One", "Two", "Three", "Four", "Five", "Six", "Seven", "Eight", "Nine")))

这个公式将根据A1单元格中的数字返回相应的英文单词，包括从0到99的所有数字。

四、使用VBA宏实现复杂的数字到英文单词的转换

1. VBA宏的优点

使用VBA宏可以实现更复杂和灵活的数字到英文单词的转换。宏可以处理更大的数字范围，并且可以更轻松地进行调整和扩展。

2. VBA宏代码示例

以下是一个更复杂的VBA宏代码示例，可以将更大的数字转换为英文单词：

Function NumberToWords(ByVal MyNumber)
    Dim Units As String
    Dim StrNumber 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 "
    ' Convert MyNumber to string and trim white space.
    MyNumber = Trim(CStr(MyNumber))
    ' Find Position of decimal place.
    DecimalPlace = InStr(MyNumber, ".")
    ' Convert Substring into number.
    If DecimalPlace > 0 Then
        StrNumber = Left(MyNumber, DecimalPlace - 1)
    Else
        StrNumber = MyNumber
    End If
    Count = 1
    Do While StrNumber <> ""
        Units = GetHundreds(Right(StrNumber, 3))
        If Units <> "" Then NumberToWords = Units & Place(Count) & NumberToWords
        If Len(StrNumber) > 3 Then
            StrNumber = Left(StrNumber, Len(StrNumber) - 3)
        Else
            StrNumber = ""
        End If
        Count = Count + 1
    Loop
End Function
Function GetHundreds(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 = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
    End If
    If Mid(MyNumber, 2, 1) <> "0" Then
        Result = Result & GetTens(Mid(MyNumber, 2))
    Else
        Result = Result & GetDigit(Mid(MyNumber, 3))
    End If
    GetHundreds = Result
End Function
Function GetTens(TensText)
    Dim Result As String
    Result = ""           ' Null out the temporary function value.
    If Val(Left(TensText, 1)) = 1 Then   ' If value between 10-19...
        Select Case Val(TensText)
            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                                 ' If value between 20-99...
        Select Case Val(Left(TensText, 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(TensText, 1))   ' Retrieve ones place.
    End If
    GetTens = Result
End Function
Function GetDigit(Digit)
    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

3. 使用VBA宏

打开Excel并按Alt + F11：这将打开VBA编辑器。
插入新模块：在“插入”菜单中选择“模块”。
粘贴代码：将上述VBA代码粘贴到新模块中。
保存并关闭VBA编辑器。
在单元格中使用新函数：例如，在A1单元格中输入一个数字，然后在B1单元格中输入公式=NumberToWords(A1)。

这个VBA宏会将数字转换为相应的英文单词。

五、使用第三方插件和工具

除了内置功能和VBA宏外，还有一些第三方插件和工具可以帮助你将数字转换为英文单词。

1. ASAP Utilities

ASAP Utilities是一个强大的Excel插件，提供了许多额外的功能，包括将数字转换为英文单词。以下是使用ASAP Utilities的步骤：

下载并安装ASAP Utilities：访问ASAP Utilities官方网站，下载并安装插件。
启动Excel并打开ASAP Utilities：安装完成后，启动Excel，并在菜单中找到ASAP Utilities。
选择要转换的单元格或区域：选择你想要转换的单元格或区域。
使用ASAP Utilities功能：在ASAP Utilities菜单中找到并选择“数字到单词”功能。

ASAP Utilities会自动将选定单元格中的数字转换为英文单词。

2. Kutools for Excel

Kutools for Excel是另一个强大的Excel插件，提供了许多额外的功能，包括将数字转换为英文单词。以下是使用Kutools for Excel的步骤：

下载并安装Kutools for Excel：访问Kutools for Excel官方网站，下载并安装插件。
启动Excel并打开Kutools for Excel：安装完成后，启动Excel，并在菜单中找到Kutools for Excel。
选择要转换的单元格或区域：选择你想要转换的单元格或区域。
使用Kutools for Excel功能：在Kutools for Excel菜单中找到并选择“数字到单词”功能。

Kutools for Excel会自动将选定单元格中的数字转换为英文单词。

六、总结与建议

使用自定义格式、应用Excel公式、使用VBA宏是将数字转换为英文单词的主要方法。选择哪种方法取决于你的具体需求和熟悉程度。如果你需要简单的转换，可以使用自定义格式或Excel公式；如果你需要更复杂的转换，使用VBA宏会更为灵活和强大。

自定义格式：适合简单的格式转换，但功能有限。

Excel公式：适合中等复杂度的转换，可以处理较大的数字范围。

VBA宏：适合复杂和灵活的转换，可以处理任意大的数字。

第三方插件：如果你经常需要进行这种转换，使用插件如ASAP Utilities或Kutools for Excel会更为方便。

希望这篇文章能帮助你更好地理解如何在Excel中将数字转换为英文单词，并选择适合你的方法。