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

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

摘要：Excel表是计量方面公式计算中的的常用软件，为解决“四舍六入，逢五奇进偶舍”的问题特编制函数SWL(x, y) 加入其中，为以后的计算提供

基础依据。

关键词：Excel表；奇进偶舍；SWL函数；方法

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

如何解决呢？为了彻底解决此问题，我们首先按进位要求进行分析：根据国标要求数值的修约，采用“四舍六入”法(GB 8170-87/GB1-81手册P94 )：“4

舍6入5看齐，5后有数进上去，尾数为零向左看，左数奇进偶舍弃”(5后全为零奇进偶不进)。所谓“四舍六入”，既所要的最后一位数字后的那个数字，如果是4就舍去、是6就进位。所谓“逢五奇进偶舍”，既最后一位数字后的那个数字，如果是5时就进行继续判断，若5后面不是0，那就进位；若是0则看前一位数字，若是奇数则进位，否则舍去。经过以上分析，我们可以总结为：能够进位的情况就是两种。一种是：到需要取舍位置的时候，先看后面的2位数字，如果大于51，则进位。第二种是：需要取舍位置的最后一位是奇数、并且后面的一位是数字5。经过如此总结，我们可以得出：所有需要进位的数字，只要在需要取舍位置的最后加上49就可以了，最后需要的有效位数为奇数时，在需要取舍位置的最后加上50也可以了。

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

If Int(x * 10 ^ y) / 2 = Int(x * 10 ^ y / 2) Then …判断需要保留的最后一位的奇偶

P = 0.49 …是偶数时需要加的数

Else

P = 0.5 …是奇数时需要加的数

End If

SWL = Int(x * 10 ^ y + P) / 10 ^ 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（四舍六入）函数与EXCE自带的ROUND （四舍五入）函数使用方法完全一样。当结果数保留到小数位时，Y为大于0的任何整数；当结果数保留到个位时，Y为0；当结果数保留到十位、百位时，Y 为-1、-2。

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

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

本函数可以在Excel表中随意运用，经过本人长时间在计量加油机软件计算中的应用，完全满足要求，没有一点差错。数字大了或位数多了也不会出现任何问题。