作者：绿色风
分类：
时间：2022-08-18
浏览：100
楼主
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总版主之一