張宇 王大江（秦皇島天業(yè)通聯(lián)重工股份有限公司，河北秦皇島 066004）

利用EXCEL宏制作盾構(gòu)機(jī)電纜標(biāo)簽

張宇 王大江
（秦皇島天業(yè)通聯(lián)重工股份有限公司，河北秦皇島 066004）

針對傳統(tǒng)盾構(gòu)機(jī)電纜標(biāo)簽制作過程中效率低、易出錯、更新慢的問題，提出了利用EXCEL宏制作電纜標(biāo)簽的方法。對利用EXCEL宏實施該方法的三個步驟：參數(shù)輸入、依次粘貼、格式調(diào)整做了詳細(xì)敘述。實踐表明，使用該方法制作盾構(gòu)機(jī)電纜標(biāo)簽，能夠有效降低人員勞動強(qiáng)度，提高了工作效率和準(zhǔn)確性。

盾構(gòu)機(jī) EXCEL宏 電纜標(biāo)簽

盾構(gòu)機(jī)是一種具有開挖土體、輸送碴土、拼裝襯砌、測量導(dǎo)向等功能的隧道掘進(jìn)工程設(shè)備。盾構(gòu)機(jī)上的電氣元件分布各處，相應(yīng)的電纜也數(shù)量眾多。電纜標(biāo)簽，也叫電纜標(biāo)識，用于標(biāo)記每條電纜的用途和走向，如圖1所示。盾構(gòu)機(jī)電纜標(biāo)簽?zāi)壳安捎貌桓赡z貼紙打印，粘貼于電纜之上，外層再縮一層透明帶膠熱縮套管的方法制作。

面對盾構(gòu)機(jī)上眾多的電纜，一臺直徑6米的盾構(gòu)機(jī)大約有1000多根電纜，預(yù)制電纜標(biāo)簽就會是一項非常復(fù)雜的工作。傳統(tǒng)制作方法是根據(jù)電纜匯總表，手工復(fù)制粘貼，將需要內(nèi)容填到不干膠標(biāo)簽貼紙的對應(yīng)位置。該種方法費時費力，容易出錯，并且在圖紙更改時，無法迅速同步。為解決上述問題，本文利用EXCEL宏編程的功能，提出了一種預(yù)制盾構(gòu)機(jī)電纜標(biāo)簽的方法。

1　制作步驟規(guī)劃

盾構(gòu)機(jī)電氣系統(tǒng)設(shè)計完畢后，可生成一份電纜匯總表，表中標(biāo)明了每根電纜的名稱、從哪里來、到哪里去、電纜型號和長度等信息。電纜標(biāo)簽一般為三行，第一行為電纜名稱，第二行為電纜從何處來，第三行為電纜到何處去。

由電纜匯總表制作電纜標(biāo)簽表的過程如圖2所示。制作步驟：首先，讓用戶定義電纜標(biāo)簽每行要顯示電纜匯總表中哪列的信息；其次，依次將電纜匯總表數(shù)據(jù)粘貼于電纜標(biāo)簽表中；最后，調(diào)整電纜標(biāo)簽表格式。

圖1　電纜標(biāo)簽圖片

2　參數(shù)輸入描述

x表示電纜匯總表第一個數(shù)據(jù)所在行數(shù)，y1、y2、y3依次表示電纜匯總表要粘貼到電纜標(biāo)簽第1、2、3行的對應(yīng)列數(shù)。則宏代碼如下：

aa = "Sheet1"` 電纜匯總表所在表名，根據(jù)需要修改！

bb = "Sheet2"` 電纜標(biāo)簽表所在表名，根據(jù)需要修改！

x = 3 ` 電纜匯總表第一個數(shù)據(jù)所在行數(shù)，根據(jù)需要修改！

y1 = 2` 電纜匯總表第一個數(shù)據(jù)所在列數(shù)，根據(jù)需要修改！

y2 = 4` 電纜匯總表第二個數(shù)據(jù)所在列數(shù)，根據(jù)需要修改！

y3 = 6` 電纜匯總表第三個數(shù)據(jù)所在列數(shù)，根據(jù)需要修改！

n = 10` 電纜匯總表有多少行要處理數(shù)據(jù)，根據(jù)需要修改！

3　依次粘貼算法

電纜匯總表數(shù)據(jù)與電纜標(biāo)簽表數(shù)據(jù)的對應(yīng)關(guān)系如圖3所示。

則匯總表第i個數(shù)據(jù)應(yīng)對應(yīng)標(biāo)簽表的第1 + Int（（i - 1） / 4） * 4行，第1 + （i - 1） * 2 - 8 * Int（（i - 1） / 4）列，其中Int函數(shù)為取整功能函數(shù)。EXCEL宏代碼如下：

For i = 1 To n

Sheets（aa）.Select ` 電纜匯總表y1列數(shù)據(jù)粘貼于電纜標(biāo)簽表對應(yīng)標(biāo)簽第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　電纜匯總表轉(zhuǎn)換電纜標(biāo)簽表過程示意圖

Sheets（aa）.Select ` 電纜匯總表y2列數(shù)據(jù)粘貼于電纜標(biāo)簽表對應(yīng)標(biāo)簽第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列數(shù)據(jù)粘貼于電纜標(biāo)簽表對應(yīng)標(biāo)簽第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　電纜匯總表與電纜標(biāo)簽表數(shù)據(jù)對應(yīng)關(guān)系

電纜表第幾個數(shù)據(jù)

（標(biāo)簽表第幾行，標(biāo)簽表第幾列）

圖4　電纜標(biāo)簽圖

4　格式調(diào)整策略

根據(jù)不干膠標(biāo)簽貼紙格式設(shè)置EXCEL電纜標(biāo)簽表格式。注意EXCEL中行高的單位是磅，列寬的單位是1/10英寸。兩列、兩行標(biāo)簽之間插入分隔用窄列、窄行的EXCEL宏語句如下：

Range（"B：B，D：D，F(xiàn)：F"）.Select

Range（"F1"）.Activate

Selection.ColumnWidth = 0.69 ` 設(shè)置窄列列寬

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 ` 設(shè)置窄行行高

End If

Next i

最后制作出的電纜標(biāo)簽如圖4所示。

5　結(jié)語

本文通過利用EXCEL宏編程，實現(xiàn)了盾構(gòu)機(jī)電纜標(biāo)簽的自動化制作，將人員從繁復(fù)的工作中解脫出來，使他們可集中精力從事更需智慧的設(shè)計工作，不但提高了工作效率，而且經(jīng)由機(jī)器參與，準(zhǔn)確性也有了保障。

［1］李揚龍.地鐵盾構(gòu)施工電纜敷設(shè)及安全用電［J］.機(jī)電工程技術(shù)，2009，38（6）：157-158.

［2］馬兆鑫，翟坤.EXCEL自動化技術(shù)在通信電纜標(biāo)簽制作中的應(yīng)用［J］.光纖與電纜及其應(yīng)用技術(shù)，2011，（6）：39-41.

［3］任定成.EXCEL宏編程在工程建設(shè)中的應(yīng)用［J］.江西能源，2007，（4）：50-52.

張宇（1981—），女，吉林德惠人，碩士，工程師，現(xiàn)從事盾構(gòu)機(jī)電氣控制方面的設(shè)計研究工作。