有一个宏可以将EXCEL中数字转换成大写人民币,有人感兴趣的,可以接着往下看
@C!q S7k) 具体操作过程是:
yGD0}\!n 方法一、
S((8DSt* 请将下面的代码写入宏,具体操作过成是:
?&X6VNbU 1、工具--宏--输入宏名rmbdx--创建--进入vb编辑页面
pixI&iQ 2、删除所有内容--将以上代码复制后粘贴到vb编辑页面--保存为.xla(加载宏文件)
:JN3@NsK 3、输入函数=rmbdx(123),回车后就会显示“壹佰贰拾叁元整”
Zv-6H*zM6 {==Q6BG* 方法二、
_n_i*p
'2 1、下载附件rmbdx.xla(解压后的文件)
';lO[B 2、加载宏rmbdx.xla:工具--加载宏--浏览--选中要加载的宏(rmbdx.xla)
#15q`w 3、输入函数:当你输入=rmbdx(123),回车后就会显示“壹佰贰拾叁元整”
'PO1{&M lO) B/N& 其宏函数代码如下:
aSK$#Xeu Function RMBDX(M)
3AB5Qs< y = Int(Round(100 * Abs(M)) / 100)
.9ROa#7U;n j = Round(100 * Abs(M) + 0.00001) - y * 100
4({=(O f = (j / 10 - Int(j / 10)) * 10
K3Xy%pqR# A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
X<?;-HrS; b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
1U9iNki c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
~j4=PT RMBDX = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
]':C~-RV{ End Function
K{iayg!k tou^p-)GQ| 注:保存加载宏的位置最好指定到C盘以外一个地方,不要对此文件夹及文件更名
[ 此贴被mahorse128在2008-10-23 08:38重新编辑 ]