转换大写人民币公式新解

gouweicao78

呵呵，谢谢黄兄精彩演绎。

RMB（）乍一看还以为是自定义函数，哈哈，平时难得用一次。

wshcw

又有牛人打破论坛记录了,参考:
http://tieba.baidu.com/f?kz=337413440
请港澳台同胞用繁体版测试,看看繁体版是否适用172个字符的以下公式(也就是看看RMB函数是否可用于繁体版):
=IF(-RMB(A1),SUBSTITUTE(SUBSTITUTE(IF(A1<0,"负",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),"零角",IF(ABS(A1)<1,,"零")),"零分","整"),"")
我再次修改以上公式,最后简化为170字符: 
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1),IF(A1<0,"负",)&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1),2),"[dbnum2]0角0分;;整"),),"零角",IF(ABS(A1)<1,,"零")),"零分","整")
 

[此贴子已经被作者于2008-8-11 12:30:51编辑过]

wshcw

公式经过刀砍斧削,终于打破了170字符.
168个字符
=SUBSTITUTE(IF(-RMB(A2),IF(A2>0,,"负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[>9][dbnum2]0角0分;"&IF(A2^2<1,,0)&"[>][dbnum2]0分;整"),),"零分","整")
167个字符
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2),IF(A2>0,,"负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A2^2<1,,"零")),"零分","整")

[此贴子已经被作者于2008-8-11 12:43:09编辑过]

wddn

QUOTE:

以下是引用wshcw在2008-8-11 12:30:15的发言：
公式经过刀砍斧削,终于打破了170字符.
168个字符
=SUBSTITUTE(IF(-RMB(A2),IF(A2>0,,"负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[>9][dbnum2]0角0分;"&IF(A2^2<1,,0)&"[>][dbnum2]0分;整"),),"零分","整")
167个字符
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A2),IF(A2>0,,"负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A2^2<1,,"零")),"零分","整")

收藏了。

linpansheng

牛人啊！你们快点在这里比拼，等你们拼杀完之后，我就把你们的成果收藏。

cgh331

就是楼上的说法

杨成云

很简单，实现方法很多的，偶提供两种方法点击浏览该文件

lbl016

我就把你们的成果收藏。

rakehell78

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

的解牛,收藏了。

goog1115