¨D­×§ïµ{¦¡_·j´M¨Ã·s¼W

fangsc

»¡©ú:
2­Ó¤u§@ªí"TC", "1" ¥H "Code" & "Ser" ¬Û¦PªÌ
±N¤u§@ªí"1"ªº 6S, 6B, 7B,8B,9B Äæ¦ì¸ê®Æ
¼g¤J¤u§@ªí"TC" ªº6S,6B,7B,8B,9B
¦p¤u§@ªí"1" ¦³ "Code" & "Ser", ¦Ó "TC"  ¨S¦³ªÌ
¦b"TC" ¤u§@ªí "I"Äæ "Trade"ªº¤W2¦C·s¼W¤@¦C¨Ã±N Code, Ser,6S,6B,7B,8B,9B¸ê®Æ¶ñ¤J

­ìµ{¦¡:
Sub insert_backlog()
Dim fcsty, bklogy, TC_Maxrow, Backlog_Maxrow, start_col As Integer
Dim current_PL, current_ID As String
Dim search_PL, search_ID As String
TC_Maxrow = 103
Backlog_Maxrow = 42
start_col = 52
For fcsty = 3 To TC_Maxrow
current_PL = Worksheets("TC").Cells(fcsty, 10).FormulaR1C1
current_ID = Worksheets("TC").Cells(fcsty, 8).FormulaR1C1
Worksheets("1").Select
For bklogy = 2 To Backlog_Maxrow
search_PL = Worksheets("1").Cells(bklogy, 1).FormulaR1C1
If search_PL = current_PL Then
   search_ID = Worksheets("1").Cells(bklogy, 3).FormulaR1C1
  If (Val(search_ID) = Val(current_ID)) Then
        Worksheets("TC").Cells(fcsty, start_col).FormulaR1C1 = Val(Worksheets("1").Cells(bklogy, 7).FormulaR1C1) / 1000
        Worksheets("TC").Cells(fcsty, start_col + 1).FormulaR1C1 = Val(Worksheets("1").Cells(bklogy, 8).FormulaR1C1) / 1000
        Worksheets("TC").Cells(fcsty, start_col + 3).FormulaR1C1 = Val(Worksheets("1").Cells(bklogy, 9).FormulaR1C1) / 1000
        Worksheets("TC").Cells(fcsty, start_col + 4).FormulaR1C1 = Val(Worksheets("1").Cells(bklogy, 10).FormulaR1C1) / 1000
        Worksheets("TC").Cells(fcsty, start_col + 5).FormulaR1C1 = Val(Worksheets("1").Cells(bklogy, 11).FormulaR1C1) / 1000
  End If
End If
Next bklogy
Next fcsty
MsgBox ("¤v§¹¦¨")
End Sub

·PÁÂ!!!!!