excel表格中大写的123怎么输

在Excel表格中输入大写的123，你可以使用单元格格式设置、公式转换、文本框输入。下面将详细描述其中一种方法——使用公式转换的方法。

使用公式转换的方法

要在Excel中将数字“123”转换为大写，可以使用自定义的VBA函数。以下是具体的步骤和代码：

打开Excel工作簿并按下 Alt + F11 进入VBA编辑器。
在VBA编辑器中，选择 Insert > Module，插入一个新模块。
在模块中输入以下代码：

Function NumToWords(ByVal MyNumber)
    Dim Units As String
    Dim Tens As String
    Dim Hundreds As String
    Dim Thousands As String
    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 <> ""
        If Len(TempStr) > 3 Then
            Hundreds = Right(TempStr, 3)
            TempStr = Left(TempStr, Len(TempStr) - 3)
        Else
            Hundreds = TempStr
            TempStr = ""
        End If
        Thousands = ConvertHundreds(Hundreds)
        If Thousands <> "" Then
            Units = Thousands & Place(Count) & Units
        End If
        Count = Count + 1
    Loop
    NumToWords = Units
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"
        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 "
        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工作表。
在需要转换数字为大写的单元格中输入公式，例如 =NumToWords(123)，即会显示“ONE HUNDRED TWENTY THREE”。

使用单元格格式设置

另一种方法是使用Excel的内置功能来设置单元格格式，使其显示大写的数字。这种方法更适合非复杂的数字转换。

选择需要设置的单元格。
右键单击并选择“设置单元格格式”。
在“数字”选项卡中选择“自定义”。
在“类型”框中输入 * #,##0。
点击“确定”。

这种方法会在显示数字时添加一些格式，但并不会直接将数字转换为大写字母形式。

使用文本框输入

如果你只是需要在Excel中显示大写的数字，而不需要进行复杂的计算，可以使用文本框：

选择“插入”选项卡。
点击“文本框”。
在工作表中绘制一个文本框。
在文本框中输入你需要的大写数字，例如“ONE HUNDRED TWENTY THREE”。

这种方法适用于需要显示固定文本的场景，不适合需要动态计算的场景。

总结

在Excel表格中输入大写的123，你可以使用单元格格式设置、公式转换、文本框输入。使用公式转换的方法是最灵活和强大的，适用于复杂的数字转换场景，而单元格格式设置和文本框输入则更适合简单的显示需求。根据具体需求选择最适合的方法。

excel表格中大写的123怎么输

使用公式转换的方法

使用单元格格式设置

使用文本框输入

总结

相关问答FAQs：