人民币金额小写自动转换成标准的大写公式

mongren · 发表于 2011-5-7 22:32

大家都知道，人民币金额的读写是有严格规定的，而且大写数字很麻烦。我在网上找了许多时也没有找到一个完整的公式，最好的也存在：当只有角分时出现“零元几角几分或零元零几分”，这是不合读数规定的。于是我着手编写了人民币小写转大写公式，它完全解决了上述问题。下面以4张图片（含显示完整公式）分别反映对E12单元格不同形式的小写金额转换成人民币大写金额，供大家共同参考。
金额小写转大写1.jpg

wshcw · 发表于 2011-5-7 22:39

大写公式论坛上多如牛毛.搜索一下吧!

wshcw · 发表于 2011-5-7 22:40

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

复制代码

[ 本帖最后由 wshcw 于 2011-5-7 22:41 编辑 ]

mongren · 发表于 2011-5-7 23:16

谢谢！
版主写在三楼的代码实在是高，不但公式简洁，而且包含了取负值时的正确转换。
不怕你笑话，说实在的我没有看懂你的代码，如果可以的话，请你做个详解，好让我等大多数菜鸟学习学习

yfan17 · 发表于 2011-5-8 10:33

楼主没有搜索到相关资源，可以试试在论坛上搜索“大写”。
=SUBSTITUTE(SUBSTITUTE(IF(E12>-0.5%,,"负")&TEXT(INT(ABS(E12)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(FIXED(E12),2),"[dbnum2]0角0分;;"&IF(ABS(E12)>1%,"整",)),"零角",IF(ABS(E12)<1,,"零")),"零分","整")

aay · 发表于 2011-6-9 08:19

三楼和五楼的代码简洁！适用！学习中。

legend127 · 发表于 2011-8-12 09:05

好贴谢谢云南大理哥

xfmc · 发表于 2011-8-12 10:56

三楼和五楼的代码简洁！适用！学习中

挥手自兹去 · 发表于 2011-8-12 17:44

学习一下！

蔡小菜 · 发表于 2011-8-12 23:37

刚接触这些完全看不懂
摸索中

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

[原创] 人民币金额小写自动转换成标准的大写公式

评分