[已解决]初级的转化为大写，弱弱的问一下

zhuang_sj

请问如何能自动将一个单位格中的小写金额转化为大写金额？

最佳答案

月排行榜 / 总排行榜

zhc3288

2011-9-15 12:25

回复 zhuang_sj 的帖子

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

假设你的这个数据在E1单元格

跳转到最佳答案楼层

cxzfy12758

回复 zhuang_sj 的帖子

设置单元格格式->特殊->中文大写数字,确定

zhc3288

回复 zhuang_sj 的帖子

自定义格式输入[DBNum1]G/通用格式

zhuang_sj

可以通过函数实现吗？

zhuang_sj

是金额的表示。比如342.45转化成叁佰肆拾贰元肆角伍分。

zhc3288

回复 zhuang_sj 的帖子

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

假设你的这个数据在E1单元格

yuanye-1160

=CONCATENATE("人民币",SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负","")&TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元"&IF(ISERR(FIND(".",ROUND(A1,2))),"",TEXT(RIGHT(TRUNC(ROUND(A1,2)*10)),"[DBNum2]"))&IF(ISERR(FIND(".0",TEXT(A1,"0.00"))),"角","")&IF(LEFT(RIGHT(ROUND(A1,2),3))=".",TEXT(RIGHT(ROUND(A1,2)),"[DBNum2]")&"分",IF(ROUND(A1,2)=0,"","整")),"零元零",""),"零元",""))

输入数字直接转换为：人民币XXXXXXXXXXXX

zhuang_sj

六楼和七楼都能实现。谢谢！
但最最佳只能设一个。

♀千寻♂

{:35:}。。。。。。。。。。。。。。。。。

山隅幽兰

好复杂的公式，看不懂，，学无止境啊