[原创]人民币大写数字相互转换

一指禅

谢谢指教！再请大理版主及各位大师测试、修改、指正！！！
（在版主的公式上直接修改）170字符
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A10),IF(A10>0,,"负")&TEXT(INT((A10^2)^0.5),"[DBNUM2]G/通用格式元;;")&TEXT(RIGHT(RMB(A10),2),"[dbnum2]0角0分;;整"),),"零角",IF(A10^2<1,,"零")),"零分","整")

[ 本帖最后由 一指禅 于 2010-2-26 00:12 编辑 ]

dfzaq58

谢谢!你们,向你们学习!

wshcw

原帖由 一指禅 于 2010-2-25 23:59 发表
谢谢指教！再请大理版主及各位大师测试、修改、指正！！！
（在版主的公式上直接修改）170字符
=SUBSTITUTE(SUBSTITUTE(IF(-RMB(A10),IF(A10>0,,"负")&TEXT(INT((A10^2)^0.5),"[DBNUM2]G/通用格式元;;")&TEXT(RIGH ...

不用费神了,0.9959转换还是错.再改公式就超过170字了.

[ 本帖最后由 wshcw 于 2010-2-26 00:16 编辑 ]

lzqmsy

有些公式有缺欠,请确认后使用

wshcw

原帖由 一指禅 于 2010-2-25 09:46 发表
128个字符：

请各位版主及高人测试并指正！

=TEXT(TRUNC(A2),"[DBNUM2]G/通用格式元;负[DBNUM2]G/通用格式元;零元;")&IF(MOD(A2,1)0,,"整")&TEXT(ROUND(MOD((ABS(A2)),1)/1%,),"[DBNUM2]0角0分;;")

你公式的转换结果：
负壹佰贰拾捌元零角肆分
壹仟元贰角零分
零元零角壹分
这样的格式不可用

shlaoxia

35楼一指禅的公式是我看到同类公式中最短的（VBA除外），但好像十亿元显示错误值。能补充吗。

wshcw

原帖由 一指禅 于 2010-2-25 21:58 发表
168字符，请版主及各位大师测试、修改、指正！！！
=IF(A7=0,"零元",)&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(RMB(A7),),"[DBNUM2]G/通用格式元;负[DBNUM2]G/通用格式元;")&TEXT(RIGHT(RMB(A7),2),"[DBNUM2]0角0分;;整" ...

估计公式改不动了,如果能改也轮不到你了,不信你试试这几个数:
-0.00398
-0.905
0.0049

[ 本帖最后由 wshcw 于 2010-2-25 22:17 编辑 ]

一指禅

原帖由 shlaoxia 于 2010-2-25 15:55 发表
35楼一指禅的公式是我看到同类公式中最短的（VBA除外），但好像十亿元显示错误值。能补充吗。

您好！请测试：

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

一指禅

谢谢版主指教！
参照您的公式，现做如下修改，请您测试、指正！

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

一指禅

168字符，请版主及各位大师测试、修改、指正！！！
=IF(A7=0,"零元",)&SUBSTITUTE(SUBSTITUTE(TEXT(TRUNC(RMB(A7),),"[DBNUM2]G/通用格式元;负[DBNUM2]G/通用格式元;")&TEXT(RIGHT(RMB(A7),2),"[DBNUM2]0角0分;;整"),"零分","整"),"零角",IF(A7^2<1,,"零"))