主页 > 财务问答 > 淘丁企服

excel表格怎么自动求和合计大写?

159 2024-01-16 14:38

在Excel表格中自动求和并显示大写合计,需要使用自定义函数实现。以下是一种实现方式:

1. 在Excel中打开需要处理的表格。

2. 点击需要输出大写合计的单元格,然后点击“插入函数”。

3. 在插入函数对话框中,选择“自定义函数”。

4. 在自定义函数对话框中,输入以下代码:

```scss

Function NumToChinese(num As Double) As String

    Dim one(9) As String, ten(9) As String, oneHundred(9) As String, oneThousand(9) As String

    Dim result As String

    Dim n As Integer

    one(0) = "零"

    ten(0) = "十"

    oneHundred(0) = "百"

    oneThousand(0) = "千"

    result = ""

    n = Int(num)

    Select Case n

        Case 0

            result = "零元整"

        Case 1 To 9

            result = one(n) & "元" & "零" & TEXT(n * 100 - Int(n * 100), "[DBNum2][$-804]G/通用格式") & "分"

        Case 10 To 99

            result = ten(n // 10) & "元" & TEXT(n Mod 10, "[DBNum2][$-804]G/通用格式") & "角" & TEXT(n * 10 Mod 10, "[DBNum2][$-804]G/通用格式") & "分"

        Case 100 To 999

            result = oneHundred(n // 100) & "元" & TEXT(n Mod 100, "[DBNum2][$-804]G/通用格式") & "角" & TEXT((n // 10) Mod 10, "[DBNum2][$-804]G/通用格式") & "分"

        Case 1000 To 9999

            result = oneThousand(n // 1000) & "元" & TEXT(n Mod 1000, "[DBNum2][$-804]G/通用格式") & "角" & TEXT((n // 10) Mod 10, "[DBNum2][$-804]G/通用格式") & "分"

        Case Else

            result = "输入的数字超出范围!"

    End Select

End Function

```

5. 点击“确定”按钮,关闭自定义函数对话框。此时Excel会提示你输入的函数可能存在错误,点击“确定”继续。

6. 在需要输出大写合计的单元格中输入以下公式:

`=NumToChinese(C15)`,其中C15是你要输出小写金额的单元格位置。

7. 按下回车键,即可在该单元格中显示大写合计。如果需要输出多个大写合计,只需要在相应的单元格中输入公式即可。

顶一下
(0)
0%
踩一下
(0)
0%
相关评论
我要评论
点击我更换图片

热点提要

网站地图 (共183个专题73703篇文章)

返回首页