人民币大写金额，给你一个简单易记的函数

【前言】

很多做财务工作的表友，一直被人民币大写金额所困扰，如果经常手写，这种重复性的工作首先说是没必要的，而且也很耽误时间，不小心还会出错。金额写错了，这个可是很大的工作事故了。所以很多做财务的表友都寻找简单方便的方法，尤其大家又守着Excel这么好的一个操作平台。

函数方式处理中文大写金额Processing One

其实方法还是很好找到的，现在网上有很多人民币大写金额的函数，复制粘贴就好了。如下，给大家介绍一个非常正规的大写金额函数写法：

函数解析

=IF(TRIM(A2)="","",IF(A2=0,"","人民币"&IF(A2<0,"负",)&IF(INT(A2),TEXT(INT(ABS(A2)),"[dbnum2]")&"圆",)&IF(INT(ABS(A2)*10)-INT(ABS(A2))*10,TEXT(INT(ABS(A2)*10)-INT(ABS(A2))*10,"[dbnum2]")&"角",IF(INT(ABS(A2))=ABS(A2),,IF(ABS(A2)<0.1,,"零")))&IF(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),TEXT(ROUND(ABS(A2)*100-INT(ABS(A2)*10)*10,),"[dbnum2]")&"分","整")))

这个函数的主要知识点是TEXT函数的[dbnum2]格式，将阿拉伯数字转换成中文大写数字。函数的主要原理就是将数值“逐位的”转换中文大写，在“&”上对小数点的判断与转换。过程虽然复杂，但是大家记住在“24财务EXCEL”公众号中可以找到它就好了，改一下单元格的引用即可，拿去用吧。

为什么说这个函数是比较正规的写法呢？在财务规定中，

1、中文大写金额，须注明“币种”；

2、如果金额没有角分，则中文大写金额，须以“元整”结尾；

3、如果金额有角分，则中文大写金额，不需用“整”字，再元的后面接“*角*分”。

所以说，上面的函数还是比较中规中矩的。

VBA方式处理中文大写金额Processing Two

在EXCEL的学习过程中，还是建议大家能够学一些EXCEL VBA的知识，有的时候使用VBA处理数据比函数更加的简便和有效率。今天我们就来介绍一个用VBA开发的自定义函数，函数名不仅短还好记。=RMBDX()，就是“人民币大写”的拼音缩写。

看一下效果：

下面是代码：

Public Function RMBDX(N)

  RMBDX = Replace(Application.Text(Round(N + 0.00000001, 2), "[DBnum2]"), ".", "元")

  RMBDX = IIf(Left(Right(RMBDX, 3), 1) = "元", Left(RMBDX, Len(RMBDX) - 1) & "角" & Right(RMBDX, 1) & "分", _

          IIf(Left(Right(RMBDX, 2), 1) = "元", RMBDX & "角整", _

          IIf(RMBDX = "零", "", RMBDX & "元整")))

  RMBDX = Replace(Replace(Replace(Replace(RMBDX, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")

End Function

使用方法

按ALT+F11打开VBE界面，在工程窗口中插入一个“模块”，复制上面的代码粘贴进去。现在你就可以在单元格中输入这个函数咯，就是如此简单。

其实这段代码没有多难的思路，整体来说，就是用工作表函数处理大写金额的操作流程。先处理小数点之前的数字，再处理小数点之后的数字。和函数的道理是一样的，但是省却了每次的复制粘贴和单元格引用的操作。

最后要嘱咐一下大家，如果你在EXCEL中使用了VBA，那么这个工作薄，就一定要另存为.xlsm格式（启用宏的工作薄）文件。

【编后语】

对于自定义函数，在日常工作中还是有很多的用途。比如工程类的运算、专业性的计算、高等数学等等，这些都是没有现成函数的。所以我们如果能建立起来有针对性的自定义函数，那效率可就不是一般的高了。而且自定义函数还可以导出模板，Copy到其他电脑上，那大家就都是受益者了

作者：我是世杰，财务excel深度玩家，坚持每天分享财务excel干货，微信公众号：24财务excel