分享一个完美解决四舍六入五留双的东东

yuanziyou · 发表于 2012-3-2 21:26

感谢楼主的东西！

yuanziyou · 发表于 2012-3-2 21:53

本帖最后由 yuanziyou 于 2012-3-2 22:32 编辑

我觉得条件语句还可以简化：
如果需要保留的小数位数后面的数字为5且5后没有不为0的数以及5前一位为偶数，用left函数修约
否则用round()函数修约

wrongman · 发表于 2012-3-11 18:30

本帖最后由 wrongman 于 2012-3-11 18:32 编辑

分享一下我写的exround函数，请大家指正。

Function EXRound(n As Double, b As Integer)
'GB/T8170-2008修约
'author: wrongman @excelhome.net
If Int(n * (10 ^ (b + 1))) Mod 10 = 5 And (Int(n * (10 ^ b)) Mod 10) Mod 2 = 0 And n * (10 ^ (b + 1)) - Int(n * (10 ^ (b + 1))) = 0 Then
n = n - (10 ^ (-b - 1))
End If
EXRound = Round(n, b)
End Function

复制代码

diy-exround.zip (7.21 KB, 下载次数: 22)

穿越哥 · 发表于 2012-3-11 21:31

本帖最后由穿越哥于 2012-3-11 21:34 编辑

假如A列填数字 B1的公式

复制代码

公式中的100就看你要的小数点了，3位就1000，依次
要改小数点的话直接crtl+H 把100改成自己想要的就好了
加载自定义公式的话，在别人的电脑也可以显示？没试过。

三流高手 · 发表于 2012-3-12 12:35

本帖最后由三流高手于 2012-3-12 12:43 编辑

wrongman 发表于 2012-3-11 18:30
分享一下我写的exround函数，请大家指正。

楼主的excround也存在5楼发现的Bug，也就是如果公式的结果为10.85时，保留小数点后1位，得到错误的10.9
如果把楼主语句中的excround=round(n,d)改为excround=2 ，会发现函数总是执行该语句，前面的条件判断语句没有得到执行！

三流高手 · 发表于 2012-3-12 12:44

穿越哥发表于 2012-3-11 21:31
假如A列填数字 B1的公式公式中的100就看你要的小数点了，3位就1000，依次
要改小数点的话直接crtl+H 把1 ...

当然要把这个自定义的函数拷到别人的电脑上了

wrongman · 发表于 2012-3-12 15:41

三流高手发表于 2012-3-12 12:35
楼主的excround也存在5楼发现的Bug，也就是如果公式的结果为10.85时，保留小数点后1位，得到错误的10.9
...

没看懂，举个列子。

三流高手 · 发表于 2012-3-13 12:27

本帖最后由三流高手于 2012-3-13 12:28 编辑

wrongman 发表于 2012-3-12 15:41
没看懂，举个列子。

请看附件工作簿中的例子及VBA中的代码。

diy-exround.zip (7.27 KB, 下载次数: 28)

wrongman · 发表于 2012-3-14 16:53

三流高手发表于 2012-3-13 12:27
请看附件工作簿中的例子及VBA中的代码。

这个确实不知道怎么解决。
你的公式能讲解一下吗？我没看明白，我刚接触VBA，很多东西不知道

海上钢琴师 · 发表于 2012-6-9 15:51

楼主好，如果本来是一位小数想要修约成整数该怎么办？貌似这个自定义函数办不到，例如18.5应修约成18

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

[分享] 分享一个完美解决四舍六入五留双的东东