姜岳健，陳 實(shí)

（巴陵石化培訓(xùn)中心，岳陽(yáng) 414000）

為加強(qiáng)員工隊(duì)伍素質(zhì)建設(shè)，提升崗位履職能力，巴陵石化2019年通過(guò)在中石化網(wǎng)絡(luò)學(xué)院平臺(tái)建立的在線崗位練兵管理系統(tǒng)，采用“編、練、考”即“分崗位分專業(yè)按月編制題庫(kù)、模擬練習(xí)、考試”相結(jié)合的新模式開(kāi)展網(wǎng)絡(luò)崗位練兵工作。培訓(xùn)管理人員每月中下旬要分別進(jìn)行月中各單位分專業(yè)崗位練兵情況通報(bào)及月底最終崗位練兵考試情況匯總、數(shù)據(jù)統(tǒng)計(jì)分析并計(jì)算各單位各專業(yè)線考核分并在公司內(nèi)網(wǎng)發(fā)布。在EXCEL中進(jìn)行數(shù)據(jù)統(tǒng)計(jì)分析工作量大，需運(yùn)用多種復(fù)雜統(tǒng)計(jì)函數(shù)、由于人為因素的影響還會(huì)存在一定的錯(cuò)誤率，后期再人工校對(duì)數(shù)據(jù)又要耗費(fèi)大量的時(shí)間，從而增加了崗位練兵數(shù)據(jù)統(tǒng)計(jì)工作的難度。

VBA（Visual Basic for Application）是微軟在Off ice中內(nèi)置的宏編程語(yǔ)言。提供了面向?qū)ο蟮某绦蛟O(shè)計(jì)方法，利用EXCEL軟件預(yù)留的開(kāi)發(fā)接口，運(yùn)用VBA強(qiáng)大功能可使EXCEL二次工具開(kāi)發(fā)方便快捷，例如利用圖形用戶界面控件可開(kāi)發(fā)出各種應(yīng)用程序工具，批量處理大量數(shù)據(jù)，減輕手工處理的煩瑣勞動(dòng)。

1 統(tǒng)計(jì)工具設(shè)計(jì)分析

根據(jù)統(tǒng)計(jì)需求，在EXCEL中建立四個(gè)數(shù)據(jù)工作表：一是“崗位練兵專業(yè)線申報(bào)登記表”（數(shù)據(jù)記錄字段包括所屬單位、人員編號(hào)、姓名、所屬部門、申報(bào)專業(yè)線模塊等），此表按崗位練兵月計(jì)劃已設(shè)置數(shù)據(jù)。二是“考試信息表”（字段包括人員編號(hào)、考試次數(shù)、通過(guò)次數(shù)、最高得分、通過(guò)狀態(tài)等），此表數(shù)據(jù)由網(wǎng)絡(luò)崗位練兵管理系統(tǒng)導(dǎo)出，但只包括參加了考試的人員數(shù)據(jù)。三是“考試情況匯總表”（字段包括序號(hào)、所屬單位、員工編號(hào)、學(xué)員姓名、最高得分、通過(guò)狀態(tài)、考試次數(shù)、通過(guò)次數(shù)、綜合得分），統(tǒng)計(jì)界面通過(guò)VBA設(shè)計(jì)按鈕控件并開(kāi)發(fā)程序代碼自動(dòng)實(shí)現(xiàn)從前二個(gè)表中批量提取相應(yīng)單元格數(shù)據(jù)并計(jì)算綜合得分，此外還將未參考人員數(shù)據(jù)加以補(bǔ)充完整。四是“崗位練兵統(tǒng)計(jì)表”（字段包括單位、專業(yè)線、應(yīng)參加人次、未參加人次、未通過(guò)人次、建議考核分），統(tǒng)計(jì)界面也通過(guò)VBA設(shè)計(jì)按鈕控件程序）自動(dòng)實(shí)現(xiàn)相應(yīng)數(shù)據(jù)統(tǒng)計(jì)功能。

2 考試情況匯總程序（模塊1）開(kāi)發(fā)

模塊1通過(guò)“員工編號(hào)”將專業(yè)線申報(bào)登記表及相應(yīng)考試信息表中的數(shù)據(jù)建立關(guān)聯(lián)，通過(guò)雙重循環(huán)語(yǔ)句查找“考試信息表”中員工編號(hào)，如果能找到，則將兩工作表中相應(yīng)數(shù)據(jù)自動(dòng)批量提取到“考試情況匯總表”中去。如果沒(méi)找到，則提取數(shù)據(jù)中通過(guò)狀態(tài)數(shù)據(jù)設(shè)為還未考試；考試次數(shù)和通過(guò)次數(shù)均為0。這也是此模塊程序設(shè)計(jì)的關(guān)鍵。源代碼主要如下：

