Excel表中如何实现“四舍六入，逢五奇进偶舍”

2015-07-17日照市计量测试所

上海计量测试 2015年4期

/ 日照市计量测试所

0 引言

在计量部门，对计量器具检定完毕，在后续数据处理过程中，对 “四舍五入”的问题要求严格。为尽量把测量误差做到最小，往往要求遵循“四舍六入，逢五奇进偶舍”原则，在手工计算的时候可以人工操作，做出取与舍的判断。随着计算机的不断普及，很多计量部门都利用Excel电子表格软件编制了相应的计量公式计算软件。Excel处理数据中只有“四舍五入”的函数（ROUND）命令，对数值进行“四舍六入，逢五奇进偶舍”时，大众化的Excel却没有提供一个满足此要求的现成函数，这在很大程度上限制了人们对Excel的运用。如何解决此类问题，成了很多部门的一个现实难题。

1 分析

为了彻底解决此问题，首先按进位要求进行分析。根据GB/T 8170-2008《数值修约规则与极限数值的表示和判定》的要求，数值的修约采用“四舍六入”法：“4舍6入5看齐，5后有数进上去，尾数为零向左看，左数奇进偶舍弃”（5后全为零奇进偶不进）。所谓“四舍六入”，即所要的最后一位数字后的那个数字如果是4就舍去，是6就进位。所谓“逢五奇进偶舍”，即最后一位数字后的那个数字，如果是5时就进行继续判断，若5后面不是0，那就进位；若是0则看前一位数字，若是奇数则进位，否则舍去。经过以上分析，可以总结为：能够进位的情况就是两种，第一种是：到需要取舍位置的时候，先看后面的2位数字，如果大于51，则进位。第二种是：需要取舍位置的最后一位是奇数并且后面的一位是数字5。经过如此总结，可以得出：所有需要进位的数字，只要在需要取舍位置的最后加上49就可以了，最后需要的有效位数为奇数时，在需要取舍位置的最后加上50也可以了。

2 编程

有了上述基础就可以进行编程了。把函数名称定为：SWL (x, y)，x：需要奇进偶舍的数，y：保留的有效位数。具体编写如下：

有了如上程序，只要加入到Excel中就可以随时运用了。

具体加入方法：

1）首先打开Excel，选择菜单“工具→宏→Visual Basic编辑器”命令(或按下键盘Alt+F11组合键 )，打开 Visual Basic 窗口。

2）进入Visual Basic窗口后，选择菜单“插入→模块”命令，于是得到“模块1”，按命令格式输入。在第一行输入：Function SWL (x, y) As Double，然后输入以上内容，在最后一行输入End Function即可。

3）函数自定义完成后，选择菜单“文件→关闭并返回到Microsoft Excel”命令，返回到Excel工作表窗口。SWL（四舍六入）函数与Excel自带的ROUND（四舍五入）函数使用方法完全一样。当结果数保留到小数位时，Y为大于0的任何整数；当结果数保留到个位时，Y为0 ；当结果数保留到十位、百位时，Y为-1、-2。

4）通常自定义的函数只能在当前工作薄使用，如果该函数需要在其他工作薄中使用，则选择菜单“文件→另存为”命令，打开“另存为”对话框，选择保存类型为“Microsoft Excel加载宏”，然后输入一个文件名，如“SWL”，单击“保存”后文件就被保存为加载宏。然后选择菜单“工具→加载宏”命令，打开“加载宏”对话框，勾选“可用加载宏”列表框中的“SWL”复选框即可，单击“确定”按钮后，就可以在本机上的所有工作薄中使用SWL这个自定义函数了。

5）如果想要在其他机器上使用该自定义函数，只要把上面的加载宏文件复制到其他计算机上加载宏的默认保存位置即可。