一种基于表格的线束公用线查找方法
【技术领域】
[0001]本发明涉及一种线束公用线查找方法，特别是一种基于表格的线束公用线查找方法。
【背景技术】
[0002]在现代汽车上，汽车线束特别多，电子控制系统与线束有着密切关系。有人曾经打了一个形象的比喻:如果把微机、传感器与执行元件的功能用人体来比喻，可以说微机相当于人脑，传感器相当于感觉器官，执行元件相当于运动器官，那么线束就是神经和血管了。汽车线束是汽车电路的网络主体，连接汽车的电气电子部件并使之发挥功能，没有线束也就不存在汽车电路。在目前，不管是高级豪华汽车还是经济型普通汽车，线束编成的形式基本上是一样的，都是由电线、联插件和包裹胶带组成，它既要确保传送电信号，也要保证连接电路的可靠性，向电子电气部件供应规定的电流值，防止对周围电路的电磁干扰，并要排除电器短路。
[0003]所谓公用线，就是不同图号的线束中相同线号记录内容完全相同的线，公用线的查找传统采用人工方式进行查找，通过人工在不同图号的线束图上进行查找，效率低下并且错误率较高，并且当图号很多，线束较为复杂的时候，人工查找很难完成。
【发明内容】
[0004]本发明所要解决的技术问题是提供一种查找快捷准确的基于表格的线束公用线查找方法。
[0005]为解决上述技术问题，本发明所采用的技术方案是:
一种基于表格的线束公用线查找方法，其特征在于包含以下步骤:
A、将不同图号的线束按照同样的记录格式建立工作表格，并且将不同图号的线束的工作表格复制到同一个表格文档中，并建立公用线工作表格；
B、将需要查找公用线的不同图号的线束的工作表格内容复制到公用线工作表格中并按照线号排序；
C、对不同图号的线束的相同线号的内容进行比较，当所有比较内容完全相同的时候，则设定该线号为公用线，当比较内容不同的时候，则不能作为公用线并将不同的内容进行颜色标记；
上述步骤均采用工作表格宏命令完成。
[0006]进一步地，所述同样的记录格式是按照顺序对线束的线种、规格、下料长度、A端端子、A端预装件、B端端子、B端预装件进行记录。
[0007]进一步地，所述不同图号的线束的相同线号的内容比较完成后，将设定的公用线的条数和占所有线号的百分比进行输出。
[0008]进一步地，所述对不同图号的线束的相同线号的内容进行比较，没有公用线的时候，在表格输出提示检查各图号的线束的数据。
[0009]本发明与现有技术相比，具有以下优点和效果:
1、基于表格的线束公用线查找方法操作方便，通过工作表格宏命令进行自动操作，效率很高；
2、通过宏命令进行自动对比查找公用线，准确率高；
3、基于表格自动查找，这样图号很多并且线束很多的情况下，也能够快速准确的查找出公用线。
【附图说明】
[0010]图1是本发明的实施例的表格图。
【具体实施方式】
[0011]下面结合附图并通过实施例对本发明作进一步的详细说明，以下实施例是对本发明的解释而本发明并不局限于以下实施例。
[0012]本发明的一种基于表格的线束公用线查找方法，包含以下步骤:
A、将不同图号的线束按照同样的记录格式建立工作表格，并且将不同图号的线束的工作表格复制到同一个表格文档中，并建立公用线工作表格；
B、将需要查找公用线的不同图号的线束的工作表格内容复制到公用线工作表格中并按照线号排序；
C、对不同图号的线束的相同线号的内容进行比较，当所有比较内容完全相同的时候，则设定该线号为公用线，当比较内容不同的时候，则不能作为公用线并将不同的内容进行颜色标记；
上述步骤均采用工作表格宏命令完成。
[0013]其中，同样的记录格式是按照顺序对线束的线种、规格、下料长度、A端端子、A端预装件、B端端子、B端预装件进行记录。不同图号的线束的相同线号的内容比较完成后，将设定的公用线的条数和占所有线号的百分比进行输出。对不同图号的线束的相同线号的内容进行比较，没有公用线的时候，在表格输出提示检查各图号的线束的数据。
[0014]其中建立公用线工作表宏命令为:
Sheets (〃 公用线 〃).Select
Range("A2").Select Range ("Al")= 〃图号〃
Range ("BΓ)= 〃 线号〃
Range ("Cl")= 〃线种〃
Range (〃D1〃)= 〃规格〃
Range (〃G1〃)= 〃下料长度〃
Range ("HI") = "A 端端子"
Range (〃J1〃)= 〃A 端预装件〃
Range ("LI") = 〃B 端端子〃
Range ("NI") = 〃B 端预装件〃
将不同图号的线束按照同样的记录格式建立工作表格，并且将不同图号的线束的工作表格复制到同一个表格文档中的宏命令为:
Dim i As IntegerDim sh As WorksheetFor Each sh In Worksheetssh.SelectCells.Select
Select1n.1nter1r.ColorIndex = xlNone If sh.Name O 〃 公用线 〃 Then
If Range("b2") = "" And Range("c2") = "" ThenApplicat1n.DisplayAlerts = Falsesh.Delete
Applicat1n.DisplayAlerts = True
Else
Dim r As IntegerDim rl As Integer’ sh.Select’ Cells.Select
’ Select1n.1nter1r.ColorIndex = xlNone
’ r = Sheets ("sheet" & i).Range("b65536").End(xlUp).Row r = Range("b65536").End(xlUp).Row ’Sheets ("sheet" & i).Select Range ("A2:0〃 & r).Select Select1n.Copy Sheets (〃 公用线 〃).Select
rl = Sheets ("公用线").Range ("b65536").End (xlUp).Row Range ("A" & rl + I).Select ActiveSheet.Paste End If End If
对不同图号的线束的相同线号的内容进行比较的宏命令为:
Sheets (〃 公用线 〃).Select
Dim I As Integer’定义公用线工作表的数据行数
I = Range("b65536").End(xlUp).RowRange ("Al:0〃 & I).Sort Keyl:=Range ("B2")，Orderl:=xlAscending,Key2:=Range( _
〃D2〃)， Order2:=xlAscending, Key3:=Range(〃G2〃)，Order3:=xIAscending， Header:=xlGuess, OrderCustom:=1， MatchCase:=FalsejOrientat1n:= _
xlTopToBottom, SortMethod:=XlPinYinj DataOpt1nl:=XlSortNormalj _ DataOpt1n2:=XlSortNormalj DataOpt1n3:=XlSortNormal Range ("A2").Select Dim m As Integer Dim n As Integer ’ Dim p As Integer ’ Stop
For m = 2 To I
For n = I To Sheets.Count - 2JFor p = 2 To 15
If Cells(m，3) = Cells(m + n，3) And Cells(m，4) = Cells(m + n，
4) And _
Cells(m，7) = Cells(m + n，7) And Cells(m，8) = Cells(m + n，
8) And _
Cells (m，10) = Cells (m + n，10) And Cells (m，11) = Cells (m
+ n，11) And _
Cells (m，12) = Cells (m + n，12) And Cells (m，14) = Cells (m
+ n，14) And _
Cells