当前速递！excel数字小写转大写_excel小写转大写函数

(资料图片)

1、我有一个自定义函数。

2、你看看合用不？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 如果你不会用。

3、给我留言。

本文就为大家分享到这里，希望小伙伴们会喜欢。