人民币金额大写方法及金额分列汇总

ugyun

　　经过一段时间的整理，本人收集了一些关于人民币金额中文大写的公式，现放在论坛里和朋友们一起共享，希望对财务人员有所帮助。当然里面的公式并不都是十全十美的，大家可以先比较，然后选择最适合自己用的。也许有人觉得没有必要收集这么多公式，但是关于人民币的公式论坛里虽然多，有些只是表示普通的阿拉伯数字是可以的，遇到特殊的就难以胜任了，本例中所罗列的公式均来自于EH，之所以要放在一起，是为了让大家更好的学习鉴别，从而选择最精准的公式用于工作。

       我暂时将人民币大写公式归为三类：公式类（31个），自定义函数VBA类（11个，其中自定义函数法6有待完善）和另类大写（3个），另外还有一个金额中文大写转换阿拉伯数字的函数，大家可以参考一下。

　　整理的过程中，特意选择了一些拼写相对较难的阿拉伯数字进行转换，通过比较，可以分出优劣。

    大家如果有更好的公式，也可以发出来一起分享。

　　所有的公式均来自于ＥＨ，未注明出处，请各位老师见谅，在这里尤其要感谢wshcw老师的指导。

另附：
　　关于“零”字的写法（引自中国人民银行会计司编写的最新《企业、银行正确办理支付结算指南》的第114页-第115页）：
　　1.阿拉伯小写金额数字中有“0”时， 中文大写应按照汉语语言规律、金额数字构成和防止涂改的要求进行书写。举例如下：
　　(1)阿拉伯数字中间有“0”时，中文大写金额要写“零”字。如￥1409.50，应写成“人民币壹仟肆佰零玖元伍角”。
　　(2)阿拉伯数字中间连续有几个“0”时，中文大写金额中间可以只写一个“零”字。如￥6007.14，应写成“人民币陆仟零柒元壹角肆分”。
　　(3)阿拉伯金额数字万位或元位是“0”，或者数字中间连续有几个“0”，万位、元位也是“0”，但千位、角位不是“0”时，中文大写金额中可以只写一个
“零”字，也可以不写“零”字。如￥1680.32，应写成“人民币壹仟陆佰捌拾元零叁角贰分”，或者写成“人民币壹仟陆佰捌拾元叁角贰分”；又如￥107000.53，
应写成“人民币壹拾万柒仟元零伍角叁分”，或者写成“人民币壹拾万零柒仟元伍角叁分”。
　　(4)阿拉伯金额数字角位是“0”，而分位不是“0”时，中文大写金额“元”后面应写“零”字。如￥16409.02，应写成“人民币壹万陆仟肆佰零玖元零贰分”；
又如￥325.04，应写成“人民币叁佰贰拾伍元零肆分”。
　　2.表示位的文字前必须有数字，如“拾元应写作“壹拾元整。
　　3.不能用不规范的简化字代替，如以“另”代“零”，以“两”代“贰”，以“廿”代“贰拾”等。
　　4.大写金额写法举例。例如：
人民币105846元，应写成“人民币壹拾万零伍仟捌佰肆拾陆元正”。
人民币1000846元，应写成“人民币壹佰万零捌佰肆拾陆元正”。
人民币1860.96元，应写成“人民币壹仟捌佰陆拾元零玖角陆分”，也可写成“人民币壹仟捌佰陆拾元玖角陆分”。
人民币86000.80元，可以写成“人民币捌万陆仟元零捌角整”。也可以写成“人民币捌万陆仟元捌角正”。
人民币金额分列汇总.rar (197.18 KB, 下载次数: 46416)

2012-4-26 22:37 上传

点击文件名下载附件

副本人民币金额大写方法汇总最终（2012.4.26）.rar (28.25 KB, 下载次数: 35233)

2017-10-25 21:08 上传

点击文件名下载附件

heaven827

{:soso__5799199981496220763_3:}总结的很好啊，辛苦了，慢慢学习

wshcw

写了那么多,却没有收藏到精品

wshcw

建议参考我2008年的贴子:
[原创]人民币大写数字相互转换
http://club.excelhome.net/thread-337492-1-1.html

jiminyanyan

wshcw 发表于 2012-4-26 03:08
建议参考我2008年的贴子:
[原创]人民币大写数字相互转换
http://club.excelhome.net/thread-337492-1-1.h ...

08年就弄好了，厉害。。。。

ugyun

wshcw 发表于 2012-4-26 03:08
建议参考我2008年的贴子:
[原创]人民币大写数字相互转换
http://club.excelhome.net/thread-337492-1-1.h ...

您的帖子我看过，这上面收藏的呢。　　老师，能帮忙转换小写为9009000.90元吗？论坛上的N种方法显示大写为：“玖佰万玖仟元玖角整”或“玖佰万玖仟元零玖角整”，都是错误的格式，即万和玖之间少了个零，正确的大写应为：“玖佰万零玖仟元玖角整”或“玖佰万零玖仟元零玖角整”


　　这个函数倒是可以转换，然而在表示负数时就不行了，请老师帮忙看看：
=IF(A3<1,IF(A3<0.1,TEXT(INT(A3*100),"[DBNum2]G/通用格式")&"分",IF((INT(A3*100)-INT(A3*10)*10=0),TEXT(INT(A3*10),"[DBNum2]G/通用格式")&"角整",TEXT(INT(A3*10),"[DBNum2]G/通用格式")&"角"&TEXT(INT(A3*100)-INT(A3*10)*10,"[DBNum2]G/通用格式")&"分")),TEXT(INT(A3),"[DBNum2]G/通用格式"&"元")&IF((INT(A3*10)-INT(A3)*10)=0,IF((INT(A3*100)-INT(A3*10)*10)=0,"","零"),IF((INT(A3*0.1)-INT(A3)*0.1)=0,"零","")&TEXT(INT(A3*10)-INT(A3)*10,"[DBNum2]G/通用格式")&"角")&IF((INT(A3*100)-INT(A3*10)*10)=0,"整",TEXT(INT(A3*100)-INT(A3*10)*10,"[DBNum2]G/通用格式")&"分"))

wshcw

ugyun 发表于 2012-4-26 20:02
您的帖子我看过，这上面收藏的呢。　　老师，能帮忙转换小写为9009000.90元吗？论坛上的N种方法显示大写为 ...

小小的变通就可以了：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS(A1)+0.5%),"[dbnum2]G/通用格式元;;")&TEXT(RIGHT(RMB(A1,2),2),"[dbnum2]0角0分;;整"),),"零角",IF(A1^2<1,,"零")),"万",IF(AND(MOD(ABS(A1%),1000)<100,MOD(ABS(A1%),1000)>=10),"万零","万")),"零分","整")

ugyun

wshcw 发表于 2012-4-26 20:44
小小的变通就可以了：
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(IF(-RMB(A1,2),TEXT(A1,";负")&TEXT(INT(ABS( ...

非常感谢云南大理老师，目前好像也只有您这个函数可以完美表示以下金额数字：

9009000.9
100100.01
9000.2
86000.8
6007.5
1680.32
107000.53
10.02
105846.05
0.01
1000846
-100.01

ugyun

1楼附件已更新

slywtj123

谢谢分享！