EXCEL实现四舍六入五成双修约规则的方法

恨我不成钢

中国药典的修约原则是四舍六入五成双（只是中国药典这样，USP、EP都是四舍五入）。四舍六入五成双的修约原则为：



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

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


1、按ALT+F11，打开vba编辑器  
右键点击Thisworkbook-插入-模块


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位。


下面是这一公式的测试：

首先考虑以下几点，设置相应的原始数值测试修约功能：
≤4 时舍去
≥6时进上
当5后有数时进上；
当5后无数，且5前为奇数时，舍5入1(化双)；
当5后无数，且5前为偶数时，舍5不进（化双）     


测试表和测试结果如下：  



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

wwhcom

挺不错的没学会，开始怎么启用宏没弄对

wwhcom

又百度了下，本人软件小白，不过终于搞定了，谢谢LZ

jixia

楼主，厉害

yanglian

楼主厉害，很有用呢，谢谢分享

lmq

学习一下，谢谢楼主分享

syhorchid

谢谢分享

ft4174215

楼主，这个vba公式是错的，我测试过。大家也注意下，1.255的测试值，没有入1而是舍了

scslk0045

太好了，谢谢！

歪说歪有李

149行，小数点后2位时，数字好像不对嗄？

农业的小伙

不错哟  楼主

Zzzno8

弱弱的问下中国药典在哪里规定的，只找到说按照修约规则，没写明什么规则。。。

铁皮奶嘴

Zzzno8 发表于 2022-8-5 16:20
弱弱的问下中国药典在哪里规定的，只找到说按照修约规则，没写明什么规则。。。

也想问同样的问题！

keante2019

谢谢分享！

Ledktvxrg

谢谢分享！

Trang

铁皮奶嘴 发表于 2022-9-5 16:58
也想问同样的问题！

中国药典2020年版三部凡例  二十二   数值修约规则：检定时测定和计算所得的各种数值，需要修约时，应按照国家标准GB/T 8170—2008进行。