基于VBA程序的大数据分析在二次设备检修管理中的应用.docVIP

精品论文 参考文献 基于VBA程序的大数据分析在二次设备检修管理中的应用 （南方电网超高压输电公司柳州局 广西柳州 545006） 摘要：对基于VBA程序的大数据分析在二次设备检修管理中的应用进行介绍。对二次设备检修涉及的各个环节进行梳理，试图通过VBA程序，将二次设备检修的要素集成在几张表内进行综合利用，对管辖范围内设备常见的缺陷及相应的备品备件进行大数据分析，实现对二次检修工作的整体把控。针对平时检修管理过程中存在的问题，提出了相应的改进措施。 关键词：VBA；二次设备检修；大数据分析；改进措施 1 引言 随着电网规模不断变大，系统短路容量也不断加大，一次设备短路故障对系统和设备的冲击也越来越大。因此，继电保护装置的正确动作显得尤为重要。而我们对二次设备的检修、管理直接决定了保护100%正确动作率的目标能否实现。目前，二次设备的信息被割裂存放在多个系统中：设备的软件版本信息存放在总调OMS系统或者中调系统、设备缺陷及定检计划则在生产管理系统、备品备件管理则由专人负责、而保护屏柜定位图由运行人员负责绘制。这样，检修人员对于二次设备的信息是碎片化的，安排工作时效率低下且容易出现错漏。本文基于VBA程序，将屏柜定位图、保护型号及软件版本、历史缺陷情况、备品备件存放信息及三年滚动计划有机结合，形成一个信息分层、查询方便的系统，并对近年来的设备缺陷进行了分析，为今后的检修工作指出了维护重点。 2 VBA程序介绍及系统应用 Excel VBA是依附在Excel中的二次开发语言，全称为“Visual Basic For Application”。本文利用它实现了屏柜定位图、保护信息、备品备件之间的有机结合，避免使用者在海量信息中无所适从。 本系统共由两类表组成：设备台账表和备品备件清单表。其中，设备台账表内根据设备类型又分成五个工作表：屏柜定位表、安稳行波保信台账表、录波台账表、线路保护台账表、元件保护台账表。备品备件清单表出于备品摆放及查找方便的考虑，根据厂家的不同分成了南瑞备件表、南自备件表、四方备件表、深瑞备件表、其他备件表。如图1-3所示。 在工作表“屏柜定位表”中加载VBA程序之后，当该工作表在保护状态下工作时，通过双击屏柜定位表中的任意一个保护屏，系统将会自动 图1：某变电站二次设备台账表 图2：备品备件清单 图3：某变电站继电室屏柜定位图 选中并跳转到相应的设备台账信息中，使用者将可以方便地查看到设备的安装屏柜、保护型号、软件版本、投运日期、曾经发生的缺陷及处理方法、三年滚动计划。此外，通过双击该设备的“产品系列”单元格，系统会自动选中并跳转到相应的备品备件信息中。这样，我们就可以清楚地了解到该设备的全面信息：设备停电定检时间、设备曾经发生的缺陷、停电时的维护重点、装置容易发生问题的部件、目前已有的备品备件类型及数量、日常维护工作存在的短板。这些问题都能得到清晰的回答。 双击保护屏柜查找相应台账的VBA程序如下： Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim is_found_col As Boolean Dim is_found_cell As Boolean Dim col_name As String Dim targetvalue As String col_name = 安装屏柜 工作表被保护时继续 If ActiveSheet.ProtectContents = False Then Exit Sub End If 截取单元格以数字开头的内容 char_index = 0 Do While char_index lt; Len(ActiveCell.Value) char_index = char_index + 1 If IsNumeric(Mid(ActiveCell.Value, char_index, 1)) Then Exit Do End If Loop If char_index gt; 4 Or char_index = Len(ActiveCell.Value) Then char_index = 1 End If targetvalue =