人民币大写转换自定义函数
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
人民币大写转换自定义函数
本人觉得比较符合银行支票等票据填写要求的人民币大写转换自定义函数，共2个，区别是，后一个自定义函数元后面总有零。
Function RMBDX(M)
Dim a As Variant
RMBDX = Replace(Replace(Replace(Join(Application.Text(Split(Format(M, ' 0. 0 0;负 0. 0 0;')), ['[DBnum2]'&{0,'','元0角;;元零','0分;;整'}]), a), '零元零', a), '零元', a), '零整', '整')
End Function
Function dx(M)
Dim a As Variant
dx = Replace(Replace(Replace(Replace(Replace(Replace(Replace(Repl ace(Replace(Application.Text(Format(M, '.012034;;0'), '[=]g;[DBnum2]'), '.', '元零'), '叁肆', '分'), '壹贰', '角'), '零分', '整'), '零角', a), '零元零', a), '零元', a), '零整', '整'), '-', '负')
End Function
【使用方法】：在打开的工作簿中，按Alt F11,进入VBE界面，按Alt i m插入一个模块，将自定义函数代码粘贴（或输入）到其中，再次按Alt F11返回工作表单元格中，输入自定义函数名称及参数，即可返回大写。
【注意】：存放自定义函数的工作簿必须另存为“Excel启用宏的工作簿（*.xlsm）”，并在打开该工作簿时启用宏。
【原文附件下载方法】：在浏览器地址栏中输入以下链接地址即可进入下面页面。
/s/1i4SrFy1。