有一个宏可以将EXCEL中数字转换成大写人民币，有人感兴趣的，可以接着往下看
PwS7!dzH- 具体操作过程是：
(d Hil#l 方法一、
I`uOsZBO/ 请将下面的代码写入宏，具体操作过成是：
h: Hpz 1、工具－－宏－－输入宏名rmbdx－－创建－－进入vb编辑页面
4=C7V,a 2、删除所有内容－－将以上代码复制后粘贴到vb编辑页面－－保存为.xla（加载宏文件）
!~-@p?kW/ 3、输入函数＝rmbdx（123）,回车后就会显示“壹佰贰拾叁元整”
k{E!X r%FfJM@! 方法二、
l5<&pb#b 1、下载附件rmbdx.xla（解压后的文件）
r#\Lq;+ -B 2、加载宏rmbdx.xla:工具－－加载宏－－浏览－－选中要加载的宏(rmbdx.xla)
=q<t,U P8 3、输入函数：当你输入＝rmbdx（123）,回车后就会显示“壹佰贰拾叁元整”
SGUZ'} Z ItS(o J. 其宏函数代码如下：
nEfQLkb[| Function RMBDX(M)
bq"dKN` y = Int(Round(100 * Abs(M)) / 100)
{(_> A\zi j = Round(100 * Abs(M) + 0.00001) - y * 100
5uO.@0 f = (j / 10 - Int(j / 10)) * 10
@%gt h@8 A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
J?oEzf;M b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
8Uoqj=5F c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
aB 2t /ua RMBDX = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
g;\_MbfP End Function
T3In0LQ H&=fD` Xq 注：保存加载宏的位置最好指定到Ｃ盘以外一个地方，不要对此文件夹及文件更名
[ 此贴被mahorse128在2008-10-23 08:38重新编辑 ]
