路士濤 邴晨陽 黃召明

摘 要：隨著國內(nèi)高速鐵路的發(fā)展，尤其是中國標(biāo)準(zhǔn)動(dòng)車組復(fù)興號(hào)的研發(fā)及運(yùn)營，公司電氣配線工藝為提高電線下料、電氣配線及電氣接線用線號(hào)數(shù)據(jù)庫的準(zhǔn)確性，提高工作效率，設(shè)計(jì)編制數(shù)據(jù)庫的制作方法。

關(guān)鍵詞：電氣配線；線號(hào)數(shù)據(jù)庫；制作方法

中圖分類號(hào)：U269 文獻(xiàn)標(biāo)識(shí)碼：A 文章編號(hào)：1671-2064（2018）05-0029-01

線號(hào)數(shù)據(jù)庫是電氣工藝的重要輸出數(shù)據(jù)之一，用于電線下料、電氣配線及電氣接線。其中線號(hào)數(shù)據(jù)庫的制作是電氣配線工藝師的基礎(chǔ)技能之一，如何基于配線尺寸表精確地制作線號(hào)數(shù)據(jù)庫，也是一項(xiàng)不斷精進(jìn)的工藝技能。線號(hào)數(shù)據(jù)庫準(zhǔn)確度及維護(hù)更新，很大程度上影響接線及導(dǎo)通的作業(yè)效率。

1 線號(hào)數(shù)據(jù)庫主表簡述

線號(hào)數(shù)據(jù)庫主表用來自動(dòng)生成線號(hào)數(shù)據(jù)庫，自動(dòng)生成線號(hào)數(shù)據(jù)庫除要求電氣工藝師們除掌握電氣專業(yè)知識(shí)外，還需要利用Excel在VBA編程環(huán)境下的編碼知識(shí)來編制線號(hào)數(shù)據(jù)庫生成程序。

2 線號(hào)數(shù)據(jù)庫主表制作

打開線號(hào)數(shù)據(jù)庫主表工作表利用開發(fā)工具建立ActiveX控件功能建立 “線號(hào)數(shù)據(jù)庫生成”按鈕，在設(shè)計(jì)模式下，雙擊該按鈕進(jìn)入VBA編程環(huán)境下，編制如下程序用于線號(hào)數(shù)據(jù)庫的生成。

編制線號(hào)數(shù)據(jù)庫生成程序：

Private Sub CommandButton1_Click（）

'變量定義

Dim SHT_t1， sht_s As Worksheet

Dim wkb As Workbook

Set wkb = Application.Workbooks（"XX配線尺寸表.xls"）

'目標(biāo)表格指定

Set SHT_t1 = Application.Workbooks（"XX-主表.xls"）.Worksheets（"散線細(xì)"）

'源表格指定

Set sht_s = wkb.Worksheets（"XX尺寸表"）

' 代表行數(shù)的變量定義

Dim I， J As Integer

'清除內(nèi)容

SHT_t1.Range（"A1：F2000"）.ClearContents

'標(biāo)題輸入

With SHT_t1

Range（"A1"） = "屏蔽標(biāo)記"

Range（"B1"） = "大線標(biāo)記"

Range（"C1"） = "線型"

Range（"D1"） = "起端線號(hào)"

Range（"E1"） = "終端線號(hào)"

End With

'線號(hào)線型輸入

I = 2

For Each sht_s In wkb.Worksheets

If sht_s.Range（"A1"） = "s" Then

J = 7

Do

SHT_t1.Range（"A" & I） = sht_s.Range（"D" & J）

SHT_t1.Range（"B" & I） = sht_s.Range（"E" & J）

SHT_t1.Range（"C" & I） = sht_s.Range（"F" & J）

If sht_s.Range（"H" & J） <> "（黃）" Then

SHT_t1.Range（"D" & I） = sht_s.Range（"H" & J） & sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

Else： SHT_t1.Range（"D" & I） = sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

End If

If sht_s.Range（"L" & J） <> "（黃）" Then

SHT_t1.Range（"E" & I） = sht_s.Range（"L" & J） & sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

Else： SHT_t1.Range（"E" & I） = sht_s.Range（"I" & J） & sht_s.Range（"J" & J）

End If

SHT_t1.Range（"F" & I） = sht_s.Name

J = J + 1

I = I + 1

Loop Until sht_s.Range（"A" & J） = "s"

End If

Debug.Print sht_s.Name

DoEvents

Next

'屬性標(biāo)記

I = 2

Dim XH As String

Dim Name As String

XH = ""

Name = ""

Do

If SHT_t1.Range（"C" & I） <> "" And （SHT_t1.Range（"C" & I） <> XH Or SHT_t1.Range（"F" & I） <> Name） Then

SHT_t1.Range（"C" & I）.Select

Selection.EntireRow.Insert

SHT_t1.Range（"D" & I）=SHT_t1.Range（"F" & I+1）

SHT_t1.Range（"E" & I）=SHT_t1.Range（"F" & I+1）

SHT_t1.Range（"C" & I）=SHT_t1.Range（"C" & I+1）

SHT_t1.Range（"F" & I）=SHT_t1.Range（"F" & I+1）

I = I + 1

End If

If SHT_t1.Range（"C" & I） <> "" Then

XH = SHT_t1.Range（"C" & I）

Name = SHT_t1.Range（"F" & I）

End If

I = I + 1

Loop Until SHT_t1.Range（"F" & I） = ""

End Sub

3 線號(hào)數(shù)據(jù)庫制作

同時(shí)打開線號(hào)數(shù)據(jù)庫主表和所用配線尺寸表，在配線尺寸表的首行A列及尾行A列均輸入小寫“s”，保存且不關(guān)閉表格。點(diǎn)擊“線號(hào)數(shù)據(jù)庫生成”按鈕，出現(xiàn)調(diào)試對(duì)話框，點(diǎn)擊“調(diào)試”按鈕，出現(xiàn)步驟2所編程。在程序中將主表格，目標(biāo)表格指定與源表格指定處“XX”填寫完整，保存并關(guān)閉回到“線號(hào)數(shù)據(jù)庫生成”按鈕界面，點(diǎn)擊“線號(hào)數(shù)據(jù)庫生成”按鈕，主表中便生成線號(hào)數(shù)據(jù)庫。

4 結(jié)語

編制線號(hào)數(shù)據(jù)庫制作方法，可以幫助年輕工藝師迅速掌握線號(hào)數(shù)據(jù)庫制作技能。能有效避免新工藝師在配線工藝設(shè)計(jì)過程中因轉(zhuǎn)化方法不對(duì)引起打印線號(hào)錯(cuò)誤。維護(hù)與更新線號(hào)數(shù)據(jù)庫，提高接線、導(dǎo)通作業(yè)效率，降低線號(hào)浪費(fèi)。

參考文獻(xiàn)

[1]ExcelHome.Excel 2010 VBA實(shí)戰(zhàn)技巧精粹[M].北京：人民郵電出版社，2015.