利用EXCEL宏制作盾構機電纜標簽

張宇 王大江（秦皇島天業通聯重工股份有限公司，河北秦皇島 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—），女，吉林德惠人，碩士，工程師，現從事盾構機電氣控制方面的設計研究工作。