148字符无缺陷人民币金额大写公式 逆天了！

cbtaja

{:soso_e133:}逆天消息！——突破150字符！无缺陷！非VBA！EXCEL2003通用！
经极其详细测试，148字符（含等号）无缺陷人民币金额大写公式新鲜出炉！
测试方法、内容见附件EXCEL表格（其中包括对本论坛ldy版主的两条公式160字符以及百度贴吧EXCEL吧中的多条公式的测试）。

卖个关子，暂只先给出一个176字符的“无缺陷”的的公式（其实这个176字符的公式已经够耀眼了，在这个148字符的公式没有诞生之前，几乎就是争夺冠军的有力选手，可惜，现在不是了{:soso_e118:}）： 人民币金额大写公式总汇与终极测评.rar (74.56 KB, 下载次数: 358)

2013-10-27 16:27 上传

点击文件名下载附件

176字符、无缺陷公式：

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

复制代码

敬请各位期待“148”明星先生的闪亮登场。。。。。。




补充内容 (2016-7-8 22:05):
＝IF(A2>-0.5%,,"负")&TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")&SUBSTITUTE(SUBSTITUTE(TEXT(RIGHT(RMB(A2,2),2),"[dbnum2]0角0分;;"),"零分","整"),"零角",IF(A2^2<1,,"零"))

cbtaja

       楼上包含有测试公式的表格附件。
    点击表格中的列出的文本公式，可以使公式自动进入测试区（需要启用宏），宏程序将自动把公式结果与手工答案对比，并且列出公式的缺陷类型和项数，结果一目了然。
如果你有自用的公式，也可复制到表格中测试、对比，看看到底有没有漏洞。
表中收录EXCEL吧中一个389字的长公式，该公式的发表者称使用它10余年“未发现”问题，但在本测试中直接显出原形：在所列举的26类容易出现误差甚至错误的检测项目中，它占了其中24种，几乎千疮百孔了！！！
    现在，你还敢用那些你从来没有怀疑过的公式吗？如果不那么放心，那就赶紧来试试吧！

cbtaja

金额大写公式测评说明：
1、货币单位可以是元、或圆，不一致的可替换后再测试。
2、无角、分的值按规则可以使用“整”、“正”，不一致的可替换后再测试。
3、如只是大写繁体字与简体字差异引起的不一致的可忽略。这一项需评测者自己手工检查。
4、元和角之间加“零”与不加“零”的写法，各人有不同观点，在不产生歧义的情况下认为都是对的。我个人倾向于不加“零”，除非角位上的值为零，即个人认为：￥10.98，大写为壹拾元玖角捌分，而￥9.08则大写为玖元零捌分。
5、对于万和仟之间加不加零也有不同观点，个人认为：仟进位就是万，因此它们之间不加零时也不会引起歧义，宜不加零，比如：￥1009080.35大写为：壹佰万玖仟零捌拾元叁角伍分；￥1030108.07大写为壹佰零叁万零壹佰零捌元零柒分。
6、对于0元是否显示，本人的观点是：既然转换，则无论什么值都应以大写呈现，而且从严谨的角度来说，票据上有小写金额值的就应填写相应大写金额，避免被修改，因此本人认为零元时公式结果留白的为重要漏洞。

jsxjd

下面这个用 numberstring 不是更短？
TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")

cbtaja

jsxjd 发表于 2013-10-27 18:49
下面这个用 numberstring 不是更短？
TEXT(INT(ABS(A2)+0.5%),"[dbnum2]G/通用格式元;;")

也许会更短，可以考虑尝试一下。

cbtaja

text的参数自含4段条件，这是numberstring所比不了的，而且，numberstring不能处理负数，同样需要其它函数辅助。还有numberstring只保留0位小数，用在金额上的精度不够。

cbtaja

各位，试过一楼的公式给出的176字公式了吗？请提出点看法吧

一剑惊心

我见过一个146的公式，但具体是怎么样的我忘了，因为我用不到大写公式{:soso_e113:}

cbtaja

这里有一个帖子，提供了一个巨长的公式：762字，其计算结果在正数时完全正确，在负数部分时负号未转换仍显示为“-”，也可视为正确。该贴是在2003年6月发的，而后贴主在三年后的2006年12月再次更新附件的公式，可见一个准确的大写转换公式在他心中的重要性：
http://club.excelhome.net/thread-24562-1-1.html

cbtaja

一剑惊心 发表于 2013-10-27 19:49
我见过一个146的公式，但具体是怎么样的我忘了，因为我用不到大写公式

146字的公式如果无缺陷，我想，它应该不会在论坛中失传。但至今还很是很少见到170字以内而且无缺陷的公式。
就我，好不容易发现了150字以内的好公式，就赶忙发贴要炫一下，那老早前就能精简到146字的，还不早就去赚个精华了？嘿嘿！