人民币大写转换金额大写

fingerx0609 · 发表于 2024-12-17 10:14

35000.32转换成叁万伍仟零佰零拾零元叁角贰分
请老师帮忙写下公式谢谢

autohotey · 发表于 2024-12-17 10:24

VBA实现。。。。。。

hugeinfo · 发表于 2024-12-17 10:25

=TEXT(A1,";负")&TEXT(ABS(INT(A1)),"[dbnum2]")&TEXT(RIGHT(A1*100,2),"元[dbnum2]0角0分")

你是那块小饼干 · 发表于 2024-12-17 10:33

易用宝可以

成123123 · 发表于 2024-12-17 11:07

转载

=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),"万零","万")),"零分","整")

复制代码

zpy2 · 发表于 2024-12-17 13:07

https://club.excelhome.net/forum.php?mod=viewthread&tid=1671507&

ilulyj · 发表于 2024-12-17 13:43

感谢分享，学习一下

lanjian229 · 发表于 2024-12-17 13:44

直接wps有个金额的大写格式

cam333 · 发表于 2024-12-17 13:55

=NUMBERSTRING(INT(A3),2)&"元"&TEXT(RIGHT(FIXED(A3),2),"[dbnum2]0角0分;;整")

1007890405 · 发表于 2024-12-17 14:14

=IF((INT(A1*10)-INT(A1)*10)=0,TEXT(INT(A1),"[DBNum2]")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,"整","零"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]")&"分"),TEXT(INT(A1),"[DBNum2]")&"元"&IF((INT(A1*100)-INT((A1)*10)*10)=0,TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]")&"角整",TEXT((INT(A1*10)-INT(A1)*10),"[DBNum2]")&"角"&TEXT(INT(A1*100)-INT(A1*10)*10,"[DBNum2]")&"分"))

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

[求助] 人民币大写转换金额大写