1、附件为下述数值转中文大写金额的VBA程序如何转为EXE程序Function dx(n)dx = Replace(Application.Text(Round(n + 0.00000001, 2), "[DBnum2]"), ".", "元")
2、dx = IIf(Left(Right(dx, 3), 1) = "元", Left(dx, Len(dx) - 1) & "角" & Right(dx, 1) & "分", IIf(Left(Right(dx, 2), 1) = "元", dx & "角整", IIf(dx = "零", "", dx & "元整")))
3、dx = Replace(Replace(Replace(Replace(dx, "零元零角", ""), "零元", ""), "零角", "零"), "-", "负")End Function
