张宇 王大江（秦皇岛天业通联重工股份有限公司，河北秦皇岛 066004）

利用EXCEL宏制作盾构机电缆标签

张宇 王大江
（秦皇岛天业通联重工股份有限公司，河北秦皇岛 066004）

针对传统盾构机电缆标签制作过程中效率低、易出错、更新慢的问题，提出了利用EXCEL宏制作电缆标签的方法。对利用EXCEL宏实施该方法的三个步骤：参数输入、依次粘贴、格式调整做了详细叙述。实践表明，使用该方法制作盾构机电缆标签，能够有效降低人员劳动强度，提高了工作效率和准确性。

盾构机 EXCEL宏 电缆标签

盾构机是一种具有开挖土体、输送碴土、拼装衬砌、测量导向等功能的隧道掘进工程设备。盾构机上的电气元件分布各处，相应的电缆也数量众多。电缆标签，也叫电缆标识，用于标记每条电缆的用途和走向，如图1所示。盾构机电缆标签目前采用不干胶贴纸打印，粘贴于电缆之上，外层再缩一层透明带胶热缩套管的方法制作。

面对盾构机上众多的电缆，一台直径6米的盾构机大约有1000多根电缆，预制电缆标签就会是一项非常复杂的工作。传统制作方法是根据电缆汇总表，手工复制粘贴，将需要内容填到不干胶标签贴纸的对应位置。该种方法费时费力，容易出错，并且在图纸更改时，无法迅速同步。为解决上述问题，本文利用EXCEL宏编程的功能，提出了一种预制盾构机电缆标签的方法。

1　制作步骤规划

盾构机电气系统设计完毕后，可生成一份电缆汇总表，表中标明了每根电缆的名称、从哪里来、到哪里去、电缆型号和长度等信息。电缆标签一般为三行，第一行为电缆名称，第二行为电缆从何处来，第三行为电缆到何处去。

由电缆汇总表制作电缆标签表的过程如图2所示。制作步骤：首先，让用户定义电缆标签每行要显示电缆汇总表中哪列的信息；其次，依次将电缆汇总表数据粘贴于电缆标签表中；最后，调整电缆标签表格式。

图1　电缆标签图片

2　参数输入描述

x表示电缆汇总表第一个数据所在行数，y1、y2、y3依次表示电缆汇总表要粘贴到电缆标签第1、2、3行的对应列数。则宏代码如下：

aa = "Sheet1"` 电缆汇总表所在表名，根据需要修改！

bb = "Sheet2"` 电缆标签表所在表名，根据需要修改！

x = 3 ` 电缆汇总表第一个数据所在行数，根据需要修改！

y1 = 2` 电缆汇总表第一个数据所在列数，根据需要修改！

y2 = 4` 电缆汇总表第二个数据所在列数，根据需要修改！

y3 = 6` 电缆汇总表第三个数据所在列数，根据需要修改！

n = 10` 电缆汇总表有多少行要处理数据，根据需要修改！

3　依次粘贴算法

电缆汇总表数据与电缆标签表数据的对应关系如图3所示。

则汇总表第i个数据应对应标签表的第1 + Int（（i - 1） / 4） * 4行，第1 + （i - 1） * 2 - 8 * Int（（i - 1） / 4）列，其中Int函数为取整功能函数。EXCEL宏代码如下：

For i = 1 To n

Sheets（aa）.Select ` 电缆汇总表y1列数据粘贴于电缆标签表对应标签第1行

Cells（（i - 1） + x， y1）. Copy

Sheets（bb）.Select

Cells（1 + Int（（i - 1） / 4） * 4， 1 + （i - 1） * 2 - 8 * Int（（i - 1） / 4））. Paste

图2　电缆汇总表转换电缆标签表过程示意图

Sheets（aa）.Select ` 电缆汇总表y2列数据粘贴于电缆标签表对应标签第2行

Cells（（i - 1） + x， y2）. Copy

Sheets（bb）.Select

Cells（2 + Int（i - 1） / 4） * 4， 1 + （i - 1） * 2 - 8 * Int（（i - 1） / 4））. Paste

Sheets（aa）.Select ` 电缆汇总表y3列数据粘贴于电缆标签表对应标签第3行

Cells（（i - 1） + x， y3）. Copy

Sheets（bb）.Select

Cells（3 + Int（i - 1） / 4） * 4， 1 + （i - 1） * 2 - 8 * Int（（i - 1） / 4））. Paste

Next i

图3　电缆汇总表与电缆标签表数据对应关系

电缆表第几个数据

（标签表第几行，标签表第几列）

图4　电缆标签图

4　格式调整策略

根据不干胶标签贴纸格式设置EXCEL电缆标签表格式。注意EXCEL中行高的单位是磅，列宽的单位是1/10英寸。两列、两行标签之间插入分隔用窄列、窄行的EXCEL宏语句如下：

Range（"B：B，D：D，F：F"）.Select

Range（"F1"）.Activate

Selection.ColumnWidth = 0.69 ` 设置窄列列宽

For i = 1 To n

If （4 + Int（（i - 1） / 4 * 4）） Mod 4 = 0 Then

Rows（4 + Int（（i - 1） / 4 * 4））.Select

Selection.RowHeight = 3 ` 设置窄行行高

End If

Next i

最后制作出的电缆标签如图4所示。

5　结语

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

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

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

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

张宇（1981—），女，吉林德惠人，硕士，工程师，现从事盾构机电气控制方面的设计研究工作。