建筑工程材料檢測(cè)數(shù)據(jù)的數(shù)值修約在excel中的實(shí)現(xiàn)

1、<p>　　建筑工程材料檢測(cè)數(shù)據(jù)的數(shù)值修約在excel中的實(shí)現(xiàn)</p><p>　　【摘 要】excel中沒有提供能符合按GB/T 8170-2008要求數(shù)值修約的函數(shù)。本文通過excel自帶的子函數(shù)進(jìn)行編寫，實(shí)現(xiàn)了按國(guó)標(biāo)GB/T 8170-2008進(jìn)行修約，經(jīng)測(cè)試，函數(shù)能滿足標(biāo)準(zhǔn)要求，具有推廣價(jià)值。 </p><p>　　【關(guān)鍵詞】數(shù)值；修約；函數(shù) </p>&l

2、t;p><b>　　1、前言 </b></p><p>　　Microsoft excel 是微軟公司開發(fā)的辦公軟件microsoft office的重要組件之一。Excel 由于具有強(qiáng)大的數(shù)據(jù)處理功能，在工程類日常應(yīng)用非常廣泛。而在技術(shù)資料的數(shù)據(jù)處理當(dāng)中，經(jīng)常要對(duì)數(shù)值進(jìn)行修約以達(dá)到要求的精度。而excel中卻沒有提供專門的數(shù)值修約函數(shù)，只能對(duì)數(shù)值按“四舍五入”規(guī)則進(jìn)行處理，而工程數(shù)據(jù)

3、處理一般都是對(duì)結(jié)果按規(guī)范進(jìn)行數(shù)值修約，用人工進(jìn)行修約，繁瑣而且易出錯(cuò)。 </p><p>　　利用excel強(qiáng)大的數(shù)據(jù)處理功能，專門編制了能夠在excel中直接對(duì)數(shù)值進(jìn)行修約的函數(shù)以及在宏中的實(shí)現(xiàn)。 </p><p>　　2、數(shù)值修約的有關(guān)規(guī)定 </p><p>　　數(shù)值修約國(guó)家標(biāo)準(zhǔn)規(guī)范GB/T 8170-2008《數(shù)值修約規(guī)則與極限數(shù)值的表示和判定》對(duì)數(shù)值修約的進(jìn)

4、舍規(guī)則如下： </p><p>　　1）擬舍棄數(shù)字的最左一位數(shù)字小于5時(shí)，則舍去，即保留的各位數(shù)字不變。 </p><p>　　2）擬舍棄數(shù)字的最左一位數(shù)字大于5，或則是5，而且后面的數(shù)字并非全部為0時(shí)，則進(jìn)1，即保留的末位數(shù)加1。 </p><p>　　3）擬舍棄數(shù)字的最左一位數(shù)字為5，而后面無數(shù)字或全部為0時(shí)，若所保留的末位數(shù)為奇數(shù)（1，3，5，7，9）則進(jìn)1，

5、為偶數(shù)（2，4，6，8，0）則舍棄。 </p><p>　　4）負(fù)數(shù)修約時(shí)，取絕對(duì)值按照上述1～3規(guī)定進(jìn)行修約，再加上負(fù)號(hào) </p><p>　　5）0.2單位修約或者0.5單位修約時(shí)，分別將擬修約數(shù)值X乘以5、乘以2，按指定修約間隔按5X、2X進(jìn)行修約，所得數(shù)值再除以5、除以2。 </p><p>　　3、數(shù)值修約的邏輯分析及函數(shù)設(shè)計(jì)流程 </p>

6、<p>　　從以上修約規(guī)則可以看出，對(duì)于正整數(shù)修約到1的情況，數(shù)值修約規(guī)則與excel提供的Round函數(shù)的唯一區(qū)別在于，當(dāng)擬修約值個(gè)位數(shù)為偶數(shù)而且擬舍棄數(shù)字剛好為0.5時(shí)，按Round函數(shù)修約的個(gè)位數(shù)有進(jìn)1，而按GB/T 8170-2008修約規(guī)則進(jìn)行修約的，個(gè)位數(shù)沒有進(jìn)1。按照這種情況，我們只需要挑出這種特殊情況，其它情況都可以按照Round函數(shù)進(jìn)行“四舍五入”。假設(shè)需要修約至Y，Y值為修約間隔與單位修約的乘積，如我們通常

7、說的修約至5，即是修約間隔為10，按0.5單位修約。函數(shù)運(yùn)算的框架圖如下， </p><p>　　根據(jù)上述流程，給出能夠在excel 中實(shí)現(xiàn)數(shù)值修約的自編函數(shù)如下： </p><p>　　=IF（AND（MOD（ABS（A1/Y），1）=0.5，MOD（INT（ABS（A1/Y）），2）=0），ROUNDDOWN（A1/Y，0）*Y，ROUND（A1/Y，0）*Y） </p>

