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

walle666 · 发表于 2015-11-6 20:04

学习了，谢谢

slywtj123 · 发表于 2015-11-13 10:20

本帖最后由 slywtj123 于 2015-11-19 09:48 编辑

七楼ldy版主提供的《正确填写票据和结算凭证的基本规定》一文很有用！

loquat · 发表于 2016-1-10 11:09

ldy 发表于 2008-8-14 22:12
QUOTE:从最早讨论人民币大写到现在，早已超出了其实用性的范畴，早几年前就有完善的代码和公式了。研究最短 ...

不能收藏楼层，做个标记

snitfk · 发表于 2016-11-22 15:58

更加简洁的代码，请验证
=IF(I24,"人民币"&IF(I24<0,"负",)&NUMBERSTRING(INT(ABS(I24)),2)&SUBSTITUTE(TEXT(MOD(ABS(I24),1)/1%,"[=0]元整;[>9][DBNum2]元0角0分;[DBNum2]元00分"),"零分",),"")

sh205 · 发表于 2017-3-30 15:26

学习了，谢谢

w3lmcctl · 发表于 2017-3-30 20:33

强，之前用了若干代码，套了循环才搞定的功能，都能一行搞定了！！

YZC51 · 发表于 2017-10-13 18:08

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

gaozengxun · 发表于 2018-9-26 21:07

记住这一贴，我要记住

BENSONHONG · 发表于 2020-2-24 14:06

TEXT(A21,";负")&NUMBERSTRING(INT(ABS(A21)),2)&"元"&TEXT(MOD(ABS(A21),1)*100,"[DBNUM2]0角0分;;")

yanjie · 发表于 2021-7-30 11:42

谢谢分享！

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