胡永紅，劉修理

（貴州電網(wǎng)有限責(zé)任公司遵義供電局，貴州 遵義563000）

筆者在供電所營(yíng)業(yè)班工作中，因每月重復(fù)制作多點(diǎn)用電客戶電量電費(fèi)清單中遇到的制作速度慢、錯(cuò)誤率高等問(wèn)題，導(dǎo)致客戶不能及時(shí)交費(fèi)，給供電所帶來(lái)電費(fèi)結(jié)零及客戶投訴的風(fēng)險(xiǎn)。傳統(tǒng)的清單制作方法是在系統(tǒng)中查出單戶的電量、電費(fèi)、抄表、預(yù)收等信息進(jìn)行手工復(fù)制粘貼，這種方法非常簡(jiǎn)單，適用于用戶數(shù)在30 戶以下的清單，對(duì)超出30 戶或100 行以上的清單，易出現(xiàn)漏戶、數(shù)據(jù)錯(cuò)誤、格式不統(tǒng)一等問(wèn)題。而VBA編程處理多表格數(shù)據(jù)，能夠滿足簡(jiǎn)單、快捷制作客戶用電清單的要求。

1 設(shè)計(jì)方案

清單中客戶要求主要數(shù)據(jù)有：用戶編號(hào)、用戶名稱(chēng)、起止表碼、倍率、電量、退補(bǔ)（差錯(cuò)）電量、單價(jià)、電費(fèi)以及客戶的備注等信息。這些數(shù)據(jù)分別來(lái)源于營(yíng)銷(xiāo)系統(tǒng)中導(dǎo)出的電價(jià)明細(xì)、抄表區(qū)段、用電客戶信息、運(yùn)行電能表臺(tái)賬信息、電量電費(fèi)明細(xì)信息、表碼信息、預(yù)收明細(xì)、用戶欠費(fèi)明細(xì)信息等表格中。

實(shí)現(xiàn)快速制作一個(gè)清單表格文件，首先應(yīng)確定所有用戶編號(hào)（清單列表）作為生成清單的基礎(chǔ)。再根據(jù)清單列表中的用戶編號(hào)在用電客戶信息表中提取用戶名，在表碼信息表中提取起止表碼及倍率，電量電費(fèi)明細(xì)信息表中提取電量及退補(bǔ)信息，運(yùn)行電能表臺(tái)賬信息表、電價(jià)明細(xì)、所用電價(jià)表中提取單價(jià)，用戶欠費(fèi)明細(xì)信息表中提取該戶當(dāng)月應(yīng)繳電費(fèi)，用戶備注表中提取相關(guān)備注數(shù)據(jù)。

2 方案實(shí)現(xiàn)

該程序主要處理數(shù)據(jù)批量導(dǎo)入并利用表格間數(shù)據(jù)關(guān)系形成電價(jià)與電費(fèi)年月，快速生成獨(dú)立的清單表格并分檔保存。并設(shè)置登錄界面確定制表人及供電單位。

為了實(shí)現(xiàn)多表格批量分別導(dǎo)入，使用With CreateObject("scripting.filesystemobject")語(yǔ)句引用FSO 對(duì)象，用For Each file In .getfolder(ThisWorkbook. Path & "data").Files 語(yǔ)句遍歷文件夾所有符合條件的文件進(jìn)行導(dǎo)入。

數(shù)據(jù)導(dǎo)入完成后，應(yīng)進(jìn)行電價(jià)賦值處理，使程序中使用的電價(jià)與系統(tǒng)電價(jià)一致，為了直觀地查看各戶電價(jià)，將電價(jià)值附加在運(yùn)行電能表明細(xì)信息表后，因電價(jià)在一段時(shí)間內(nèi)是相對(duì)固定的，所以，所用電價(jià)不必要每月進(jìn)行導(dǎo)入，只處理運(yùn)行電能表明細(xì)信息表中對(duì)應(yīng)的電價(jià)數(shù)據(jù)。

為便于修改，需要有一個(gè)固定格式的清單模板表格。表后可加入核對(duì)用戶預(yù)收情況、運(yùn)行狀態(tài)、手工平衡加減電量等數(shù)據(jù)，對(duì)于有階梯的用戶在集團(tuán)用戶中約占0.1%左右，本程序不進(jìn)行階梯數(shù)據(jù)處理，可以在模板后加注是階梯類(lèi)別進(jìn)行區(qū)分，單獨(dú)進(jìn)行手工處理（待進(jìn)行下一版本開(kāi)發(fā)時(shí)再完善相關(guān)功能）。在清單程序生成表格的過(guò)程中利用頁(yè)面設(shè)置中PrintArea屬性確定打印區(qū)域，使表后的備注信息不出現(xiàn)在打印輸出中。

