[开_118][已结}结贴在1楼]大写金额逆转换为数字金额

wshcw

经过不懈的努力,终于写成了一个10亿以内,03版的大写转数字公式,不过公式长度长了好几倍,还定义了一个名称.现正在进一步测试中.

sunmin577476

不限制他的数位，(03版)能不能编制他的公式出来？

chrisfang

原帖由 sunmin577476 于 2009-8-4 11:41 发表

不限制他的数位，(03版)能不能编制他的公式出来？

怎么问题又问了一遍？我在30楼不是已经回答过了吗。单个公式的话03版有点困难，如果用定义名称的话当然可以。

wangzqxa

山外有山，楼外有楼。高人

萧镜考

感觉不错噢。。。。

wshcw

1楼已结贴.

liuzj2s

1楼 的 公式，对于“玖佰零贰万零叁角贰分”“玖佰万元整”等似乎都无效

修改了一下，03版 普通公式, 不需要名称，也不需要Ctrl+Shift+Enter，到千亿级，就是比较长：

=IF(COUNT(FIND("亿",A2)),SUM(TEXT(FIND(MID(A2,FIND({"亿","拾","佰","仟"},A2&"整拾佰仟")-1,1),"拾佰仟整壹贰叁肆伍陆柒捌玖")-4,"0;!0")*10^{8,9,10,11}*(FIND({"亿","拾","佰","仟"},A2&"拾佰仟")<=FIND("亿",A2))))+IF(COUNT(FIND("万",A2)),SUM(TEXT(FIND(MID(A2,FIND({"万","拾","佰","仟"},A2&"整拾佰仟",IF(FIND("亿",A2&"亿")<LEN(A2),FIND("亿",A2),1))-1,1),"拾佰仟整壹贰叁肆伍陆柒捌玖")-4,"0;!0")*10^{4,5,6,7}*(FIND({"万","拾","佰","仟"},A2&"拾佰仟",IF(FIND("亿",A2&"亿")<LEN(A2),FIND("亿",A2),1))<=FIND("万",A2))))+SUM(TEXT(FIND(MID(MID(A2,MAX((FIND({"万","亿"},A2&{"万","亿"})<LEN(A2))*FIND({"万","亿"},A2&{"万","亿"}),1),99)&"分角元拾佰仟",FIND({"分","角","元","拾","佰","仟"},MID(A2,MAX((FIND({"万","亿"},A2&{"万","亿"})<LEN(A2))*FIND({"万","亿"},A2&{"万","亿"}),1),99)&"分角元拾佰仟")-1,1),"拾佰仟万亿元角分整壹贰叁肆伍陆柒捌玖")-9,"0;!0")*10^{-2,-1,0,1,2,3})

wshcw

原帖由 liuzj2s 于 2009-8-13 16:08 发表
1楼 的 公式，对于“玖佰零贰万零叁角贰分”“玖佰万元整”等似乎都无效

修改了一下，03版 普通公式, 不需要名称，也不需要Ctrl+Shift+Enter，到千亿级，就是比较长：

=IF(COUNT(FIND("亿",A2)),SUM(TEXT(FIND ...

高手,学习了,我的那个公式确实不完善,也没有你的通用.

lgcmeli

原帖由 liuzj2s 于 2009-8-13 16:08 发表
1楼 的 公式，对于“玖佰零贰万零叁角贰分”“玖佰万元整”等似乎都无效

修改了一下，03版 普通公式, 不需要名称，也不需要Ctrl+Shift+Enter，到千亿级，就是比较长：

=IF(COUNT(FIND("亿",A2)),SUM(TEXT(FIND ...

我的神啊。太拽了！！！

乌鸦和矮人

大家有考虑过负数吗？