【前言】
很多做财务工作的表友，一直被人民币大写金额所困扰，如果经常手写，这种重复性的工作首先说是没必要的，而且也很耽误时间，不小心还会出错。金额写错了，这个可是很大的工作事故了。所以很多做财务的表友都寻找简单方便的方法，尤其大家又守着Excel这么好的一个操作平台。
函数方式处理中文大写金额
Processing One
其实方法还是很好找到的，现在网上有很多人民币大写金额的函数，复制粘贴就好了。如下，给大家介绍一个非常正规的大写金额函数写法：
函数解析
=IF(TRIM(A2)=””,””,IF(A2=0,””,”人民币”&IF(A2
这个函数的主要知识点是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到其他电脑上，那大家就都是受益者了。
限 时 特 惠： 本站每日持续更新海量各大内部创业教程，一年会员只需98元，全站资源免费下载 点击查看详情
站 长 微 信： lzxmw777
