在Excel的使用中，数字生成大写数字的快捷办法？

来源：百度知道 编辑：UC知道 时间：2024/05/21 21:48:59
比如，在做涉及金额的合计时，需要小写数字和大写汉字，汉字的输入很麻烦，不知有没有能快速生成汉字的方法或或者命令，请指教。

一、解决问题的思路
在Excel中自定义一个函数，该函数可以将任意数值转换为人民币大写金额。编制该函数代码时我是这样考虑：将输入的数值分为整数、十分位、百分位三个部分，将这几个部分单独转换为[dbnum2] 格式，再根据出现的各种可能和字符“元”、“角”、“分”进行组合。
二、自定义Excel函数
进入Visual Basic 开发环境，选择“插入→模块”，在出现的代码窗口输入如下代码：
Function d(q)
ybb = Round(q * 100)
'将输入的数值扩大100倍，进行四舍五入
y = Int(ybb / 100)
'截取出整数部分
j = Int(ybb / 10) - y * 10
'截取出十分位
f = ybb - y * 100 - j * 10
'截取出百分位
zy = Application.WorksheetFunction.Text(y, "[dbnum2]")
'将整数部分转为中文大写
zj = Application.WorksheetFunction.Text(j, "[dbnum2]")
'将十分位转为中文大写
zf = Application.WorksheetFunction.Text(f, "[dbnum2]")
'将百分位转为中文大写
d = zy & "元"
If f <> 0 And j <> 0 Then
d = d & zj & "角" & zf & "分"
If y = 0 Then
d = zj & "角" & zf & "分"
End If
End If
If f = 0 And j <> 0 Then
d = d & zj & "角&quo