starbox520

¦^´_ 4# c_c_lai

    ¿Ã¹õ¤¤¥¡·d©w¤F!!!!
    StartUpPosition   =  2 ´N¥i¥H¤F!!XD

starbox520

¦^´_ 9# c_c_lai

¦^C¤j§Ú¥u¬O·Q¹êÅç§ËÀ´³oÃä¬O¤£¬O³o¼Ë§ï´N¯à§ïÅܧe²{¤è¦¡

§Ú¥»¨Ó­n¹êÅç§â"¬P¸¹"§ï¦¨"«æ³f"

¦ý¬Ý¨Ó¦r¦ê·|Ū¤£¨ì

©Ò¥H§Ú´NÀH«K¥´­ÓXXX¹êÅç«¢«¢

starbox520

¦^´_ 10# c_c_lai
³oÃ䪺¸Ü
¦]¬°¤§«e¸ò±z»¡¹L³o¼Ë´N¥s°µBGA
¦ý¥i¯à¦]¬°
³o­Ó¦r¦ê¤¤¶¡¦h¤FªÅ®æ
¾É­P¤£¯à§PÂ_¥L¥sBGA
³oÃ䥢ºâ¤F¡A§Ú¨S®Æ¨ì¸ê®Æ·|¦³ªÅ®æºØª¬ªpQ0Q

starbox520

¦^´_ 13# c_c_lai

¤Ó©P¨ì¤F!!
§ÚÁÙ¾á¤ß³o­ÓRule¨Sµ¹§AQ0Q
§ÚÀ´¤F!!³o¼Ë´N¤£·|¦³»~¤FXD

starbox520

¦^´_ 15# c_c_lai

