利用EXCEL宏统计盾构机电缆锁头

王大江 张宇

摘要：针对传统盾构机电缆锁头统计过程中效率低、易出错、更新慢的问题，提出了利用EXCEL宏统计电缆锁头的方法。对利用EXCEL宏实施该方法的四个步骤：线径判断、锁头确定、电控箱锁头统计、整机锁头统计做了详细叙述。实践表明，使用该方法统计盾构机电缆锁头，能够有效降低人员劳动强度，提高了工作效率和准确性。

关键词：盾构机 EXCEL宏 电缆锁头

中图分类号：U455 文献标识码：A 文章编号：1007-9416（2016）05-0000-00

盾构机是一种具有开挖土体、输送碴土、拼装衬砌、测量导向等功能的隧道掘进工程设备。盾构机上的电气元件分布各处，控制电控箱数量众多。电缆锁头，也叫电缆防水接头，主要安装于某些电气元件和电控箱上，用于锁紧电缆，并有密封防水的作用，如图1所示。每种型号的电缆锁头，有其固定的开孔尺寸，和可锁紧电缆的直径范围。

面对盾构机上众多的电气元件和电控箱，统计电缆锁头就会是一项非常复杂的工作，统计多了，库存浪费；统计少了，二次购买耗费时间。传统统计方法是根据电缆汇总表，依次列出所需锁头的规格和数量，然后再汇总。该种方法费时费力，容易出错，并且在图纸更改时，无法迅速同步。为解决上述问题，本文利用EXCEL宏编程的功能，提出了一种对盾构机电缆锁头进行统计的方法。

1统计步骤规划

盾构机电气系统设计完毕后，可生成一份电缆汇总表，如图2所示，表中标明了每根电缆的名称、从哪里来、到哪里去、电缆型号和长度等信息。

由电缆汇总表统计电缆锁头的步骤如图3所示。首先，根据电缆型号确定电缆线径；其次，判断该线径可使用锁头型号和对应电控箱开孔尺寸；然后，标记“从”和“到”列出现某电控箱的行，汇总标记行的锁头型号和数量，得到该电控箱所需电缆锁头；最后，“从”列为电控箱，若“到”列为电控箱或要使用锁头的元件，则该根电缆需2个锁头，否则需1个锁头，汇总得到整机所需电缆锁头。

2电缆线径判断

利用EXCEL宏的FIND语句判断电缆型号的宏代码如下：

For i = 3 To 256

findstring="H07RN-F 4G16"

Set re=Cells（i， 6）.Find（what：=findstring， lookat：=xlPart）

If Not re Is Nothing Then

Cells（i， 8） = "23" ' 若为H07RN-F 4G16电缆，则线径23写于对应行第8列

End If

…

Next i

3电缆锁头确定

利用If...Then...Else语句判断使用电缆锁头型号的宏代码如下：

For i = 3 To 256

If Cells（i， 8） > 18 And Cells（i， 8） <= 25 Then

Cells（i， 9） = "M36x1.5" ' 若落入M36x1.5电缆锁头范围，则将锁头型号、锁紧

范围、开孔尺寸分别写于对应行的第9、10、11列

Cells（i， 10） = "18-25"

Cells（i， 11） = "Φ37"

ElseIf

…

End If

Next i

4电控箱锁头和开孔统计

汇总某一电控箱的电缆锁头，并生成以该电控箱命名的新工作表。宏代码如下：

k = 3

For i = 3 To 256

find4="电源控制箱"

Set re4=Cells（i， 4）.Find（what：=find4， lookat：=xlPart）

Set re5=Cells（i， 5）.Find（what：=find4， lookat：=xlPart）

If Not re4 Is Nothing Or Not re5 Is Nothing Then

Rows（ActiveCell.Row）.Copy ' 若“从”、“到”列有任一为“电源控制箱”，

则复制该行到新建工作表中

Sheets.Add After：=Sheets（find4）

Sheets（find4）.Cells（k， 1）.Select

ActiveSheet.Paste

k = k + 1

End If

…

Next i

5整机锁头数量计算

统计整机M36x1.5型号电缆锁头数量的宏代码如下：

number_M36 = 0

For i = 3 To 256

findst="M36x1.5"

findtoX="箱"

findtoQ="电机"

Set rest=Cells（i， 9）.Find（what：=findst， lookat：=xlPart）

Set retoX=Cells（i， 5）.Find（what：=findtoX， lookat：=xlPart）

Set retoQ=Cells（i， 5）.Find（what：=findtoQ， lookat：=xlPart）

If Not rest Is Nothing Then

If Not retoX Is Nothing Or Not retoQ Is Nothing Then

number_M36 = number_M36 + 2 ' “到”列为电控箱或需要使用电缆锁头

的元件，则统计数量加2，否则加1

Else

number_M36 = number_M36 + 1

End If

End If

Next i

6结语

本文通过利用EXCEL宏编程，实现了盾构机电缆锁头的自动化统计，将人员从繁复的工作中解脱出来，使他们可集中精力从事更需智慧的设计工作，不但提高了工作效率，而且经由机器参与，准确性也有了保障。

参考文献

[1]李扬龙.地铁盾构施工电缆敷设及安全用电[J].机电工程技术.2009，38（6）：157-158.

[2]李申山，许鸣珠.盾构的供配电系统合理性及可靠性分析[J].建筑机械.2009，（3）：61-64.

[3]马兆鑫，翟坤.EXCEL自动化技术在通信电缆标签制作中的应用[J].光纤与电缆及其应用技术，2011，（6）：39-41.

[4]任定成.EXCEL宏编程在工程建设中的应用[J].江西能源，2007，（4）：50-52.

[5]方文英.EXCEL宏编程的应用[J].办公自动化杂志，2008，（7）：46-48.