­ã´£³¡ªL

1. Sub TEST()
   
2. Dim Arr, Brr(1 To 2, 1 To 39), i&, j%, xE As Range
   
3. Arr = [A4:J15]
   
4. Brr(1, 1) = Split([G2], "-")(0) & "-FQC3"
   
5. Brr(2, 1) = Split([G2], "-")(0) & "-FQC2"
   
6. Brr(1, 2) = Year([C1]): Brr(2, 2) = Year([C1])
   
7. Brr(1, 3) = [C1]: Brr(2, 3) = [C1]
   
8. Brr(1, 4) = [L4]: Brr(2, 4) = [L4]
   
9. For i = 0 To UBound(Arr) - 1
   
10.     If Arr(i + 1, 1) <> "M1" Then
    
11.        For j = 5 To 7: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j
    
12.        For j = 5 To 6: Brr(2, i * 3 + j) = Arr(i + 1, j + 4): Next j
    
13.     Else
    
14.        For j = 5 To 6: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j
    
15.     End If
    
16. Next i
    
17. Set xE = Workbooks("FQC").Sheets("input").[A65536].End(xlUp)(2)
    
18. If xE.Row < 6 Then Set xE = xE(2)
    
19. xE.Resize(2, 39) = Brr
    
20. End Sub

½Æ»s¥N½X

­ã´£³¡ªL

¦^´_ 4# dea172


Dim xB As Workbook
On Error Resume Next '¥H¤U¤T¦æ¥i¥HÀˬdFQC¬O§_¶}±Ò¤¤
Set xB = Workbooks("FQC")
On Error GoTo 0

If xB Is Nothing Then Set xB = Workbooks.Open(ThisWorkbook.Path & "\FQC.xls") '­Y¥¼¶}±Ò,°õ¦æ¶}±ÒÀÉ®×(ÁקK­«Âж}±Ò¦Ó·í¾÷)
Set xE = xB.Sheets("input").[A65536].End(xlUp)(2)
If xE.Row < 6 Then Set xE = xE(2)
xE.Resize(2, 39) = Brr
xB.Close 1  'Ãö³¬FQC, ¨Ã¦sÀÉ

­ã´£³¡ªL

¦^´_ 7# dea172

1. Private Sub CommandButton2_Click()
   
2. Dim Arr, Brr, i&, j%, xE As Range
   
3. Arr = [A3:J17]
   
4. ReDim Brr(1 To 2, 1 To [A:AV].Columns.Count)
   
5. Brr(1, 1) = Split([G1], "-")(0) & "-FQC3"
   
6. Brr(2, 1) = Split([G1], "-")(0) & "-FQC2"
   
7. Brr(1, 2) = Year([C1]): Brr(2, 2) = Year([C1])
   
8. Brr(1, 3) = [C1]: Brr(2, 3) = [C1]
   
9. Brr(1, 4) = [E1]: Brr(2, 4) = [L2]
   
10. For i = 0 To UBound(Arr) - 1
    
11.     If i >= UBound(Arr) - 2 Then '³Ì«á¨âµ§(L/M)
    
12.        For j = 5 To 6: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j '¥u§ì«e2®æ
    
13.     Else
    
14.        For j = 5 To 7: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j '§ì«e3®æ
    
15.        For j = 5 To 6: Brr(2, i * 3 + j) = Arr(i + 1, j + 4): Next j '§ì«á2®æ
    
16.     End If
    
17. Next i
    
18. 
    
19. Dim xN$, xB As Workbook, xS As Worksheet, xF As Range
    
20. xN = "L-15-3-2018-FQC.xls"
    
21. On Error Resume Next '¥H¤U¤T¦æ¥i¥HÀˬdFQC¬O§_¶}±Ò¤¤
    
22. Set xB = Workbooks(xN)
    
