Excel人民币大写转换函数
使用excel自定义函数(VBA)实现人民币由小写数字转换为大写数字。
操作方法
(01)1.启动excel,按alt+F11组合键打开vba编辑窗口,并插入一个新模块。如图:
(02)2.在《模块1》的编辑窗口中填写如下代码:Public Function RMBDX(M)'人民币大写函数RMBDX = Replace((Round(M + 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
(03)3.切换回EXCEL的界面,测试函数。测试成功,即可使用。
(04)在任意单元各种输入需要转换的数值,然后如入函数=RMBDX(A1)回车
(05)这样自定义的函数虽然可以像内置函数一样使用,不过却并不是真正的内置函数,只能用于当前工作簿。
(06)工作簿的保存。可以将工作簿保存为xls格式或者保存为XLSM格式(启用宏的文档)
大写数字转换的方法
(01)如果仅需要转换为中文大写数字,可通过设置单元格格式的方法进行转换选中单元格——鼠标右键——设置单元格格式——特殊——中文大写
(02)同理,转为中文小写的方法,如此相似。
(03)注意:使用单元格格式的方法,修改的仅仅是显示的内容,单元格的内容实际上还是阿拉伯数字;使用自定义函数RMBDX的方法,转换后的单元格内容,不再是阿拉伯数字,而是中文文本。
特别提示
这样自定义的函数虽然可以像内置函数一样使用,不过却并不是真正的内置函数,只能用于当前工作簿。
如对您有帮助,请投票支持,谢谢!
如有疑问,请提问留样。
-
如何在手机上申报个人所得税专项附加税扣除
个人所得税专项附加税扣除政策是一项非常优惠的政策,它可以减轻广大人民群众的负担。那么这个要怎么申报呢?本文将为您介绍它的申报流程。操作方法(01)首先,下载官方的个人所得税APP,这个APP是新出的。(02)点击打开个人所得税APP后,会询问你的定位,点击下一步即可。(03)进...
-
旅拍摄影师如何接单
旅拍摄影师的接单方式总共分为两种,一种是自己主动找单,另外一种是让订单主动来找你,这两种方式之间存在着本质的区别,自己找单的财务和时间成本都比较高,而订单主动找你则几乎没有什么成本。下面小编总结的八种接单方式都是属于上述两大类别里面的,旅拍摄影师可以根...
-
如何在CATIA中对几何体进行装配
本教会大家如何在CATIA零件设计模块对两个几何体通过布尔运算进行装配。操作方法(01)打开CATIA,在菜单栏中选>文件>打开,或者按住Ctrl+o,弹出对话框;(02)在对话框中选择零件>buer,双击单击打开;(03)查看图形界面中两个几何体的位置关系,并在左上角可以看到树形结构图中存在...
-
CAD图块如何编辑?CAD图块编辑方法?
本文主要讲述在CAD中图块如何进行编辑的过程,通过学习来掌握此方法的使用技巧。操作方法(01)首先通过原有图纸并进行打开,如下图所示。(02)图中图形为块模式,通过选择当前图形在特征中进行查看,如下图所示。(03)通过双击该图块弹出编辑块定义点击确定即可,如下图所示。(04)...