Excel表中如何實現(xiàn)“四舍六入，逢五奇進偶舍” 摘 要：Excel表是計量方面公式計算中的的常用軟件，為解決“四舍六入，逢五奇進偶舍”的問題特編制函數(shù)SWL(x, y) 加入其中，為以后的計算提供基礎依據(jù)。關鍵詞：Excel表；奇進偶舍；SWL函數(shù)；方法 在計量部門，對計量器具檢定完畢，在后續(xù)數(shù)據(jù)計算的過程中，對 “四舍五入”的問題要求嚴格，為盡量把測量誤差做到最小，往往要求遵循“四舍六入，逢五奇進偶舍”原則，在手工計算的時候我們可以人工操作，進去取與舍的判斷，隨著計算機的不斷普及及計算機人員熟悉的運用，很多計量部門都利用Excel電子表格軟件編制了相應的計量公式計算軟件，用Excel來處理數(shù)據(jù)中只有“四舍五入”的函數(shù)（ROUND）命令，對數(shù)值進行“四舍六入，逢五奇進偶舍”時，大眾化的Excel卻沒有提供一個滿足此要求的現(xiàn)成的函數(shù)，這在很大程度上限制了人們對excel的運用。如何解決此類問題，成了很多部門的一個現(xiàn)實難題。如何解決呢？為了徹底解決此問題，我們首先按進位要求進行分析：根據(jù)國標要求數(shù)值的修約，采用“四舍六入”法(GB 8170-87/GB1-81手冊P94 )：“4舍6入5看齊，5后有數(shù)進上去，尾數(shù)為零向左看，左數(shù)奇進偶舍棄”(5后全為零奇進偶不進)。所謂“四舍六入”，既所要的最后一位數(shù)字后的那個數(shù)字，如果是4就舍去、是6就進位。所謂“逢五奇進偶舍”，既最后一位數(shù)字后的那個數(shù)字，如果是5時就進行繼續(xù)判斷，若5后面不是0，那就進位；若是0則看前一位數(shù)字，若是奇數(shù)則進位，否則舍去。經(jīng)過以上分析，我們可以總結為：能夠進位的情況就是兩種。一種是：到需要取舍位置的時候，先看后面的2位數(shù)字，如果大于51，則進位。第二種是：需要取舍位置的最后一位是奇數(shù)、并且后面的一位是數(shù)字5。經(jīng)過如此總結，我們可以得出：所有需要進位的數(shù)字，只要在需要取舍位置的最后加上49就可以了，最后需要的有效位數(shù)為奇數(shù)時，在需要取舍位置的最后加上50也可以了。有了這些基礎就可以進行編程了，我把函數(shù)名稱定為：SWL (x, y)，x：需要奇進偶舍的數(shù)，y：保留的有效位數(shù)。具體編寫如下：If Int(x * 10 y) / 2 = Int(x * 10 y / 2) Then 判斷需要保留的最后一位的奇偶P = 0.49 是偶數(shù)時需要加的數(shù)ElseP = 0.5 是奇數(shù)時需要加的數(shù)End IfSWL = Int(x * 10 y + P) / 10 y 函數(shù)計算公式有了如上程序，我們只要加入到Excel中就可以隨時運用了。具體加入方法：1.首先打開EXCEL，選擇菜單“工具宏Visual Basic編輯器”命令(或按下鍵盤Alt+F11組合鍵)，打開Visual Basic窗口。 2. 進入Visual Basic窗口后，選擇菜單“插入模塊”命令，于是得到“模塊1”，按命令格式輸入。在第一行輸入：Function SWL (x, y) As Double，然后輸入以上內容，在最后一行輸入End Function即可。3. 函數(shù)自定義完成后，選擇菜單“文件關閉并返回到Microsoft Excel”命令，返回到Excel工作表窗口。SWL（四舍六入）函數(shù)與EXCE自帶的ROUND（四舍五入）函數(shù)使用方法完全一樣。當結果數(shù)保留到小數(shù)位時，Y為大于0的任何整數(shù)；當結果數(shù)保留到個位時，Y為0；當結果數(shù)保留到十位、百位時，Y為-1、-2。4.通常自定義的函數(shù)只能在當前工作薄使用，如果該函數(shù)需要在其它工作薄中使用，則選擇菜單“文件另存為”命令，打開“另存為”對話框，選擇保存類型為“Mir-cosoft Excel加載宏”，然后輸入一個文件名，如“SWL”單擊“保存”后文件就被保存為加載宏。然后選擇菜單“工具加載宏”命令，打開“加載宏”對話框，勾選“可用加載宏”列表框中的“SWL”復選框即可，單擊“確定”按鈕后，就可以在本機上的所有工作薄中使用SWL這個自定義函數(shù)了。5.如果想要在其它機器上使用該自定義函數(shù)，只要把上面的加載宏文件復制到其它電腦