excel数字金额变大写人民币的金额 INT 或是INT的嵌套函数 元 角分可以...
发布网友
发布时间:2024-10-20 16:59
我来回答
共1个回答
热心网友
时间:2024-12-01 03:01
函数解决这个很吃力,效率超低,可以考虑vba。
曾经收藏了一段别人写的代码,7行,很精炼,分享学习一下。
Function ldy888(M)
y = Int(Round(100 * Abs(M)) / 100)
j = Round(100 * Abs(M) + 0.00001) - y * 100
f = (j / 10 - Int(j / 10)) * 10
A = IIf(y < 1, "", Application.Text(y, "[DBNum2]") & "元")
b = IIf(j > 9.5, Application.Text(Int(j / 10), "[DBNum2]") & "角", IIf(y < 1, "", IIf(f > 1, "零", "")))
c = IIf(f < 1, "整", Application.Text(Round(f, 0), "[DBNum2]") & "分")
ldy888 = IIf(Abs(M) < 0.005, "", IIf(M < 0, "负" & A & b & c, A & b & c))
End Function