- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 13# dea172 - Sub FQC_IPQC()
- Dim Ay(0 To 1), A As Range, C As Range, y&, d#, m&, i!, Lot1$, Lot2, f, fd$, fs$, fc$
- Do
- fd = Application.GetOpenFilename("Excel Files (*.xls),*.xls", , "½Ð¿ï¾ÜIPQCÀÉ", , False)
- f = Split(fd, "\")
- fs = f(UBound(f))
- If InStr(fs, "IPQC") = 0 Then MsgBox "Àɮ׿ï¨ú¤£¬OIPQCÀÉ" & Chr(10) & "½Ð«·s¿ï¾Ü"
- Loop While InStr(fs, "IPQC") = 0
- fc = Replace(fd, "IPQC.xls", "FQC.xls")
- With Workbooks.Open(fc)
- With Workbooks.Open(fd)
- With .Sheets("Transfer")
- Lot1 = Split(.[G2], "-")(0) & "-FQC3"
- Lot2 = Split(.[G2], "-")(0) & "-FQC2"
- y = Year(.[C1])
- d = CDate(Format(.[C1], "m/d"))
- m = .[L4]
- Ay(0) = Array(Lot1, y, d, m)
- Ay(1) = Array(Lot2, y, d, m)
- Dim ar(0 To 1, 0 To 34)
- For Each A In .[F4:F15]
- For i = 0 To 2
- ar(0, s) = A.Offset(, i).Value
- ar(1, s) = A.Offset(, i + 3).Value
- s = s + 1
- If s = 35 Then GoTo 10
- Next
- Next
- 10
- End With
- .Close 0
- End With
- With .Sheets("Input")
- Set C = .Cells(.Rows.Count, 1).End(xlUp).Offset(1)
- C.Resize(2, 4) = Application.Transpose(Application.Transpose(Ay))
- C.Offset(, 4).Resize(2, 35) = ar
- End With
- End With
- End Sub
½Æ»s¥N½X |
|