VBA版人民币数字小写转大写代码

作者：绿色风分类：时间：2022-08-18 浏览：117

楼主 omnw	VBA版人民币小写转大写公式，方便大家添加到自己的工具集中。 Function 大写(m) 大写 = IIf(m = "", "", IIf(Round(m, 2) < 0, "负", "") & IIf(Abs(m) + 0.005 < 1, "", Application.Text(Int(Round(Abs(m), 2)), "[DBnum2]") & "元") & Application.Text(Right(100 * Round(m, 2), 2), "[dbnum2]0角0分")) 大写 = Replace(Replace(大写, "零角", IIf(Abs(m) > 1 And Right(Round(100 * m, 0), 1), "零", "")), "零分", IIf(Round(m, 2), "整", "")) End Function
2楼 rongjun	学习下自定义函数
3楼 chenlifeng	下面的办法，好像更加简洁一些？ Function DX(m) DX = Replace(Replace(Replace(Join(Application.Text(Split(Format(m, " 0. 0 0;负 0. 0 0; ")), ["[DBnum2]"&{0,"","圆0角;;圆零","0分;;"}]), A), "零圆零", A), "零圆", A), "零整", "整") End Function 有一个毛病是，如果没有填入数字，答案为错，请问当如何避免？
4楼 omnw	加入判断语句，确定参数m是否为空。
5楼 chenlifeng

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表