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

《Excel表中如何实现“四舍六入,逢五奇进偶舍”》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Excel表中如何实现“四舍六入，逢五奇进偶舍”摘要：Excel表是计量方面公式计算中的的常用软件，为解决“四舍六入，逢五奇进偶舍”的问题特编制函数SWL(x,y)加入其中，为以后的计算提供基础依据。关键词：Excel表；奇进偶舍；SWL函数；方法在计量部门，对计量器具检定完毕，在后续数据计算的过程中，对“四舍五入”的问题要求严格，为尽量把测量误差做到最小，往往要求遵循“四舍六入，逢五奇进偶舍”原则，在手工计算的时候我们可以人工操作，进去取与舍的判断，随着计算机的不断普及及计算机人员熟悉的运用，很多计量部门都利用Excel电子表格软件编

2、制了相应的计量公式计算软件，用Excel来处理数据中只有“四舍五入”的函数（ROUND）命令，对数值进行“四舍六入，逢五奇进偶舍”时，大众化的Excel却没有提供一个满足此要求的现成的函数，这在很大程度上限制了人们对excel的运用。如何解决此类问题，成了很多部门的一个现实难题。如何解决呢？为了彻底解决此问题，我们首先按进位要求进行分析：根据国标要求数值的修约，采用“四舍六入”法(GB8170-87/GB1-81手册P94)：“4舍6入5看齐，5后有数进上去，尾数为零向左看，左数奇进偶舍弃”(5后全为零奇进偶不进)。所谓“四舍六入”，既

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

4、50也可以了。有了这些基础就可以进行编程了，我把函数名称定为：SWL(x,y)，x：需要奇进偶舍的数，y：保留的有效位数。具体编写如下：IfInt(x*10^y)/2=Int(x*10^y/2)Then‘判断需要保留的最后一位的奇偶P=0.49‘是偶数时需要加的数ElseP=0.5‘是奇数时需要加的数EndIfSWL=Int(x*10^y+P)/10^y‘函数计算公式有了如上程序，我们只要加入到Excel中就可以随时运用了。具体加入方法：1.首先打开EXCEL，选择菜单“工具→宏→VisualBasic编辑器”命令(或按下键盘Alt+F

5、11组合键)，打开VisualBasic窗口。2.进入VisualBasic窗口后，选择菜单“插入→模块”命令，于是得到“模块1”，按命令格式输入。在第一行输入：FunctionSWL(x,y)AsDouble，然后输入以上内容，在最后一行输入EndFunction即可。3.函数自定义完成后，选择菜单“文件→关闭并返回到MicrosoftExcel”命令，返回到Excel工作表窗口。SWL（四舍六入）函数与EXCE自带的ROUND（四舍五入）函数使用方法完全一样。当结果数保留到小数位时，Y为大于0的任何整数；当结果数保留到个位时，Y为0

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

7、文件复制到其它电脑上加载宏的默认保存位置即可。本函数可以在Excel表中随意运用，经过本人长时间在计量加油机软件计算中的应用，完全满足要求，没有一点差错。数字大了或位数多了也不会出现任何问题。