[原创]人民币大写数字相互转换

wshcw

与用友一致的大写公式,再完善一下:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2),TEXT(A2,";(负)")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[>9][dbnum2]"&IF(MOD(ABS(A2),10)<1,0,)&"0角0分;"&IF(A2^2<1,,0)&"[>][dbnum2]0分;整"),),"万",IF((MOD(ABS(A2%%),10)<1)*(MOD(ABS(A2%%),10)>=0.1),"万零","万")),"零分","整")

一只鸟243

谢了!非常好!

山山好又快

学习，收藏！

山山好又快

wshcw 发表于 2012-6-26 14:27
与用友一致的大写公式,再完善一下:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2),TEXT(A2,";(负)")&TEXT(INT(ABS(A ...

请教：学习试用一下为什么尾数不对？

山山好又快

wshcw 发表于 2012-6-26 14:27
与用友一致的大写公式,再完善一下:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2),TEXT(A2,";(负)")&TEXT(INT(ABS(A ...

老师您好！
我试用了您的公式，为什么显示时重复后两位，如输入的是整数，显示有角分。

山山好又快

山山好又快 发表于 2012-7-5 10:31
老师您好！
我试用了您的公式，为什么显示时重复后两位，如输入的是整数，显示有角分。

请教老师，谢谢！
测试表.rar (3.5 KB, 下载次数: 21)

2012-7-5 16:40 上传

点击文件名下载附件

wshcw

山山好又快 发表于 2012-7-5 16:40
请教老师，谢谢！

应该是你电脑的问题,我这里显示正常.

wshcw

山山好又快 发表于 2012-7-5 16:40
请教老师，谢谢！

你的系统设置改过吧,建议把公式改为:
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2,2),TEXT(A2,";(负)")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2,2),2),"[>9][dbnum2]"&IF(MOD(ABS(A2),10)<1,0,)&"0角0分;"&IF(A2^2<1,,0)&"[>][dbnum2]0分;整"),),"万",IF((MOD(ABS(A2%%),10)<1)*(MOD(ABS(A2%%),10)>=0.1),"万零","万")),"零分","整")

山山好又快

wshcw 发表于 2012-7-5 18:01
应该是你电脑的问题,我这里显示正常.

谢谢老师指教！

kmzbh

不错哦，学习了