利用EXCEL宏統(tǒng)計(jì)盾構(gòu)機(jī)電纜鎖頭

王大江 張宇

摘要：針對傳統(tǒng)盾構(gòu)機(jī)電纜鎖頭統(tǒng)計(jì)過程中效率低、易出錯(cuò)、更新慢的問題，提出了利用EXCEL宏統(tǒng)計(jì)電纜鎖頭的方法。對利用EXCEL宏實(shí)施該方法的四個(gè)步驟：線徑判斷、鎖頭確定、電控箱鎖頭統(tǒng)計(jì)、整機(jī)鎖頭統(tǒng)計(jì)做了詳細(xì)敘述。實(shí)踐表明，使用該方法統(tǒng)計(jì)盾構(gòu)機(jī)電纜鎖頭，能夠有效降低人員勞動(dòng)強(qiáng)度，提高了工作效率和準(zhǔn)確性。

關(guān)鍵詞：盾構(gòu)機(jī) EXCEL宏 電纜鎖頭

中圖分類號(hào)：U455 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1007-9416（2016）05-0000-00

盾構(gòu)機(jī)是一種具有開挖土體、輸送碴土、拼裝襯砌、測量導(dǎo)向等功能的隧道掘進(jìn)工程設(shè)備。盾構(gòu)機(jī)上的電氣元件分布各處，控制電控箱數(shù)量眾多。電纜鎖頭，也叫電纜防水接頭，主要安裝于某些電氣元件和電控箱上，用于鎖緊電纜，并有密封防水的作用，如圖1所示。每種型號(hào)的電纜鎖頭，有其固定的開孔尺寸，和可鎖緊電纜的直徑范圍。

面對盾構(gòu)機(jī)上眾多的電氣元件和電控箱，統(tǒng)計(jì)電纜鎖頭就會(huì)是一項(xiàng)非常復(fù)雜的工作，統(tǒng)計(jì)多了，庫存浪費(fèi)；統(tǒng)計(jì)少了，二次購買耗費(fèi)時(shí)間。傳統(tǒng)統(tǒng)計(jì)方法是根據(jù)電纜匯總表，依次列出所需鎖頭的規(guī)格和數(shù)量，然后再匯總。該種方法費(fèi)時(shí)費(fèi)力，容易出錯(cuò)，并且在圖紙更改時(shí)，無法迅速同步。為解決上述問題，本文利用EXCEL宏編程的功能，提出了一種對盾構(gòu)機(jī)電纜鎖頭進(jìn)行統(tǒng)計(jì)的方法。

1統(tǒng)計(jì)步驟規(guī)劃

盾構(gòu)機(jī)電氣系統(tǒng)設(shè)計(jì)完畢后，可生成一份電纜匯總表，如圖2所示，表中標(biāo)明了每根電纜的名稱、從哪里來、到哪里去、電纜型號(hào)和長度等信息。

由電纜匯總表統(tǒng)計(jì)電纜鎖頭的步驟如圖3所示。首先，根據(jù)電纜型號(hào)確定電纜線徑；其次，判斷該線徑可使用鎖頭型號(hào)和對應(yīng)電控箱開孔尺寸；然后，標(biāo)記“從”和“到”列出現(xiàn)某電控箱的行，匯總標(biāo)記行的鎖頭型號(hào)和數(shù)量，得到該電控箱所需電纜鎖頭；最后，“從”列為電控箱，若“到”列為電控箱或要使用鎖頭的元件，則該根電纜需2個(gè)鎖頭，否則需1個(gè)鎖頭，匯總得到整機(jī)所需電纜鎖頭。

2電纜線徑判斷

利用EXCEL宏的FIND語句判斷電纜型號(hào)的宏代碼如下：

For i = 3 To 256

findstring="H07RN-F 4G16"

Set re=Cells（i， 6）.Find（what：=findstring， lookat：=xlPart）

If Not re Is Nothing Then

Cells（i， 8） = "23" ' 若為H07RN-F 4G16電纜，則線徑23寫于對應(yīng)行第8列

End If

…

Next i

3電纜鎖頭確定

利用If...Then...Else語句判斷使用電纜鎖頭型號(hào)的宏代碼如下：

For i = 3 To 256

If Cells（i， 8） > 18 And Cells（i， 8） <= 25 Then

Cells（i， 9） = "M36x1.5" ' 若落入M36x1.5電纜鎖頭范圍，則將鎖頭型號(hào)、鎖緊

范圍、開孔尺寸分別寫于對應(yīng)行的第9、10、11列

Cells（i， 10） = "18-25"

Cells（i， 11） = "Φ37"

ElseIf

…

End If

Next i

4電控箱鎖頭和開孔統(tǒng)計(jì)

匯總某一電控箱的電纜鎖頭，并生成以該電控箱命名的新工作表。宏代碼如下：

k = 3

For i = 3 To 256

find4="電源控制箱"

Set re4=Cells（i， 4）.Find（what：=find4， lookat：=xlPart）

Set re5=Cells（i， 5）.Find（what：=find4， lookat：=xlPart）

If Not re4 Is Nothing Or Not re5 Is Nothing Then

Rows（ActiveCell.Row）.Copy ' 若“從”、“到”列有任一為“電源控制箱”，

則復(fù)制該行到新建工作表中

Sheets.Add After：=Sheets（find4）

Sheets（find4）.Cells（k， 1）.Select

ActiveSheet.Paste

k = k + 1

End If

…

Next i

5整機(jī)鎖頭數(shù)量計(jì)算

統(tǒng)計(jì)整機(jī)M36x1.5型號(hào)電纜鎖頭數(shù)量的宏代碼如下：

number_M36 = 0

For i = 3 To 256

findst="M36x1.5"

findtoX="箱"

findtoQ="電機(jī)"

Set rest=Cells（i， 9）.Find（what：=findst， lookat：=xlPart）

Set retoX=Cells（i， 5）.Find（what：=findtoX， lookat：=xlPart）

Set retoQ=Cells（i， 5）.Find（what：=findtoQ， lookat：=xlPart）

If Not rest Is Nothing Then

If Not retoX Is Nothing Or Not retoQ Is Nothing Then

number_M36 = number_M36 + 2 ' “到”列為電控箱或需要使用電纜鎖頭

的元件，則統(tǒng)計(jì)數(shù)量加2，否則加1

Else

number_M36 = number_M36 + 1

End If

End If

Next i

6結(jié)語

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

參考文獻(xiàn)

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

[2]李申山，許鳴珠.盾構(gòu)的供配電系統(tǒng)合理性及可靠性分析[J].建筑機(jī)械.2009，（3）：61-64.

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

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

[5]方文英.EXCEL宏編程的應(yīng)用[J].辦公自動(dòng)化雜志，2008，（7）：46-48.