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

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

ID:31361079

大小:105.50 KB

页数:4页

时间:2019-01-09

利用excel宏制作盾构机电缆标签_第1页
利用excel宏制作盾构机电缆标签_第2页
利用excel宏制作盾构机电缆标签_第3页
利用excel宏制作盾构机电缆标签_第4页
资源描述:

《利用excel宏制作盾构机电缆标签》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库

1、利用EXCEL宏制作盾构机电缆标签  【摘要】针对传统盾构机电缆标签制作过程中效率低、易出错、更新慢的问题,提出了利用EXCEL宏制作电缆标签的方法。对利用EXCEL宏实施该方法的三个步骤:参数输入、依次粘贴、格式调整做了详细叙述。实践表明,使用该方法制作盾构机电缆标签,能够有效降低人员劳动强度,提高了工作效率和准确性。  【关键词】盾构机EXCEL宏电缆标签  盾构机是一种具有开挖土体、输送碴土、拼装衬砌、测量导向等功能的隧道掘进工程设备。盾构机上的电气元件分布各处,相应的电缆也数量众多。电缆标签,也叫电缆标

2、识,用于标记每条电缆的用途和走向,如图1所示。盾构机电缆标签目前采用不干胶贴纸打印,粘贴于电缆之上,外层再缩一层透明带胶热缩套管的方法制作。  面对盾构机上众多的电缆,一台直径6米的盾构机大约有1000多根电缆,预制电缆标签就会是一项非常复杂的工作。传统制作方法是根据电缆汇总表,手工复制粘贴,将需要内容填到不干胶标签贴纸的对应位置。该种方法费时费力,容易出错,并且在图纸更改时,无法迅速同步。为解决上述问题,本文利用EXCEL宏编程的功能,提出了一种预制盾构机电缆标签的方法。  1制作步骤规划4  盾构机电气系统

3、设计完毕后,可生成一份电缆汇总表,表中标明了每根电缆的名称、从哪里来、到哪里去、电缆型号和长度等信息。电缆标签一般为三行,第一行为电缆名称,第二行为电缆从何处来,第三行为电缆到何处去。  由电缆汇总表制作电缆标签表的过程如图2所示。制作步骤:首先,让用户定义电缆标签每行要显示电缆汇总表中哪列的信息;其次,依次将电缆汇总表数据粘贴于电缆标签表中;最后,调整电缆标签表格式。  2参数输入描述  x表示电缆汇总表第一个数据所在行数,y1、y2、y3依次表示电缆汇总表要粘贴到电缆标签第1、2、3行的对应列数。则宏代码如

4、下:  aa="Sheet1"'电缆汇总表所在表名,根据需要修改!  bb="Sheet2"'电缆标签表所在表名,根据需要修改!  x=3'电缆汇总表第一个数据所在行数,根据需要修改!  y1=2'电缆汇总表第一个数据所在列数,根据需要修改!  y2=4'电缆汇总表第二个数据所在列数,根据需要修改!  y3=6'电缆汇总表第三个数据所在列数,根据需要修改!  n=10'电缆汇总表有多少行要处理数据,根据需要修改!  3依次粘贴算法  电缆汇总表数据与电缆标签表数据的对应关系如图3所示。  则汇总表第i个数据应对

5、应标签表的第1+Int((i-1)/4)*4行,第1+(i-1)*2-8*Int((i-1)/4)列,其中Int函数为取整功能函数。EXCEL宏代码如下:  Fori=1Ton4  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'电缆汇总表

6、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)).

7、Paste  Nexti  4格式调整策略4  根据不干胶标签贴纸格式设置EXCEL电缆标签表格式。注意EXCEL中行高的单位是磅,列宽的单位是1/10英寸。两列、两行标签之间插入分隔用窄列、窄行的EXCEL宏语句如下:  Range("B:B,D:D,F:F").Select  Range("F1").Activate  Selection.ColumnWidth=0.69'设置窄列列宽  Fori=1Ton  If(4+Int((i-1)/4*4))Mod4=0Then  Rows(4+Int((i-1)/

8、4*4)).Select  Selection.RowHeight=3'设置窄行行高  EndIf  Nexti  最后制作出的电缆标签如图4所示。  5结语  本文通过利用EXCEL宏编程,实现了盾构机电缆标签的自动化制作,将人员从繁复的工作中解脱出来,使他们可集中精力从事更需智慧的设计工作,不但提高了工作效率,而且经由机器参与,准确性也有了保障。  参考文献:  [1]李扬龙.地铁

当前文档最多预览五页,下载文档查看全文

此文档下载收益归作者所有

当前文档最多预览五页,下载文档查看全文
温馨提示:
1. 部分包含数学公式或PPT动画的文件,查看预览时可能会显示错乱或异常,文件下载后无此问题,请放心下载。
2. 本文档由用户上传,版权归属用户,天天文库负责整理代发布。如果您对本文档版权有争议请及时联系客服。
3. 下载前请仔细阅读文档内容,确认文档内容符合您的需求后进行下载,若出现内容与标题不符可向本站投诉处理。
4. 下载文档时可能由于网络波动等原因无法下载或下载错误,付费完成后未能成功下载的用户请联系客服处理。