韋雙雙

：Office軟件使用的普遍性及其組件之間數據良好的交互性和共享性，Excel在數據處理與相應報告的生成等方面更具優(yōu)勢。該文以10kV配變三相負荷不平衡調整管理平臺為實例，簡要論述了Excel VBA 對10kV配變三相負荷不平衡調整的設計思路、技術要點和方法。

：VBA、三相負荷不平衡調整、損耗

1?引言

隨著人民群眾的生活質量和社會經濟水平的不斷提高，客戶對供電可靠性及負荷量也越來越高，對客戶三相負荷平衡要求越來越準確。自然災害、外力破壞、設備等原因引起電網配變三相負荷不平衡現象時常發(fā)生。由于用戶數量逐年遞增，用戶負荷量多樣性，光靠人工調整很難達到理想的不平衡度。筆者認為Excel VBA編程可以進行各種數據的處理、統(tǒng)計分析和輔助決策操作，廣泛地應用于管理、統(tǒng)計、金融等眾多領域。我們通過“基于Excel VBA的三相負荷不平衡調整管理平臺”為重要調節(jié)手段，將三相不平衡狀態(tài)調整至理想的配變供電狀態(tài)。

2 程序開發(fā)的主要技術

2.1??VBA基本語句

宏程序語句用來運行后可以完成一個功能。例如：

Sub test（）?'開始語句

Range（“A1”）.ClearContents?'清除活動工作表上單元格A1中的內容

End Sub?'結束語句

2.2??VBA對象

VBA中的對象其實就是我們操作的具有方法、屬性的excel中支持的個體，Excel中的幾個常用對象表示方法：

工作簿：

Workbook.Fullname屬性：返回對象的名稱（以字符串表示），包括其磁盤路徑

Workbooks. Sheets屬性：返回一個Sheets集合，它代表指定工作簿中所有工作表;

工作表：Sheets（"工作表名稱"） 表示某個工作表;

Sheets（n） 表示按排列順序，第n個工作表;

ActiveSheet?表示活動工作表，光標所在工作表;

2.3??VBA方法

是作用于VBA對象上的動作，表示用某個方法作用于VBA的對象上，可以用下面的格式：對象.方法參數值名稱：=參數值

Workbooks. Add方法：新建工作簿，新建的工作簿將成為活動工作簿;

Workbooks. Open方法：打開一個工作簿;

3 軟件設計目標

3.1 10kV配變三相負荷不平衡度的概念

《架空配電線路及設備運行規(guī)程》規(guī)定：變壓器的三相負荷應力求平衡，不平衡度不應大于15%，并規(guī)定變壓器中性點電流不能超過其額定電流的25%，不符合上述的規(guī)定時，應將負荷進行調整，不平衡度的計算式為：

不平衡度=（最大電流一最小電流）/最大電流×100% ????????????????????????（3-1）

注意《架空配電線路及設備運行規(guī)程》規(guī)定是變壓器不平衡度低于15%是配變低壓出線，不是某一支線不平衡度。在三相四相低壓網絡，當三相負荷完全平衡時，零線電流為零，是最理想的狀態(tài)。

3.2 調整10kV配變三相負荷不平衡方法

3.2.1 思路：電量平均分配法

根據2016年6月份公司下發(fā)《三相不平衡調整方法工作指引》開展，依據計量自動化系統(tǒng)取數該臺區(qū)所有用戶的電量，電量均衡的分配到A、B、C相上。因我所臺區(qū)未實現集抄，所以臺區(qū)各用戶的電量是三公開電量。

3.2.2負荷調整步驟

a、導出三公開明細。核查前、后兩個月總電量波動情況，電量波動不大，任取某月的電量。

b、現場核查三公開用戶明細的線變戶關系和分布相別，并繪制用戶負荷分布圖。

c、根據現場核實的三相電量，計算平均電量和各相所需分配的電量。

d、根據需分配的電量，在用戶負荷分布圖對調整的用戶進行定相。

我們以老南村臺區(qū)A相用戶70戶、B用戶48戶、C相用戶37以及用電量，數量懸殊，電量差距大。在實測中得出老南村三相負荷不平衡率遠大于15%。根據原始數據，利用Excel VBA各種數據的處理、統(tǒng)計分析和輔助決策操作，自動計算平均電量和各相所需分配的電量，并將調整用戶相別達到三相負荷不平衡低于15%，滿足供電穩(wěn)定性要求。

4 軟件實現

4.1三相負荷調整管理平臺

本軟件需要對Microsoft Office Excel進行宏設置，并啟用宏。

1）各臺區(qū)三相負荷不平衡調整界面功能實現及代碼分析如下：

不平衡度自動調整功能，“不平衡度調整”按鈕事件代碼：

Sub A1不平衡度（）

With ActiveSheet

Q1 = .[B6]??'最大系數

Do While .[B2] > Q1 And A < 6000 ??'如果系數大于Q1繼續(xù)調整，并且調整總次數<6000次

調整最大負荷 （Int（A / 1000））???'每一級調整1000次，否則換下一級

A = A + 1 ??'調整次數+1

Loop

T1 = .UsedRange.Rows.Count ???'使用行數

.[A12].Resize（T1，6）.Sort Key1：=.[D12]， Order1：=xlDescending， Key2：=.[C12]， Order2：=xlDescending ?'調整完排序

.[G12].Resize（T1，6）.Sort Key1：=.[J12]， Order1：=xlDescending， Key2：=.[I12]， Order2：=xlDescending '調整完排序

.[M12].Resize（T1，6）.Sort Key1：=.[P12]， Order1：=xlDescending， Key2：=.[O12]， Order2：=xlDescending '調整完排序

End With

ActiveWindow.ScrollRow = 1 ?'滑動到第一行

MsgBox "調整完畢！"

End Sub

通過改變B6單元格中的數值，設定最大系數Q1。如果B2單元格“三相不平衡度”的系數大于B6單元格中的數值，將繼續(xù)調整，并且調整總次數小于6000次。

為了盡可能減少用戶相別的調整次數，從而減輕現場電力工作人員的工作量，我們在程序代碼中先對每相用戶由大到小進行排序，設定優(yōu)先級別，優(yōu)先調整相對應相最大負荷的用戶，直至滿足不平衡度達到要求。

經過測試，A、B、C任意一相中添加用戶，無論用戶數量和電量多少，本軟件都能將不平衡率調整至小于5%，大大滿足了《架空配電線路及設備運行規(guī)程》中的規(guī)定，達到了設計目標。

五、結束語

Excel VBA 編程通過對Excel 自身功能的集成和擴展可以較為快捷高效地處理大配網臺區(qū)多用戶的三相負荷不平衡率問題。Excel具有使用方便、結構簡單、界面友好、維護方便的特點。日前，在南方電網新一輪農改項目嚴格要求三相負荷不平衡率的新形勢下，本軟件作為一款輔助工具將為新農網的改造帶來實質性的幫助。

參考文獻：

[1]張軍翔 楊紅會.Excel VBA范例與應用技巧查詢寶典 [M].北京：希望電子出版社，2013.10.

[2]黃朝陽.Excel2013VBA編程與實踐 [M].北京：電子工業(yè)出版社，2015.08.

[3]何非 葉萃娟.電子Excel VBA高效辦公從精通到入門 [M].北京：中國青年出版社，2006.12.