Excel中四舍六入五留双完美版~~

zlanylz · 发表于 2019-2-22 08:35:45

欢迎您注册蒲公英

您需要登录才可以下载或查看，没有帐号？立即注册

x

从网上捡的别人的文件，忘了原作者了，大家可以直接使用此带有宏的Excel文件~~
公式名称沿用ROUND（四舍五入）的格式，名为BROUND~~
使用该文件时，如果电脑的office设置禁用了宏，需要选择启用~~~

补充内容 (2019-7-30 08:11):
'直接调用VBA中的round函数，会出现很多错误的结果（因为浮点误差的原因，即：显示的数字与计算机内部实际存储的数值并不一致，
'如16.455在内存中可能是16.454999999999……，这样就导致了错误的修约结果）

补充内容 (2019-7-30 08:12):
四舍六入五留双的自定义函数代码，其实很简单
Function bround(c#, d%)
bround = VBA.Round(CDec(c), d)
End Function

补充内容 (2019-7-30 13:13):
楼下为公式版

zlanylz · 发表于 2019-7-30 13:16:11

本帖最后由 zlanylz 于 2019-7-30 13:18 编辑

四舍六入五留双公式版~~大家EXCEL应该可以验证了吧~~

当且仅当修约位数的数字为偶数，并且后面一位小数值为5，并且5后面没有没有任何数字时才不进位。因此我们只需要用excel的IF函数判断是否为这种情况，不是这种情况按照默认的四舍五入正常修约即可满足四舍六入五成双的规则。

这里我们可以用MOD函数结合POWER函数实现，也就是只需要判断公式 "abs(mod(修约小数*POWER(10,修约位数), 2) )=0.5"是否为真，为真则舍去5，为假时则正常修约，舍去不要的小数可以用rounddown函数实现。

只需要用IF函数判断步骤2里面的公式是否为真即可，完整的公式为："if(abs(mod(修约小数*POWER(10,修约位数), 2) )=0.5, rounddown(修约小数，修约位数), round(修约小数，修约位数。

公式的关键就在于判断条件是否为真，为真时不进位，用rounddown实现；为假时正常修约。

‘=IF(ABS(MOD(A2*POWER(10,B2),2))=0.5,ROUNDDOWN(A2,B2),ROUND(A2,B2))

lxcchen · 发表于 2019-2-22 08:42:34

这个不错，留着备用

涵笑 · 发表于 2019-2-22 08:42:39

好东西，谢谢分享

lhd000000 · 发表于 2019-2-22 08:50:41

这个不错，留着备用

寂寞雨中行 · 发表于 2019-2-22 08:59:50

资料不错

采采涂鸦 · 发表于 2019-2-22 09:12:57

谢谢楼主分享

gproe · 发表于 2019-2-22 09:21:31

谢谢楼主分享，好东西

zhongchunlin · 发表于 2019-2-22 09:39:33

这个很有用，留着备用

jimmy1112 · 发表于 2019-2-22 09:43:23

好东西，谢谢分享

Bigtree · 发表于 2019-2-22 09:55:42

谢谢分享！

亡灵J. · 发表于 2019-2-22 11:40:15

下载学习了一下代码很不错

给力宏 · 发表于 2019-2-23 18:56:19

能人辈出，真棒

costa_xl · 发表于 2019-2-23 20:40:17

之前也下过一个
比比看

xusircjhyy · 发表于 2019-2-24 07:58:42

不错啊，看看

去啊这些所谓 · 发表于 2019-2-24 08:59:53

很有心！

a881407 · 发表于 2019-2-24 09:00:54

很有心！

九三 · 发表于 2019-2-24 09:23:54

用这个，又要做确认了。试用一下吧

bjz00110 · 发表于 2019-2-24 10:16:09

谢谢楼主分享

北重楼 · 发表于 2019-2-24 20:43:02

谢谢分享！

jimmy1112 · 发表于 2019-2-25 09:01:18

这个不错，留着备用

Excel中四舍六入五留双完美版~~

欢迎您注册蒲公英

相关帖子

点评