终极完美解决四舍六入五留双

stevecsc · 发表于 2013-3-8 14:58

多謝了，很有用的功能

雨佳1 · 发表于 2013-5-27 00:29

看不明白。但是知道强大。

口是心非 · 发表于 2013-7-25 13:08

你好，楼主，能否再将代码完善一下，如果位数不够，则自动用0来补足呢？谢谢。
举例说明：
要求四舍六入五单双且保留两位小数
1.299 bround后是1.3 我想要的结果是1.30
5.2 bround后是5.2 我想要的结果是5.20

关中大侠 · 发表于 2013-7-25 13:12

很好，学习了，非常感谢

口是心非 · 发表于 2013-8-11 07:21

你好，楼主，能否再将代码完善一下，如果位数不够，则自动用0来补足呢？谢谢。
举例说明：
要求四舍六入五单双且保留两位小数
1.299 bround后是1.3 我想要的结果是1.30
5.2 bround后是5.2 我想要的结果是5.20

ltxyfyz · 发表于 2013-8-13 17:52

我是新手，学习学习

一指禅 · 发表于 2013-8-13 20:29

口是心非发表于 2013-8-11 07:21
你好，楼主，能否再将代码完善一下，如果位数不够，则自动用0来补足呢？谢谢。
举例说明：
要求四舍六入 ...

请参考
Function bround(c#, d%)
bround = Format$(VBA.Round(CDec(c), d), "0." & Right(10 ^ 10, d))
End Function

一指禅 · 发表于 2013-8-13 20:43

或者
Function bround(c#, d%)
bround = VBA.Round(CDec(c), d)
bround = Format(bround, "0." & Right(10 ^ 9, d))
End Function

qunzi1973 · 发表于 2013-8-14 11:27

留用,谢谢分享!

qunzi1973 · 发表于 2013-8-14 11:35

呵呵,为什么打开的表格显示错误结果呢? "无效名称"错误

		自动登录	找回密码
密码			免费注册

[分享] 终极完美解决四舍六入五留双