在EXCEL中插入什么函数实现数字转成汉语大写啊?

多谢楼上兄弟!

先在EXCLE的工具-宏-visual basic编辑器-插入-模块,然后粘贴以下内容

Function dx(q)
ybb = Application.WorksheetFunction.Round(q * 100, 0) ’利用Excel函数
’ybb = Round(Abs(q) * 100, 0) ’VBA函数与Excel函数对舍入算法有些不一样
dx = IIf(ybb < 0, "负", "") ’符号
ybb = Abs(ybb)
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]") ’大写分
If y <> 0 Then dx = dx & zy & "元"
If j <> 0 Then dx = dx & zj & "角"
If f <> 0 Then
If y <> 0 And j = 0 Then dx = dx & "零"
dx = dx & zf & "分"
Else
If y <> 0 Or j <> 0 Then dx = dx & "整"
End If
End Function

就好了.

在EXCEL中输入函数“=dx(123.56)，显示“壹佰贰拾叁元伍角陆分”