[原创]大写金额转换之最简单方案

tancaixi

原帖由 ym123 于 2009-6-26 17:57 发表
有比这个更短的吗：

=TEXT(INT(A1),"[dbnum2]G/通用格式元;;")&TEXT(--RIGHT(INT(A1*10)),"[dbnum2]#角;;;")&TEXT(--RIGHT(INT(A1*100)),"[dbnum2]#分;;整;")

1.09的结果是壹元玖分，不是很好~！

tancaixi

=IF(T26="","",IF(T26<0,"负",)&IF(INT(T26),TEXT(INT(ABS(T26)),"[dbnum2]")&"元",)&IF(INT(ABS(T26)*10)-INT(ABS(T26))*10,TEXT(INT(ABS(T26)*10)-INT(ABS(T26))*10,"[dbnum2]")&"角",IF(INT(ABS(T26))=ABS(T26),,IF(ABS(T26)<0.1,,"零")))&IF(ROUND(ABS(T26)*100-INT(ABS(T26)*10)*10,),TEXT(ROUND(ABS(T26)*100-INT(ABS(T26)*10)*10,),"[dbnum2]")&"分","整"))
还是这个好，周到、全面！

ym123

没听说过用大写表达人民币负数的，这样应该没问题了吧：

=TEXT(INT(A1),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2<1,,"零")),"零分","整")

[ 本帖最后由 ym123 于 2009-7-8 18:11 编辑 ]

tancaixi

原帖由 ym123 于 2009-7-8 17:54 发表
没听说过用大写表达人民币负数的，这样应该没问题了吧：

=TEXT(INT(A1),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(A1^2

这个好，简短周到实用，只是负数不行

[ 本帖最后由 tancaixi 于 2009-7-10 15:13 编辑 ]

ym123

都说没见过用大写表示人民币负数的了，负数写收据用红字冲销，列表发钱不会发负数吧？！各种财务报表的数据不管是正数还是负数都不用大写表示的，非要用负数表示那就这样行了吧：

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

dingzl

不错，正需要。学习了。

yangcongwen

ym123 发表于 2009-7-10 20:52
都说没见过用大写表示人民币负数的了，负数写收据用红字冲销，列表发钱不会发负数吧？！各种财务报表的数据 ...

太强了，完全没注意到还有 "[dbnum2]0角0分;;整" 这样的写法。

乂野

qmya00 发表于 2008-7-20 17:00
=IF(F13="","",IF(INT(F13)=0,"",TEXT(INT(F13),"[dbnum2]g/通用格式")&amp;"元")&amp;IF((INT(F13*10)-INT(F13 ...

学习了，学习了，

紫林香漫天

tancaixi 发表于 2009-6-28 11:24
=IF(T26="","",IF(T26

这个公式很不错，禁得住检验。给你一个赞！！！

lgdn

学习 学习
..
.
.
.