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

scabell · 发表于 2021-10-24 12:16

shun2233 发表于 2008-8-10 18:13
参照版主的修正了，还是版主的公式精简=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(A3<0,"负",)&TEXT(INT(AB ...

挺牛的，值得学习

scabell · 发表于 2021-10-24 12:21

不错，值得学习

xunijyj · 发表于 2022-7-15 21:09

再次留下记号

门里的木头人 · 发表于 2022-7-16 16:21

正需要，下载学习，尝试着想看懂，有点头大

opklnm1108 · 发表于 2022-9-24 22:22

=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"万",IF(AND(MOD(ABS(A1%),1000)<100,MOD(ABS(A1%),1000)>=10),"万零","万")),"零分","整")，这个是最好用的，解决了万位前面为零的问题

格调是我 · 发表于 2022-12-4 22:31

Sub 转人民币大写()

ActiveCell.FormulaR1C1 = _
"=LET(arr,RC[-1],arrr,DOLLAR(arr),arrrr,ABS(arr),SUBSTITUTE(SUBSTITUTE(IF(-arrr,TEXT(arr,"";负"")&TEXT(INT(arrrr+0.5%),""[dbnum2]G/通用格式元;;"")&TEXT(RIGHT(arrr,2),""[dbnum2]0角0分;;整""),),""零角"",IF(arr^2<1,,""零"")),""零分"",""整""))"

End Sub

这个猛不猛

jinhaitiao168 · 发表于 2024-5-21 08:00

谢谢楼主分享，？？？？？

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