c_c_lai

¦^´_ 28# starbox520
©pªº·N«ä´N¬O±N"WIP"ªºOÄæ­È¶¶¤â²MªÅ¡H
¦]¬°©pªº¿z¨Ó¿z¥h¡A§Ú³£°g½k¤F¡C

c_c_lai

¦^´_ 30# starbox520
§Ú®Ñ©À±o¤Ö¡AÁÙ¬O·d¤£À´¤°»ò·N«ä¡C
­n¦p¦ó§R°£¡H

c_c_lai

¦^´_ 32# starbox520
ÁÂÁ§Aªº¸Ô²Ó¦a»¡©ú¡F¦ý§Ú¨ÌµM§ì¤£¨ì©p«üªº Key Point¡C
§Ú­nªº¬O¡G
§Ú¥´ºâ±q "­þ¸Ì" ¨ì "¨ºùØ" ±N "ªáºØ" ®â´Ó¡Aµ¥ªø¤j "¶}ªá" «á®³¨Ó½æ¨ì "ªá¥«" ¥h¡C
¦Ó¤£¬O¡G
§Ú¤µ¤Ñ¥´ºâ²M±á 5:00 ÄÁ±q "­þ¸Ì" ¥Î¨«ªº¨«¨ì "¨ºùØ" ±N¤@¨ÇªB¤Í¨º¨à­n¨Óªº®â°öºØ´Óªº "ªáºØ"
±N¥¦­Ì¤©¥H®â´Ó¡Aµ¥¥¦­Ìªø¤j "¶}ªá" «á¡A¦A±N¥¦­Ì±Ä¤U¡A®³¨Ó½æ¨ì "ªá¥«" ¥h¡C

µ²ªG¬O "¤£ª¾¹Dµª®×"¡A¯à§_¥Õ¸ÜÂI¡A§ã­n¦aªí­z¡C
Ä´¦p¡G
¦b°õ¦æ "WIP" ®É¡A »P "TR±Æ¾÷&²£¥X" ¦³¦óÃöÁp©Ê¡H
¤£­nÅ¢²Î¦a»¡¤@°ï¡A½Ð¤@µ§°O¿ý¹ï¤@µ§°O¿ý¬O¦p¦ó³B²z¡H
"WIP" ¼g¨ì "Sheet1" ¤S¦³¦óÃB¥~ª`·N¨Æ¶µ¡H

c_c_lai

¦^´_ 34# starbox520
"WIP" ªº "MA code" ´X¥G¥þ¬°¥Õ¡A­n¿z¬Æ»ò¡H

¤U¸ü (42.61 KB)

2016-12-29 09:19

c_c_lai

¦^´_ 34# starbox520
©pªº·Qªk¬O³o¼Ë¶Ü¡H

1. Sub WIP()
   
2.     Dim r%, i%, Arr As Variant, c 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.             If IsEmpty(Arr(i, 15)) Then
    
17.                 Set c = Nothing
    
18.             Else
    
19.                 Set c = Sheets("TR±Æ¾÷&²£¥X").[B:B].Find(Arr(i, 15), , , 1)
    
20.             End If
    
21. 
    
22.             '  ±N J Äæ (Bin Code) ªº "G"¡B R Äæ (Close Type) ªº "R" ¿z¥X¨Ó¡A¨ä¾lªº¤£­n
    
23.             '  ±N S Äæ (Recipe) ¿z¥X LS1T | LS1N | TR | BK | VQ ¦r¦ê¡A¨ä¾lªº¤£­n
    
24.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
    
25.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) And c Is Nothing Then

½Æ»s¥N½X

c_c_lai

¦^´_ 38# starbox520

1.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
   
2.             '  °õ¦æ "WIP" ®É¡A¥ý¦æ¹LÂo "TR±Æ¾÷&²£¥X"¡A ÀË®Ö¸Ó "¾÷¥x" ¬O§_¤w³Q¨Ï¥Î¡A
   
3.             '  ¦pªG¤w³Q¨Ï¥Î«h¤©¥H±Æ°£¦b¥~¡A¤£¦A­«½Æ¿ï¥Î¡C
   
4.             If IsEmpty(Arr(i, 15)) Then
   
5.                 Set c = Nothing
   
6.             Else
   
7.                 Set c = Sheets("TR±Æ¾÷&²£¥X").[B:B].Find(Arr(i, 15), , , 1)
   
8.             End If

½Æ»s¥N½X

tx00001223U.rar (766.86 KB)

¤U¸ü¦¸¼Æ: 5

2016-12-29 15:49

©p¨º¬å±¼ (¥Õ¸Ü¤å)¡A«üªº¬O¡H

c_c_lai

¦^´_ 41# starbox520
©p¤@¤U­n¥[ "*"¡A ¤@¤U¤S­n¥[ "«æ³f"¡A¨ì©³­þ¤@­Ó¬O¦n¡H

1.                 If IsDate(Arr(i, 14)) Then
   
2.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
   
3.                         '  "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹¡A ¤§«á¦A¼g¨ì Sheet1
   
4.                         '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
   
5.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
6.                             '  .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
7.                             .Cells(i, 9) = .Cells(i, 9) & "*"             '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
8.                         End If
   
9.                         
   
10.                         Set rng = Union(rng, .Rows(i))
    
11.                     End If
    
12.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æªº¿z¥X¨Ó¼g¦b¦¹
    
13.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
14.                     '  ¦pªG "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
15.                     '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
    
16.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
    
17.                         '  .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
18.                         .Cells(i, 9) = .Cells(i, 9) & "*"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
19.                     End If
    
20.                     
    
21.                     Set rng = Union(rng, .Rows(i))
    
22.                 End If

½Æ»s¥N½X

c_c_lai

¦^´_ 43# starbox520
4."U"Äæ«æ³f³æ¸¹¡A¦³¥ô¦ó­È¡A¦b"I"ÄæSchedule¥[¤W*¸¹¡A ¤§«á¦A¼g¨ìSheet1 ¡H¡H¡H

c_c_lai

¦^´_ 45# starbox520
³Q©p¥´±Ñ¤F¡I

¨º¦A§ï¦^¨Ó¡G

1.                 If IsDate(Arr(i, 14)) Then
   
2.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
   
3.                         '  "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹¡A ¤§«á¦A¼g¨ì Sheet1
   
4.                         '  4. "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W "«æ³f"¡A ¤§«á¦A¼g¨ì Sheet1
   
5.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
   
6.                         '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
7.                             .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
8.                             '  .Cells(i, 9) = .Cells(i, 9) & "*"             '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
9.                         End If
   
10.                         
    
11.                         Set rng = Union(rng, .Rows(i))
    
12.                     End If
    
13.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æªº¿z¥X¨Ó¼g¦b¦¹
    
14.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
15.                     '  ¦pªG "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
16.                     '  4. "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W "«æ³f"¡A ¤§«á¦A¼g¨ì Sheet1
    
17.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
    
18.                     '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
    
19.                         .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
20.                         '  .Cells(i, 9) = .Cells(i, 9) & "*"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
21.                     End If
    
22.                     
    
23.                     Set rng = Union(rng, .Rows(i))
    
24.                 End If

½Æ»s¥N½X

c_c_lai

¦^´_ 45# starbox520
µL»~§a¡H ½Ð¥J²ÓÀˬd¤@¹M¡I

¤U¸ü (51.26 KB)

2016-12-30 17:40

tx00001223U.rar (765.32 KB)

¤U¸ü¦¸¼Æ: 14

2016-12-30 17:41