想把小写金额变为大写金额吗，用下面这个公式

hq0802 · 发表于 2011-7-10 22:27

本帖最后由 hq0802 于 2011-7-10 22:34 编辑

想把小写金额变为大写金额吗，一个公式就解决了

=IF(A1<0,"负","")&IF(TRUNC(ROUND(A1,2))=0,"",TEXT(TRUNC(ABS(ROUND(A1,2))),"[DBNum2]")&"元")&IF(ISERR(FIND(".",ROUND(A1,2))),"",IF(AND(LEFT(TRUNC(ROUND(A1,2)))="0",RIGHT(TRUNC(ROUND(A1,2)*10))="0"),,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]")&"分","整")

注意，这可只是一个公式，可别写分开了。

jsgslgd · 发表于 2011-7-10 22:32

路过，顶

搁浅2008 · 发表于 2011-7-10 22:43

VBA板块都是用自定义函数的

youfang · 发表于 2011-7-10 23:27

网上已经很多

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