基于Excel VBA 10kV配變三相負荷不平衡調整管理平臺的技術開發

韋雙雙

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

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

1?引言

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

2 程序開發的主要技術

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配變三相負荷不平衡度的概念

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

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

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

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

3.2.1 思路：電量平均分配法

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

3.2.2負荷調整步驟

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

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

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

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

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

4 軟件實現

4.1三相負荷調整管理平臺

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

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

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

Sub A1不平衡度（）

With ActiveSheet

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

Do While .[B2] > Q1 And A < 6000 ??'如果系數大于Q1繼續調整，并且調整總次數<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單元格中的數值，將繼續調整，并且調整總次數小于6000次。

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

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

五、結束語

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

參考文獻：

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

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

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