Question

excel 数字小写转大写的函数公式

Answer 1

我有一个自定义函数,你看看合用不?

Function 大写(m)

大写 = IIf(m = "","",IIf(m > -0.005,"","负") & 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

如果你不会用,给我留言