¹ï!!!
³oÃä°Ý¤@¤U
§Ú·Ó­Ó§ï¤§«á
Åܦ¨"«æ"  ¨gÅ|¥[><lll   

¤U¸ü (13.77 KB)

2016-12-27 11:13

1. For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
   
2.            
   
3.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
   
4.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then
   
5.                 '  N Äæ (Trackin time) ªº®É¶¡¡A¥H·í«e¨t²Î®É¶¡ + 4HRS
   
6.                 If IsDate(Arr(i, 14)) Then
   
7.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
   
8.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "«æ³f" Then
   
9.                             .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
10.                         End If
    
11.                         
    
12.                         Set rng = Union(rng, .Rows(i))
    
13.                     End If
    
14.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æ
    
15.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
16.                     '  ¦p "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
17.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "«æ³f" Then
    
18.                       '  .Cells(i, 9) = .Cells(i, 9) & "*"
    
19.                       .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
20.                     End If

½Æ»s¥N½X

starbox520

¦^´_ 19# c_c_lai


    c¤j¤Ó©P¨ì¤F§ÚÁÙ¨SÀˬd¨ì¨ºùØ´NÀ°§Ú·Q¨ì¤F~
    ¯uªº¤Ó·PÁ§A¤F!!!!!!!!!

starbox520

¦^´_ 19# c_c_lai


C¤j½Ð°Ý¤@¤U

²Ä2­ÓListBox¡A¤Ï¥Õ«á¥i¥H«ö ctrl+C  ½Æ»s¶Ü?

¬O½Õ¾ãÄݩʶÜ?

¤U¸ü (8.37 KB)

2016-12-28 16:43

starbox520

¦^´_ 22# c_c_lai
¨SÃö«YC¤j¨ä¹ê³o¥u¬O§Ú¦Û¤v·Qª¾¹D¦³¨S¦³³o³¡¤À¥i¥HÀ³¥Î¦Ó¤wXD

1. Sub WIP()
   
2.     Dim r%, i%, Arr As Variant
   
3.     Dim rng As Range, reg As New RegExp
   
4.    
   
5.     With reg                                 '  reg :  : RegExp/IRegExp2
   
6.         .IgnoreCase = True                   '  IgnoreCase = True : Boolean
   
7.         '  S Äæ (Recipe) ¿z ¥X LS1T | LS1N | TR | BK | VQ ¦r¦ê¡A¨ä¾lªº¤£­n
   
8.         .Pattern = "LS1T|LS1N|TR|BK|VQ"      '  Pattern = "LS1T|LS1N|TR|BK|VQ" : String
   
9.     End With
   
10.    
    
11.     With Worksheets("WIP")
    
12.         Set rng = .Rows(1)
    
13.         Arr = .[A1].CurrentRegion.Value   '  Arr :  : Variant/Variant(1 to 1249, 1 to 27)
    
14.         
    
15.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
    
16.            
    
17.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
    
18.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then
    
19.                 '  N Äæ (Trackin time) ªº®É¶¡¡A¥H·í«e¨t²Î®É¶¡ + 4HRS
    
20.                 If IsDate(Arr(i, 16)) Then
    
21.                     If Arr(i, 16) >= Now And Arr(i, 16) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
    
22.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "«æ³f" Then
    
23.                             .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
24.                         End If
    
25.                         
    
26.                         Set rng = Union(rng, .Rows(i))
    
27.                     End If
    
28.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æ
    
29.                 ElseIf Len(Arr(i, 16)) = 0 Then
    
30.                     '  ¦p "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
31.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
    
32.                                   .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
33.                      End If
    
34.                       '  Cells(i, 9) = .Cells(i, 9) & "«æ³f"
    
35.                     '  .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
36.                   '  End If
    
37.                     
    
38.                     Set rng = Union(rng, .Rows(i))
    
39.                 End If
    
40.             End If
    
41.         Next
    
42.     End With
    
43.    
    
44.     With Worksheets("Sheet1")
    
45.         .[A1].CurrentRegion.ClearContents      '  ²M°£¤W¤@¦¸ªºµe­±
    
46.         rng.Copy .Range("A1")
    
47.     End With
    
48. End Sub

½Æ»s¥N½X

C¤j§Ú"WIP"ªº   MA code"O"Äæ   ¥i¥H§â"TR±Æ¾÷&²£¥X"   ªº ¾÷¥x½s¸¹"BÄæ"
"TR±Æ¾÷&²£¥X" BÄæ¤Uªº ¸¹½X  ·|¥X²{¦b  WIP"ªº   MA code"O"Äæ
¥i¥HÂo±¼¶Ü~
¥Ø«e§Ú¥u¾Ç«O¯dªº¤èªkXD
¥ýÂo±¼¦b°µ§Ú«á­±¼gªº¿z"G"¸ò"R"¥X¨Ó
If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then

starbox520

¦^´_ 25# c_c_lai


   

¤U¸ü (51.16 KB)

2016-12-28 18:48

TR±Æ¾÷&²£¥Xªº"B"Äæ  ¸Ì­±¦³SQH011 . SQH021...............SQ10A1
WIPªº"O"Äæ   ¸Ì­±¤]·|¦³SQH011 . SQH021...............SQ10A1   
­n§â³o¨ÇÂo±¼¦b°µ§Ú«á­±¼gªº
If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then

starbox520

¦^´_ 27# c_c_lai


WIPªº"O"Äæ   ¸Ì­±¤]·|¦³SQH011 . SQH021...............SQ10A1
¦pªG¸ò§Ú¤@¼Ë¼g¦º¦b¸Ì­±ªº¸Ü¡A ·|¦³³o¨Ç
SQH011.SQH021.SQH031.SQH041.SQH051.SQH061.SQH071.SQH081.SQH091.SQH101.SQH111.SQH121.SQH131.SQH141.SQH151.SQH161.SQH171.SQH181.SQH191.SQH201.SQH211.SQH221.SQH231.SQH241.SQH0A1.SQ6011.SQ6021.SQ6031.SQ6041.SQ6051.SQ6061.SQN011.SQN021.RQT031.RQT051.SQ8281.SQ8291.SQ8301.SQ8311.SQ8321.SQ8331.SQ8341.SQ8351.SQ8381.SQ8411.SQ8421.SQ8431.SQ8471.SQ8481.SQ8491.SQ8501.SQ8541.SQ8551.SQ8571.SQ10A1

³o¨Ç¼Æ¦r´N¬O±q"TR±Æ¾÷&²£¥X"ªºBÄæ¨ú¥X¨Óªº
µM«á¿z¨ìSheet1ªº®É­Ô­n§â³o¨Ç³£¥h°£±¼
¿zªºÄæ¦ì´N¬O"WIP"ªºOÄæ