文档介绍：EXCEL中大写金额的自定义函数及用法1、如何自定义:打开EXCEL,新建一个文件Book1,按ALT+F11进入VBA编程环境,选中这个BOOK1文件,插入模块,将下面的源代码复制到右边的模块代码区内,然后将此BOOK1保存,保存类型一定选加载宏,文件名嘛可自由发挥,我就填"中文大写",确定OK!然后回到EXCEL,工具--加载宏-找到"中文大写",打勾确定,我们这个自定义函数就可以象内置函数样使用了!--->=rmbdx(),爽吧!2、例子:A、直接在函数内输入数值的(请注意参数的用法,默认用法是不用输入)=rmbdx()--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分=rmbdx(,0)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分=rmbdx(,1)--->壹拾贰万叁仟肆佰伍拾陆元柒角捌分=rmbdx()--->伍拾陆元柒角捌分=rmbdx()--->柒角捌分=rmbdx()--->柒角捌分=rmbdx(,1)--->柒角玖分=rmbdx(,1)--->贰分B、引用某单元格数值进行转换的假设你的D3单元格的数据(也可以是求和或其它公式得出的结果)需要转换,大写格式放在D4单元格,则D4输入公式:=rmbdx(d3)即可C、其它形如=rmbdx(SUM(C4:C6))的也可以,用法象内置函数,请灵活使用3、源代码:Functionrmbdx(value,Optionalm=0)'中文大写源代码,By对面男孩、redwin'支持负数,支持小数点后的第三位数是否进行四舍五入处理'默认参数为0,即不将小数点后的第三位数进行四舍五入处理'2002-10-11--2002-10-13OnErrorResumeNextDimaDimjfAsString'定义角分位Dimj'定义角位Dimf'定义分位Ifvalue<0Then'处理正负数的情况a="负"Elsea=""EndIfIfIsNumeric(value)=FalseThen'判断待转换的value是否为数值rmbdx="需转换的内容非数值"Elsevalue=ur(value))'当参数m不输入(默认为0)或为0时,小数点后的第三数不进行四舍五入处理'当参数m为1或其它数值时,小数点后的第三数进行四舍五入处理Ifm=0Thenjf=Fix((value-Fix(value))*100)value=Fix(value)+jf/100Else'厘位进行四舍五入实践很少用到,但还是要照顾到value=(value,2)'-->这句是关键!只用round有bugjf=Round((value-Fix(value))*100,0)EndIfIfvalue=0Orvalue=""Then'当待转换数值为0或空时,不进行转换rmbdx=""Elsestrrmbdx=(Int(value),"[DBNum2]")&"元"'转换整数位IfInt(value)=0Thenstrrmbdx=""EndIfIfInt(