為了實(shí)現(xiàn)用戶分組生成清單，應(yīng)制作一個(gè)用戶分組的清單列表，由于表格是每月變化的，所以本程序的調(diào)用過(guò)程實(shí)現(xiàn)中不采用按鈕進(jìn)行操作，設(shè)置為雙擊（Worksheet_BeforeDoubleClick 事件）相應(yīng)單元格來(lái)完成操作代碼過(guò)程。

為保證清單100%正確，在程序設(shè)計(jì)時(shí)也要考慮人工核對(duì)處理環(huán)節(jié)。為了不出現(xiàn)誤操作，在批量導(dǎo)入、注銷(xiāo)、生成清單、批量變更電價(jià)等關(guān)鍵位置設(shè)置確認(rèn)對(duì)話框，比如：是否采用批量導(dǎo)入（如：

If MsgBox("用電客戶信息、運(yùn)行電能表臺(tái)賬信息、電量電費(fèi)明細(xì)信息、表碼信息、預(yù)收明細(xì)查詢、抄表區(qū)段、用戶欠費(fèi)明細(xì)信息" & ThisWorkbook.Path & "下保存有相同格式表格", vbOKCancel,"程序員的提示！") = vbOK Then）、是否更新電價(jià)、是否直接生成清單表等，確保生成的清單滿足客戶的要求。

這一基于VBA的用電清單嵌入式應(yīng)用程序，雖然是一個(gè)簡(jiǎn)單制作清單的程序，但是，對(duì)于從未接觸過(guò)VBA的人來(lái)說(shuō)操作也有一定難度，所以在程序中應(yīng)設(shè)計(jì)一個(gè)簡(jiǎn)單的用戶操作指引，并在指引中實(shí)現(xiàn)導(dǎo)入、統(tǒng)計(jì)工作表及切換用戶（注銷(xiāo)）等功能。

程序中利用Move 事件控制各表的順序，使得操作起來(lái)能習(xí)慣，提高使用效率，具體實(shí)現(xiàn)該功能的代碼如下：

用Delete 事件對(duì)程序不需要的表格進(jìn)行清理刪除，保持程序每次打開(kāi)時(shí)表格數(shù)為指定的必要表格，避免出現(xiàn)多余的表格，造成程序出錯(cuò)或進(jìn)入死循環(huán)。實(shí)現(xiàn)其功能的代碼如下：

為防止未經(jīng)保存退出造成數(shù)據(jù)丟失，在Workbook_BeforeClose 模塊中加入存盤(pán)代碼進(jìn)行保存。代碼如下：

該代碼應(yīng)用到打開(kāi)和保存模塊中，使得每一次打開(kāi)程序或執(zhí)行保存操作時(shí)對(duì)程序中的表格進(jìn)行一次整理。

3 使用效果

使用清單程序制作清單后，收到了明顯的效果，2020年12月，供電所清單制作平均耗時(shí)47 min，相對(duì)傳統(tǒng)方法制作清單的供電所每月平均制作清單時(shí)長(zhǎng)2392 min基礎(chǔ)上效益提升了51倍。

掌握了VBA，可以發(fā)揮以下作用：規(guī)范用戶的操作，控制用戶的操作行為；操作界面人性化，方便用戶的操作；多個(gè)步驟的手工操作通過(guò)執(zhí)行VBA代碼可以迅速的實(shí)現(xiàn)；實(shí)現(xiàn)一些VB 無(wú)法實(shí)現(xiàn)的功能。用VBA 制做WPA 登錄系統(tǒng)。利用VBA 可以WPA內(nèi)輕松開(kāi)發(fā)出功能強(qiáng)大的自動(dòng)化程序。

在供電所推廣VBA的應(yīng)用，不僅是在制作清單程序上的應(yīng)用，這種應(yīng)用的開(kāi)展有助于供電所人員在工作中利用新方法、新的思維方式解決工作的難點(diǎn)問(wèn)題，也有助于推進(jìn)精益化項(xiàng)目的提煉和項(xiàng)目的實(shí)用性提升，真正達(dá)到開(kāi)展精益項(xiàng)目成果推廣的意義。

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

VBA應(yīng)用于WPS的各應(yīng)用程序中，極大地提升了WPS的應(yīng)用開(kāi)發(fā)能力，VBA成了許多高級(jí)用戶及開(kāi)發(fā)人員開(kāi)拓WPS中各應(yīng)用程序功能的最有力的工具，本文主要對(duì)基于VBA的“用電清單”嵌入式應(yīng)用程序的核心部份進(jìn)行了闡述，促進(jìn)VBA在供電所中推廣應(yīng)用，以提高員工的工作效益。