基于VBA平臺的設(shè)備狀態(tài)評價(jià)程序的設(shè)計(jì)與開發(fā)

鄭再添　謝若鋒

摘要：根據(jù)廣東省公司的相關(guān)要求，需要將變電站、輸電線路的每個(gè)一次設(shè)備都建立一份Excel設(shè)備狀態(tài)評價(jià)表格，直接應(yīng)用輸電及變電一次設(shè)備評分表進(jìn)行評價(jià)。文章對電網(wǎng)公司設(shè)備狀態(tài)評價(jià)的工作特點(diǎn)進(jìn)行了分析，并介紹了在Excel平臺上利用VBA開發(fā)設(shè)備狀態(tài)評價(jià)程序的過程，實(shí)現(xiàn)了計(jì)算機(jī)對設(shè)備參數(shù)數(shù)據(jù)的自動化處理，提高了工作效率和準(zhǔn)確性。

關(guān)鍵詞：設(shè)備狀態(tài)評價(jià)程序；軟件設(shè)計(jì)；VBA平臺；Excel；宏；控件 文獻(xiàn)標(biāo)識碼：A

中圖分類號：TP311 文章編號：1009-2374（2015）08- DOI：10.13535/j.cnki.11-4406/n.2015.

為了提高為實(shí)現(xiàn)設(shè)備狀態(tài)評價(jià)、隱患排查一體化，廣東電網(wǎng)公司制定了《廣東電網(wǎng)公司變電一次及輸電設(shè)備狀態(tài)評價(jià)表》[1]，以統(tǒng)一的技術(shù)標(biāo)準(zhǔn)開展設(shè)備狀態(tài)評價(jià)和隱患排查工作。根據(jù)省公司的相關(guān)要求，需要將變電站、輸電線路的每個(gè)一次設(shè)備都建立一份Excel設(shè)備狀態(tài)評價(jià)表格，直接應(yīng)用輸電及變電一次設(shè)備評分表進(jìn)行評價(jià)。完成評價(jià)扣分表后，設(shè)備狀態(tài)評價(jià)定級等信息將自動顯示在評價(jià)報(bào)告表中。根據(jù)電網(wǎng)公司的要求，變電部分需要運(yùn)行人員將每個(gè)設(shè)備的名稱、電壓等級、生產(chǎn)廠家、出廠編號、出廠時(shí)間、投產(chǎn)時(shí)間、巡視策略等信息填到該設(shè)備的設(shè)備評價(jià)表，而且各種設(shè)備的狀態(tài)評價(jià)采用不同的評價(jià)表[2]。這些看似簡單的工作，到了各個(gè)集控中心就是一項(xiàng)工作量非常大的工作。比如，一個(gè)220kV的敞開式變電站，需要建立起對應(yīng)的400多個(gè)變電一次設(shè)備狀態(tài)評價(jià)Excel表。據(jù)保守估計(jì)，完成一個(gè)設(shè)備的信息從導(dǎo)出的設(shè)備參數(shù)表黏貼到該設(shè)備的狀態(tài)評價(jià)表再進(jìn)行填入該設(shè)備風(fēng)險(xiǎn)等級、設(shè)備巡視策略等信息需要2分鐘，一個(gè)敞開式的220kV變電站的設(shè)備狀態(tài)評價(jià)所需要的時(shí)間就是800分鐘（按400個(gè)設(shè)備計(jì)算），即13個(gè)小時(shí)左右。何況一個(gè)集控中心管理十幾個(gè)變電站，這將是個(gè)很大工作量的工作。

設(shè)備狀態(tài)平評價(jià)表都是采用Excel，因此，想到利用Excel結(jié)合VBA開發(fā)一個(gè)可以將每個(gè)設(shè)備的各種信息自動填到該設(shè)備狀態(tài)評價(jià)表，并根據(jù)該設(shè)備的風(fēng)險(xiǎn)等級選擇對應(yīng)的設(shè)備巡視策略，將重復(fù)、枯燥的復(fù)制、黏貼和另存為工作轉(zhuǎn)由程序自動完成，從而大大地減輕變電運(yùn)行人員繁瑣的重復(fù)勞動。

