财务上大写金额的解决方案

a1guan

在财务实践中，经常要把数字转换成大写的金额。解决方案。利用NUMBERSTRING函数，结合SEARCH， ISERROR， MID， INT等函数，解决带有角、分的金额大写转换问题。

IF(ISERROR(SEARCH(".",A1))=TRUE,NUMBERSTRING(A1,2)&"元整",NUMBERSTRING(INT(A1),2)&"元"&NUMBERSTRING(MID(A1,SEARCH(".",A1)+1,1),2)&"角"&IF(ISERROR(NUMBERSTRING(MID(A1,SEARCH(".",A1)+2,1),2))=TRUE,"零分",NUMBERSTRING(MID(A1,SEARCH(".",A1)+2,1),2)&"分"))

yangrongguan

这个我正需要，收藏了。

wshcw

早过时了,参考:

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

=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"零分","整")

[ 本帖最后由 wshcw 于 2009-4-12 22:28 编辑 ]

双飞叶

原帖由 a1guan 于 2009-4-12 21:48 发表
在财务实践中，经常要把数字转换成大写的金额。解决方案。利用NUMBERSTRING函数，结合SEARCH， ISERROR， MID， INT等函数，解决带有角、分的金额大写转换问题。

IF(ISERROR(SEARCH(".",A1))=TRUE,NUMBERSTRING(A ...

不是很好,首先,不会正确显示负数金额比如-12元,,其次小数位数超过2位不会四舍五入,比如0.995,

看我的,里面总有一款适合你的,比较全http://club.excelhome.net/thread-416238-1-1.html

a1guan

四舍五入,可以用ROUND(A1,2), 替代A1.
至于负数,我觉得也可以用一个IF搞定,不过就是公式太长了.

嫣霞笑锋

=SUBSTITUTE(SUBSTITUTE(IF(I16<0,"负","")&TEXT(TRUNC(ABS(ROUND(I16,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(I16,2))),"",TEXT(RIGHT(TRUNC(ROUND(I16,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(I16,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(I16,2),3))=".",TEXT(RIGHT(ROUND(I16,2)),"[DBNum2]")&"分",IF(ROUND(I16,2)=0,"","整")),"零元零",""),"零元","")
试试看这个,我觉得挺好用的

a1guan

DBNum2是干什么的?

嫣霞笑锋

呵,也不知,
不过不用管它,只要将里面的I16换成小写所在的单元格位置即可

a1guan

谢谢你的公式。自己鼓捣的公式，很有成就感。呵呵。

yunhaifanten

好，学习了