Sub 模塊1（）

Dim x，xx，i，xh As Integer：Dim y，yy，yyy As String：x = 6：xx = 3：xh = 1

Do While Sheets（"sheet1"）.Cells（x，3） ＜＞ "" ’Cells（x，

3）表示人員編號(hào)數(shù)據(jù)

y = Sheets（"sheet1"）.Cells（x，2） ’Cells（x，2）表示單位數(shù)據(jù)

yy = Sheets（"sheet1"）.Cells（x，3）

yyy = Sheets（"sheet1"）.Cells（x，4）’Cells（x，4）表 示姓名數(shù)據(jù)

i = 3

Do While Sheets（"sheet2"）.Cells（i，3） ＜＞ ""

If yy = Sheets（"sheet2"）.Cells（i，3） Then

Cells（xx，1） = xh：Cells（xx，2） = y：Cells（xx，3） = yy：Cells（xx，4） = yyy

Cells（xx，5） = Sheets（"sheet2"）.Cells（i，5） ’提取最高得分?jǐn)?shù)據(jù)

……略

Cells（xx，9） = 80 + （Cells（xx，8） - 1） * 1 ’計(jì)算綜合得分?jǐn)?shù)據(jù)

xx = xx + 1：xh = xh + 1

Exit Do

Else

i = i + 1

If Sheets（"sheet2"）.Cells（i，3） = "" Then

Cells（xx，5） = 0 Cells（xx，6） = "還未考試"：Cells（xx，7）

= 0：Cells（xx，8） = 0

Exit Do End If

End If

Loop

x = x + 1

Loop

End Sub

3 崗位練兵統(tǒng)計(jì)程序（模塊2）開(kāi)發(fā)

模塊2通過(guò)關(guān)鍵詞“單位”將考試情況匯總表與崗位練兵統(tǒng)計(jì)表建立關(guān)聯(lián)，分別統(tǒng)計(jì)崗位練兵“應(yīng)參加人次”、“未參加人次”、“未通過(guò)人次”等。源代碼如下：

Sub模塊2（）

Dim x，xx，y，yy，yyy，i As Integer：x = 5

Do While Cells（x，2） ＜＞ "合計(jì)"

xx = 3：y = 0：yy = 0：yyy = 0

Do While Sheets（"sheet3"）.Cells（xx，3） ＜＞ ""

If Cells（x，2） = Sheets（"sheet3"）.Cells（xx，2） Then

y = y + 1 ‘統(tǒng)計(jì)應(yīng)參加人次

If Sheets（"sheet3"）.Cells（xx，5） = 0 Then

yy = yy + 1 ‘統(tǒng)計(jì)未參加人次

End If

If Sheets（"sheet3"）.Cells（xx，5） ＜ 90 and Sheets

（"sheet3"）.Cells（xx，5）＞0 Then

yyy = yyy + 1 ‘統(tǒng)計(jì)未通過(guò)人次

End If

End If

xx = xx + 1

Loop

Cells（x，4） = y：Cells（x，5） = yy：Cells（x，6） = yyy：x = x + 1

Loop

End Sub

4 崗位練兵統(tǒng)計(jì)工具測(cè)試

利用VBA的圖形控件分別在考試情況匯總表與崗位練兵統(tǒng)計(jì)表設(shè)置啟動(dòng)按鈕并插入相應(yīng)源代碼，如圖1所示“崗位練兵人員考試情況匯總”即為啟動(dòng)按鈕控件，單擊該按鈕即一鍵完成特定的數(shù)據(jù)匯總處理。崗位練兵統(tǒng)計(jì)表也同如此，不再贅述。

圖1 考試情況匯總截圖

5 結(jié)束語(yǔ)

基于EXCEL VBA二次開(kāi)發(fā)，崗位練兵統(tǒng)計(jì)相關(guān)工具已經(jīng)開(kāi)發(fā)完成并獲得了實(shí)際應(yīng)用，取得了非常好的效果，大大提高了工作效率，節(jié)省了人力和時(shí)間。VBA編程功能非常好地解決了批量數(shù)據(jù)提取的問(wèn)題，為此類問(wèn)題的解決提供了思路和方法，為今后其他各類信息系統(tǒng)的二次開(kāi)發(fā)提供了經(jīng)驗(yàn)。