1 VBA簡介

VBA[3]是Visual Basic for Application的簡稱，是Visual Basic開發(fā)工具家族中的一員。VBA內(nèi)嵌于Microsoft Office，所有的安裝了Microsoft Office軟件的電腦都有VBA所需要的編輯器，不用另外安裝編譯器，易于程序的傳播和使用。另外，VBA與Microsoft Office無縫連接，能夠極大限度地?cái)U(kuò)展Microsoft Office的功能，特別是對于Excel。

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

2.1 程序分析

為了能使程序自動完成工作，必須將設(shè)備狀態(tài)評價(jià)表中需要的各種信息在設(shè)備參數(shù)導(dǎo)出表中先完善，如設(shè)備的雙編、狀態(tài)評價(jià)人、審核人和評價(jià)時(shí)間等信息。由于不同的設(shè)備采用的不同的設(shè)備狀態(tài)評價(jià)表，所以首先要判斷設(shè)備的類型，根據(jù)該設(shè)備的類型選擇對應(yīng)的設(shè)備狀態(tài)評價(jià)表模板；再根據(jù)設(shè)備參數(shù)導(dǎo)出表中設(shè)備的各種信息和設(shè)備狀態(tài)評價(jià)表模板中各種信息的位置，將該設(shè)備的各種信息由參數(shù)導(dǎo)出表復(fù)制至該設(shè)備對應(yīng)的設(shè)備狀態(tài)評價(jià)表模板中；填完信息之后，設(shè)備狀態(tài)評價(jià)表會根據(jù)設(shè)備的電網(wǎng)風(fēng)險(xiǎn)等級評價(jià)出該設(shè)備的設(shè)備風(fēng)險(xiǎn)等級，然后根據(jù)設(shè)備風(fēng)的險(xiǎn)等級選擇對應(yīng)的巡視和維護(hù)策略，并將該設(shè)備的評價(jià)結(jié)果匯總到該設(shè)備所在變電站的設(shè)備狀態(tài)評價(jià)匯總表中；最后將該設(shè)備狀態(tài)評價(jià)表另存為該設(shè)備對應(yīng)的名稱。程序整體流程如下圖1，各種設(shè)備評價(jià)子程序流程圖如圖2：

2.2 程序?qū)崿F(xiàn)

2.2.1 讀取設(shè)備參數(shù)導(dǎo)出表。把一個(gè)變電站的設(shè)備參數(shù)導(dǎo)出表放在一個(gè)文件夾中，程序讀出該變電站所有的設(shè)備參數(shù)導(dǎo)出表，并保存在Excel中。

處理完之后，程序會將設(shè)備參數(shù)表名稱填至第一個(gè)工作簿，如圖3所示。并將設(shè)備參數(shù)導(dǎo)出表的個(gè)數(shù)賦值給ShebeiZhonglei這個(gè)變量，如圖3的話，ShebeiZhonglei等于10。

2.2.2 將設(shè)備類型與設(shè)備狀態(tài)評價(jià)表一一對應(yīng)。將設(shè)備的種類和對應(yīng)的設(shè)備分類、狀態(tài)評價(jià)表模板文件名分別放在打開的第一Excel表的第二個(gè)工作簿的第一列、第二列和第三列。將設(shè)備參數(shù)導(dǎo)出表的名字與設(shè)備種類的名字進(jìn)行比較，選擇設(shè)備參數(shù)導(dǎo)出表對應(yīng)的設(shè)備分類、設(shè)備狀態(tài)評價(jià)表模板。比較完之后，將該設(shè)備類型的分類和狀態(tài)評價(jià)表模板填至打開的第一Excel表的第一個(gè)工作簿的第二列和第三列。

2.2.3 選擇各種設(shè)備類型對應(yīng)的子程序。以上將各種設(shè)備參數(shù)導(dǎo)出表的名稱和對應(yīng)的分類和狀態(tài)評價(jià)表模板填寫在打開的第一Excel表的第一個(gè)工作簿的第一列、第二列和第三列。再用各種設(shè)備參數(shù)導(dǎo)出表的名選擇對應(yīng)的子程序進(jìn)行處理。

