小写转大写函数公式
发布时间：2024-07-11 19:56:44
我有一个自定义函数，你看看合用不？Function 大写(m)大写 = IIf(m = "", "", IIf(m > -0.005, "", "负") & IIf(Abs(m) 0.005 < 1, "", "计" & ***.text(Int(Round(Abs(m), 2)), "[DBnum2]") & "元") & ***.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 如果你不会用，给我留言
免责声明：本文为转载，非本网原创内容，不代表本网观点。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
如有疑问请发送邮件至：bangqikeconnect@gmail.com