王大江 張宇
摘要:針對(duì)傳統(tǒng)盾構(gòu)機(jī)電纜鎖頭統(tǒng)計(jì)過程中效率低、易出錯(cuò)、更新慢的問題,提出了利用EXCEL宏統(tǒng)計(jì)電纜鎖頭的方法。對(duì)利用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ī)是一種具有開挖土體、輸送碴土、拼裝襯砌、測(cè)量導(dǎo)向等功能的隧道掘進(jìn)工程設(shè)備。盾構(gòu)機(jī)上的電氣元件分布各處,控制電控箱數(shù)量眾多。電纜鎖頭,也叫電纜防水接頭,主要安裝于某些電氣元件和電控箱上,用于鎖緊電纜,并有密封防水的作用,如圖1所示。每種型號(hào)的電纜鎖頭,有其固定的開孔尺寸,和可鎖緊電纜的直徑范圍。
面對(duì)盾構(gòu)機(jī)上眾多的電氣元件和電控箱,統(tǒng)計(jì)電纜鎖頭就會(huì)是一項(xiàng)非常復(fù)雜的工作,統(tǒng)計(jì)多了,庫(kù)存浪費(fèi);統(tǒng)計(jì)少了,二次購(gòu)買耗費(fèi)時(shí)間。傳統(tǒng)統(tǒng)計(jì)方法是根據(jù)電纜匯總表,依次列出所需鎖頭的規(guī)格和數(shù)量,然后再匯總。該種方法費(fèi)時(shí)費(fèi)力,容易出錯(cuò),并且在圖紙更改時(shí),無法迅速同步。為解決上述問題,本文利用EXCEL宏編程的功能,提出了一種對(duì)盾構(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)和長(zhǎng)度等信息。
由電纜匯總表統(tǒng)計(jì)電纜鎖頭的步驟如圖3所示。首先,根據(jù)電纜型號(hào)確定電纜線徑;其次,判斷該線徑可使用鎖頭型號(hào)和對(duì)應(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寫于對(duì)應(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)、鎖緊
范圍、開孔尺寸分別寫于對(duì)應(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.