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

wshcw · 发表于 2009-8-1 02:15

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

sunmin577476 · 发表于 2009-8-4 11:41

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

chrisfang · 发表于 2009-8-4 16:53

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

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

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

wangzqxa · 发表于 2009-8-9 10:52

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

萧镜考 · 发表于 2009-8-9 15:12

感觉不错噢。。。。

wshcw · 发表于 2009-8-12 22:15

1楼已结贴.

liuzj2s · 发表于 2009-8-13 16:08

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 · 发表于 2009-8-13 17:18

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

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

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

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

lgcmeli · 发表于 2009-12-1 15:41

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

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

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

我的神啊。太拽了！！！

乌鸦和矮人 · 发表于 2009-12-3 10:25

大家有考虑过负数吗？

		自动登录	找回密码
密码			免费注册

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

请教 30楼楼主chrisfang(每天工作15小时):

评分