23. If xB Is Nothing Then Set xB = Workbooks.Open(ThisWorkbook.Path & "\" & xN) '­Y¥¼¶}±Ò,°õ¦æ¶}±ÒÀÉ®×
    
24. On Error GoTo 0
    
25. If xB Is Nothing Then MsgBox "§ä¤£¨ì¡e" & xN & "¡fÀÉ®×": Exit Sub
    
26. 
    
27. Set xS = xB.Sheets("¿é¤Jªí")
    
28. Set xF = xS.[A:A].Find(Split(Brr(1, 1), "-")(0), Lookat:=xlPart)
    
29. If Not xF Is Nothing Then MsgBox "§å¸¹­«ÂÐ": xB.Close 0: Exit Sub
    
30. Set xE = xS.[A65536].End(xlUp)(2)
    
31. If xE.Row < 6 Then Set xE = xE(2)
    
32. xE.Resize(2, UBound(Brr, 2)) = Brr
    
33. xB.Close 1  'Ãö³¬FQC, ¨Ã¦sÀÉ
    
34. End Sub

½Æ»s¥N½X

L-15-3-2018-IPQC.rar (75.84 KB)

¤U¸ü¦¸¼Æ: 1

2018-4-18 15:47

­ã´£³¡ªL

¦^´_ 9# dea172

°ÝÃD´y­z¤£²M¡A¥»¨Ó¥u¦³¤@¹ï¤@ÀɮסA²{Åܦ¨¤T­Ó¡AÃø¥H¤U¤â¡I¡I¡I
¢°¡D¨C­ÓIPQC¬O§_¦U¹ïÀ³¤@­ÓFQC¡H¡@¥BÀɮצWºÙ«eºó¬Û¦P¡H
¡@¡@¨Ò¦p¡GL-26P-2018-IPQC¡@¹ïÀ³¡@L-26P-2018-FQC¡A¬Û¦P¬°"L-26P-2018"
¢±¡DIPQCªº¢ÏÄ涵¥Ø¼Æ¶q¬O¡e©T©w¡fªº¡H¡@¥B¥²»PFQC¬Û¹ïÀ³¡H
¢²¡D§ì¢´®æ©Î§ì¢±®æªº³W«h¬O¤°»ò¡H
¡@¡@©ÎªÌ¡A¥i§Q¥ÎIPQCªº¢ÙÄæ¡A§ì¢´µ§ªº¿é¤J¢´¡A§ì¢±µ§ªº¿é¤J¢±¡A´N¥Î³o¨Ó§PÂ_§ì´X®æ

­ã´£³¡ªL

¦^´_ 9# dea172


2.IPQC ÀÉ®× HÄæ¦ì¦³¤­­Ó¼Æ­È, FQC ¥u§ì¨ú«e¨â­Ó¼Æ­È(°Ñ閲ÀÉ®×L-15-3)
¹Ï¤ù¬Ý¬OMÄæ¦ì???
¬O§_¥Î"M"¨Ó§PÂ_¨ú2®æ???  ÁÙ¬O[³Ì«á¤@µ§]¨ú2®æ???

2.IPQC ÀÉ®× P/MÄæ¦ì¦³¤­­Ó¼Æ­È, FQC ¦U§ì¨ú«e¨â­Ó¼Æ­È(°Ñ閲ÀÉ®×L-26P)
¬O§_¥Î"P"©Î"M"§PÂ_¨ú2®æ???  ©Î¬O[³Ì«á2µ§]¨ú2®æ???

µM«á, FQCÀɮצWºÙ¤£¬O©T©wªº, µLªk¼g¦º¦bµ{¦¡¸Ì(¤£µM¨C¦¸³£­n¤â§ï)???

­ã´£³¡ªL

¦^´_ 15# dea172


IPQC-FQC.rar (167 KB)

¤U¸ü¦¸¼Æ: 1

2018-4-19 16:05

³o­ÓFQCÀɦW¦Û°Ê»PIPQC¤Ç°t:
IPQC-FQC-2.rar (168.17 KB)

¤U¸ü¦¸¼Æ: 3

2018-4-19 16:10

­ã´£³¡ªL

¦^´_ 17# dea172

For i = 0 To UBound(Arr) - 1
    If Arr(i + 1, 1) = "P" Then
       '³o¸ÌªÅ¥Õ§Y¥i(¤£°µ¥ô¦ó°Ê§@)
    ElseIf Arr(i + 1, 1) = "M" Then
       For j = 5 To 6: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j '¥u§ì«e2®æ
     Else
       For j = 5 To 7: Brr(1, i * 3 + j) = Arr(i + 1, j + 1): Next j '§ì«e3®æ
           For j = 5 To 6: Brr(2, i * 3 + j) = Arr(i + 1, j + 4): Next j '§ì«á2®æ
    End If
Next i

­ã´£³¡ªL

¦^´_ 17# dea172

­Y¬O­n±Æ°£¦h­Ó:
If InStr("-A2-H-P-", "-" & Trim(Arr(i + 1, 1)) & "-") Then

A2,H,P ³£¤£¿ý¤J

¦]¬°Àɮפ¤A2«á¦h¤F¤@­ÓªÅ®æ, ¶·¥ÎTrim²M°£

°O¦í¡G³o­Ó±Æ°£­n©ñ¦bIF±ø¥óªº²Ä¤@­Ó¡A¨ä¥¦¦A¥ÎELSEIF±µ¨ä¥¦±ø¥ó

­ã´£³¡ªL

¬°¤F¨¾§b¡A¦bµ{¦¡½Xªº«eºÝ¦A¥[³o¤T¦æ¡G
If IsDate([C1]) = False Then MsgBox "¤é´Á®æ¦¡¿ù»~©Î¥¼¿é¤J!!": Exit Sub
If [E1] = "" Then MsgBox "Machine No ¥¼¿é¤J!!": Exit Sub
If [G1] Like "########-####" = False Then MsgBox "Lot No ¿ù»~©Î¥¼¿é¤J!!": Exit Sub

­ã´£³¡ªL

¦^´_ 21# dea172


¤£¬OÄæ¦ì³£¬O©T©wªº???
¹ê¦b¨S®É¶¡¦A¥h­×§ïµ{¦¡,
µ¥¨ä¥Lª©¥D¨ÓÀ°¦£§a!