[分享]人民币大写函数TEXT终极版 1行(136字符)

dawin · 发表于 2010-9-12 13:49

我觉得还是用公式好点
=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,,"零")),"零分","整")
收藏了。

fanchl8109 · 发表于 2010-12-15 10:39

好帖自然要顶

Luckey9999 · 发表于 2010-12-20 12:53

版主牛人啊！

guochangjj · 发表于 2011-2-16 19:50

学习人民币大写函数
=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,,"零")),"零分","整")

luyina · 发表于 2011-5-15 06:51

留个记号以后查找

yang504165668 · 发表于 2011-5-15 12:16

=IF(A2="","",IF(A2<0,"负","")&IF(TRUNC(A2)=A2,TEXT(A2,"[dbnum2]")&"元整",IF(--LEFT(A2,FIND(".",A2)-1)=0,"",TEXT(LEFT(A2,FIND(".",A2)-1),"[dbnum2]")&"元整")&IF(--LEFT(RIGHT(A2*100,2))=0,"",TEXT(LEFT(RIGHT(A2*100,2)),"[dbnum2]")&"角")&IF(--RIGHT(A2)=0,"",TEXT(--RIGHT(A2),"[dbnum2]")&"分")))

0031126 · 发表于 2011-5-15 21:01

好强大强大到看不懂

=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,,"零")),"零分","整")
请教下 IF(-RMB(A1), 这个是怎么判断TURE和FLASE的
INT(ABS(A1)+0.5%) 这里为什么要加0.5%

[ 本帖最后由 0031126 于 2011-5-15 21:06 编辑 ]

Qinqinjiang · 发表于 2011-5-16 17:14

厉害

a121229530 · 发表于 2011-5-25 15:51

新手学习，楼主威武，多谢分享

felixwen · 发表于 2011-6-8 15:01

hao

		自动登录	找回密码
密码			免费注册