1、附件为下述数值转中文大写金额的VBA程序如何转为EXE程序Function dx(n)dx = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"), ".", "元")

3、dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")End Function

时间:2024-10-12 00:59:07
1、附件为下述数值转中文大写金额的VBA程序如何转为EXE程序Function dx(n)dx = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"), ".", "元")
3、dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")End Function