8、<p>　　A1為待修約數(shù)值所在excel的單元格的位置，Y為我們需要修約至的數(shù)值。 </p><p>　　4、對(duì)數(shù)值修約自編函數(shù)的具體分析 </p><p>　　本函數(shù)通過把擬修約數(shù)A1除以需修約至的數(shù)Y簡(jiǎn)化成整數(shù)修約至1的問題，修約結(jié)果再乘以Y以得到正確的修約數(shù)值，符合0.2單位修約和0.5單位修約原則的精神。函數(shù)具體分析如下： </p><p>　

9、　1）ABS（A1/Y）是對(duì)A1/Y進(jìn)行取絕對(duì)值，確保函數(shù)在負(fù)數(shù)的情況下判斷是正確的； </p><p>　　2）MOD是除余函數(shù)，MOD（a，b），返回a除以b的余數(shù)。MOD（ABS（A1/Y），1）=0.5判斷擬舍棄數(shù)字是否為Y/2， MOD（INT（ABS （A1/Y）），2）=0判斷擬保留數(shù)字是否為偶數(shù)； </p><p>　　3）AND是并列條件函數(shù)，AND（條件1，條件2，……

10、），表示括號(hào)內(nèi)的所有條件都為真時(shí)才為真，AND（MOD（ABS（A1/Y）， 1）=0.5，MOD（INT（ABS（A1/Y）），2）=0）判斷擬保留數(shù)字是否為偶且擬舍棄數(shù)字是否為Y/2； </p><p>　　4）ROUNDDOWN是向絕對(duì)值小的舍去，ROUNDDOWN（A1/Y，0）*Y即是直接舍棄擬舍棄數(shù)字； </p><p>　　5）ROUND函數(shù)是對(duì)數(shù)字絕對(duì)值進(jìn)行“四舍五入”進(jìn)行

11、運(yùn)算，ROUND（A1/Y，0）*Y是按“四舍五入”的原則的擬修約數(shù)進(jìn)行取值； </p><p>　　6）IF是條件語句，IF（邏輯條件，條件為真時(shí)返回值，條件為假時(shí)返回值），本函數(shù)的邏輯為判斷擬保留數(shù)字為偶數(shù)，且擬舍棄數(shù)字剛好為Y/2兩個(gè)條件都成立時(shí)，直接舍棄擬舍棄數(shù)字，否則按“四舍五入”進(jìn)行計(jì)算保留。 </p><p>　　5、編寫VBA函數(shù) </p><p>

12、　　打開模塊代碼編寫窗體。方法為：選擇“工具”菜單下的“宏”，再選擇visual basic編輯器，在visual basic編輯器界面中，選擇“插入”菜單中的“模塊”命令，即出現(xiàn)模塊代碼編輯器，隨后編輯器里輸入如下代碼： </p><p>　　Public Function gbxy（a As Double， b As Double） </p><p>　　x = Abs（Round（a

13、 / b， 13）） </p><p>　　Select Case x - Int（x） </p><p>　　Case Is = 0.5 </p><p>　　If Int（x） / 2 = Int（Int（x） / 2） Then </p><p>　　gbxy = Int（x） * b * a / Abs（a） </p>

14、<p><b>　　Else </b></p><p>　　gbxy = Round（a / b， 0） * b </p><p><b>　　End If </b></p><p>　　Case Else </p><p>　　gbxy = Round（a / b， 0） * b <

15、;/p><p>　　End Select </p><p>　　End function </p><p>　　輸入完畢后，選擇“文件”菜單中的“關(guān)閉并返回到 Microsoft excel”命令，代碼即被保存，函數(shù)編寫完成。 </p><p>　　這樣，可以和excel自帶的函數(shù)一樣使用國(guó)標(biāo)修約gbxy函數(shù)了，例如擬修約A1單元格，修約至5，可

16、在某單元格輸入=gbxy（A1，5），修約至0.2，則在單元格輸入=gbxy（A1，0.2），本函數(shù)適用于正負(fù)數(shù)的修約以及0.2和0.5單位修約的情況，完全能夠滿足GB/T 8170-2008數(shù)值修約的要求。 </p><p><b>　　6、結(jié)語 </b></p><p>　　經(jīng)過測(cè)試自編函數(shù)及自定義VBA函數(shù)滿足標(biāo)準(zhǔn)的要求，實(shí)現(xiàn)了數(shù)字的修約。自編函數(shù)雖然代碼比較長(zhǎng)

17、，看起來比較煩，用起來相對(duì)自定義VBA函數(shù)比較不方便，但是把修約至的數(shù)Y設(shè)置成某單元格如A2，對(duì)于擬修約數(shù)字較少，特別是Y值非1手工修約比較麻煩的情況下，輔助驗(yàn)證手工修約非常方便，有助于數(shù)據(jù)的校核驗(yàn)證。 </p><p><b>　　參考文獻(xiàn)： </b></p><p>　　GB/T 8170-2008 《數(shù)值修約規(guī)則與極限數(shù)值的表示和判定》[S].北京：中國(guó)標(biāo)準(zhǔn)出版