在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. 按下回车键,即可在该单元格中显示大写合计。如果需要输出多个大写合计,只需要在相应的单元格中输入公式即可。
- 相关评论
- 我要评论
-