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

利用EXCEL宏制作盾构机电缆标签 　　【摘 要】 针对传统盾构机电缆标签制作过程中效率低、易出错、更新慢的问题，提出了利用EXCEL宏制作电缆标签的方法。对利用EXCEL宏实施该方法的三个步骤：参数输入、依次粘贴、格式调整做了详细叙述。实践表明，使用该方法制作盾构机电缆标签，能够有效降低人员劳动强度，提高了工作效率和准确性。 　　【关键词】盾构机 EXCEL宏 电缆标签 　　盾构机是一种具有开挖土体、输送碴土、拼装衬砌、测量导向等功能的隧道掘进工程设备。盾构机上的电气元件分布各处，相应的电缆也数量众多。电缆标签，也叫电缆标识，用于标记每条电缆的用途和走向，如图1所示。盾构机电缆标签目前采用不干胶贴纸打印，粘贴于电缆之上，外层再缩一层透明带胶热缩套管的方法制作。 　　面对盾构机上众多的电缆，一台直径6米的盾构机大约有1000多根电缆，预制电缆标签就会是一项非常复杂的工作。传统制作方法是根据电缆汇总表，手工复制粘贴，将需要内容填到不干胶标签贴纸的对应位置。该种方法费时费力，容易出错，并且在图纸更改时，无法迅速同步。为解决上述问题，本文利用EXCEL宏编程的功能，提出了一种预制盾构机电缆标签的方法。 　　1 制作步骤规划 　　盾构机电气系统设计完毕后，可生成一份电缆汇总表，表中标明了每根电缆的名称、从哪里来、到哪里去、电缆型号和长度等信息。电缆标签一般为三行，第一行为电缆名称，第二行为电缆从何处来，第三行为电缆到何处去。 　　由电缆汇总表制作电缆标签表的过程如图2所示。制作步骤：首先，让用户定义电缆标签每行要显示电缆汇总表中哪列的信息；其次，依次将电缆汇总表数据粘贴于电缆标签表中；最后，调整电缆标签表格式。 　　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 　　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 　　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