2.2.4 設(shè)備狀態(tài)評價(jià)子程序。各種設(shè)備狀態(tài)評價(jià)子程序首先打開對應(yīng)的設(shè)備參數(shù)導(dǎo)出表（第三個(gè)Excel表），然后打開對應(yīng)用的設(shè)備狀態(tài)評價(jià)表模板（打開的第四個(gè)Excel表），再將設(shè)備參數(shù)導(dǎo)出表的參數(shù)填至備狀態(tài)評價(jià)表模板中，接著根據(jù)設(shè)備的風(fēng)險(xiǎn)等級選擇對應(yīng)的巡視策略，最后將該設(shè)備的評價(jià)結(jié)果匯總到匯總表并將評價(jià)表另存為該設(shè)備對應(yīng)的名稱和關(guān)閉該表格。再重復(fù)打開設(shè)備狀態(tài)評價(jià)表模板進(jìn)行該類設(shè)備的第二個(gè)設(shè)備評價(jià)，直至該類設(shè)備評價(jià)完畢。

2.3 程序運(yùn)行效果

本程序?qū)⒃O(shè)備狀態(tài)評價(jià)的工作由一個(gè)設(shè)備一個(gè)表評價(jià)轉(zhuǎn)向一種類型設(shè)備在一個(gè)Excel表中評價(jià)，避免了頻繁打開、關(guān)閉、另存為、復(fù)制和黏貼等工作，減少了大量的枯燥的工作。另外，經(jīng)過實(shí)踐的應(yīng)用，該程序改變了設(shè)備狀態(tài)的工作方式，大大地提高了工作效率。例如，原來一個(gè)敞開式的220kV變電站的設(shè)備狀態(tài)評價(jià)所需要的時(shí)間就是800分鐘（按400個(gè)設(shè)備計(jì)算），即13個(gè)小時(shí)左右，采用程序處理后，只需要6個(gè)小時(shí)，比原來少了7個(gè)小時(shí)，而且工作主要是完善設(shè)備參數(shù)導(dǎo)出表的參數(shù)，如填寫設(shè)備名稱、設(shè)備編號、評價(jià)人和評價(jià)時(shí)間等信息，而程序?qū)⒃O(shè)備參數(shù)導(dǎo)出表的各個(gè)設(shè)備參數(shù)生成設(shè)備狀態(tài)評價(jià)表所占的時(shí)間非常少，降低了工作量，提高了工作效率。

3 結(jié)語

在設(shè)備評價(jià)中應(yīng)用本程序，大大降低了工作量，提高了變電運(yùn)行專業(yè)設(shè)備狀態(tài)評價(jià)的工作效率，在實(shí)踐運(yùn)行中取得良好的工作效果。并且設(shè)備狀態(tài)評價(jià)表所有參數(shù)由設(shè)備參數(shù)導(dǎo)出表填入，便于后期的檢查和修改工作，程序自動完成參數(shù)填寫避免了人員勞累而造成的人為錯誤。

參考文獻(xiàn)

[1] 柯春俊，彭發(fā)東，劉夢娜.輸變電設(shè)備狀態(tài)評價(jià)與風(fēng)險(xiǎn)評估在廣東電網(wǎng)的應(yīng)用[J].廣東電力，2012，（9）.

[2] 王紅斌，歐陽旭東，等.廣東電網(wǎng)公司設(shè)備狀態(tài)評價(jià)與風(fēng)險(xiǎn)評估技術(shù)導(dǎo)則[S].2010.

[3] 劉增杰，王英英.Excel 2010 VBA入門與實(shí)戰(zhàn)[M].北京：清華大學(xué)出版社，2012.

基金項(xiàng)目：廣東電網(wǎng)有限責(zé)任公司東莞供電局職工創(chuàng)新項(xiàng)目（ZG-DG2014-003）。

作者簡介：鄭再添，男，廣東人，供職于廣東電網(wǎng)有限責(zé)任公司東莞供電局，碩士，研究方向：變電運(yùn)行。

（責(zé)任編輯：周 瓊）