陸建生

（無(wú)為縣農(nóng)技推廣中心，安徽蕪湖238300）

EXCEL工作表在種子凈度分析中的應(yīng)用

陸建生

（無(wú)為縣農(nóng)技推廣中心，安徽蕪湖238300）

種子凈度分析涉及大量的數(shù)據(jù)處理工作，而EXCEL工作表有強(qiáng)大的數(shù)據(jù)處理功能，通過(guò)EXCELVBA編程可實(shí)現(xiàn)對(duì)數(shù)據(jù)的自動(dòng)化處理，具有快速、準(zhǔn)確、直觀的優(yōu)點(diǎn)，可應(yīng)用于種子檢驗(yàn)的教學(xué)、科研和種子管理。

種子凈度分析；數(shù)據(jù)處理；EXCELVBA編程

種子凈度分析是種子檢驗(yàn)的重要環(huán)節(jié)，分析過(guò)程中涉及多次樣品稱重、容許誤差判斷、結(jié)果校正與修約以及結(jié)果報(bào)告等方面，數(shù)據(jù)處理量大。如果采用手工處理，會(huì)占用大量時(shí)間，而且易錯(cuò)，特別是在樣品數(shù)量較多時(shí)。而EXCEL工作表在數(shù)據(jù)分析處理方面有獨(dú)到的優(yōu)勢(shì)，EXCEL宏是一種可以完成重復(fù)工作的Sub程序。筆者利用EXCEL宏，通過(guò)EXCELVBA編程來(lái)對(duì)檢驗(yàn)數(shù)據(jù)進(jìn)行處理，具有快速、準(zhǔn)確、直觀的優(yōu)點(diǎn)，為種子檢驗(yàn)工作帶來(lái)極大的便利。

1 電子表格設(shè)計(jì)

根據(jù)種子凈度分析特點(diǎn)，設(shè)計(jì)電子表格，如圖1所示。

圖1 種子凈度分析結(jié)果報(bào)告

2 VBA程序設(shè)計(jì)

打開EXCEL2007工作表，先點(diǎn)擊“office”按鈕，再點(diǎn)擊“excel選項(xiàng)”按鈕，在左邊“常用命令”下拉列表中選擇“開發(fā)工具選項(xiàng)卡”，選擇“宏安全性”將其添加到快速訪問(wèn)工具欄中?；氐紼XCEL2007工作表界面，點(diǎn)擊“開發(fā)工具”菜單，會(huì)發(fā)現(xiàn)多了個(gè)“宏安全性”按鈕，點(diǎn)開，點(diǎn)擊“宏設(shè)置”，點(diǎn)擊“啟用所有宏”，確定后完成啟用宏設(shè)置。

點(diǎn)擊“Visual basic”按鈕，打開程序編輯窗口，在工程資源管理器中雙擊對(duì)象“Sheet1”,在右邊編輯區(qū)錄入以下代碼：

3 程序運(yùn)行與解析

將試驗(yàn)數(shù)據(jù)填入凈度分析結(jié)果報(bào)告各對(duì)應(yīng)的單元格內(nèi)，點(diǎn)擊“Visual basic”按鈕，打開程序編輯窗口，在工程資源管理器中雙擊對(duì)象“Sheet1”，在窗口右邊代碼編輯窗口便出現(xiàn)剛才錄入的代碼，在代碼中插入光標(biāo)，在工具欄點(diǎn)擊“運(yùn)行”按鈕，程序開始運(yùn)行。首先判斷是否有重型混雜物，如果有，則計(jì)算送驗(yàn)樣品中重型混雜物、重型無(wú)生命雜質(zhì)、重型其他作物種子的百分率，保留2位有效數(shù)字；如果沒(méi)有，則計(jì)算兩個(gè)半式樣的分析重、重量增失率，并判斷是否超差，如果超差，則彈出提示窗口：“試驗(yàn)超差，請(qǐng)重新試驗(yàn)”，程序結(jié)束運(yùn)行；如沒(méi)有超差，則計(jì)算兩個(gè)半式樣的凈種子、其他作物種子及雜質(zhì)百分率，并保留2位有效數(shù)字，接著計(jì)算兩個(gè)半式樣之間各成分百分率差值，程序運(yùn)行到140語(yǔ)句，會(huì)彈出輸入框，要求輸入各成分容許誤差，查表輸入容許誤差后，在第150語(yǔ)句，判斷3種成分百分率差值是否超差，如果沒(méi)有，判斷為“正確”，程序繼續(xù)運(yùn)行；如果超差，則判斷為“錯(cuò)誤”，并彈出提示窗口：“試驗(yàn)超差，請(qǐng)重新試驗(yàn)”，點(diǎn)擊“確定”按鈕后，程序結(jié)束運(yùn)行。165語(yǔ)句為在不超差情況下計(jì)算3種成分的平均重量百分率，170語(yǔ)句判斷是否有重型混雜物。如果沒(méi)有，在175語(yǔ)句對(duì)數(shù)據(jù)修約后再轉(zhuǎn)入200語(yǔ)句做出結(jié)果報(bào)告；如果有，則在190語(yǔ)句對(duì)3種成分進(jìn)行結(jié)果校正，并保留1位有效數(shù)字，200語(yǔ)句是將3種成分之和修約為100%，210語(yǔ)句為結(jié)果報(bào)告，到此程序運(yùn)行結(jié)束，最后結(jié)果如圖1所示。如需分析下一份樣品，只要按左鍵選中表格中的數(shù)字區(qū)域，再按右鍵點(diǎn)擊“清除內(nèi)容”，然后錄入新的數(shù)據(jù)進(jìn)行分析。分析完成后，可很方便地對(duì)報(bào)告進(jìn)行保存、打印和郵件發(fā)送。

經(jīng)多次試驗(yàn)，使用該方法處理種子凈度試驗(yàn)數(shù)據(jù)，均能快速、準(zhǔn)確地顯示結(jié)果，與使用Excel函數(shù)相比，操作更簡(jiǎn)單、表現(xiàn)更直觀，而且ExcelVBA語(yǔ)言簡(jiǎn)單易學(xué)、應(yīng)用廣泛。通過(guò)研究筆者發(fā)現(xiàn)，不僅種子凈度分析可以使用ExcelVBA程序進(jìn)行數(shù)據(jù)自動(dòng)化處理，也適用于種子發(fā)芽試驗(yàn)、種子水分測(cè)定及種子重量測(cè)定，可大大減輕檢驗(yàn)人員工作量，提升種子檢驗(yàn)工作自動(dòng)化和信息化水平。

1005-2690（2017）08-0111-03

S339.3+1

B

2017-06-12）

陸建生（1971-），男，農(nóng)藝師，長(zhǎng)期從事種子質(zhì)量檢驗(yàn)工作。