小兔网

试验检测的数值修约原则是四舍六入五成双(并非四舍五入)。四舍六入五成双的修约原则为:


1. 被修约的数字小于5时,该数字舍去;

2. 被修约的数字大于5时,则进位;

3. 被修约的数字等于5时,要看5前面的数字,若是奇数则进位,若是偶数则将5舍掉,即修约后末尾数字都成为偶数;若5的后面还有不为“0”的任何数,则此时无论5的前面是奇数还是偶数,均应进位。


EXCEL2003/2007/2010/2013电子表格里面,如果使用Round函数只能得到四舍五入的结果,那么如何到下面四舍六入五成双的结果呢?


1、按ALT+F11,打开vba编辑器  

右键点击Thisworkbook-插入-模块

202106141041329968930

2、将下面代码拷贝进去

Function TranValue(rng As Double, number As Integer) As Double

    TranValue = Round(rng, number)

End Function


3、保存为启用宏的工作簿或在一开始就启用宏也是可以的,关闭vba编辑器


4、在电子表格中直接使用公式

= tranvalue(A1,x)


然后向下拉公式既可以。这里A1是待修约数据所在的单元格,x表示修约至小数点后x位。参加试验检测考试加微信:13527870418购买开通微试验题库


下面是这一公式的测试:


首先考虑以下几点,设置相应的原始数值测试修约功能:

≤4 时舍

≥6时进上

当5后有数时进上;

当5后无数,且5前为奇数,舍5入1(化双);

当5后无数,且5前为偶数时,舍5不进(化双)     


测试表和测试结果如下:  


202106141041346769762

测试结果成功,代码正确,公式可用。

备注:在EXCEl中只能显示15位有效数字,若超过15位,EXCEL一般会把后面的数字用0代替,因此若待修约数值超过15位有效数字的话,则本公式不可用。但这种情况很少。