starbox520

¦^´_ 4# c_c_lai

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

c_c_lai

¦^´_ 6# starbox520
³oÃä§Ú¤£À´·N«ä
§Ú¤£¬O§â¬P¸¹§ï±¼¤F   ->   §Ú§ï¦¨XXXXX
¦ý¬O¨q¥X¨Ó¤@¼Ë¦³¬P¸¹­C~

¬O¯uªº¬Ý¤£À´·N«ä¡AXXXXX ¦ó·N¡H

c_c_lai

¦^´_ 7# starbox520

¤U¸ü (49.08 KB)

2016-12-27 10:15

Ū¤£¨ì¡A«üªº¬O¡H
«D±`©_©Ç¡A¬°¦ó§Ú¦Ñ¬OµLªk¤F¸Ñ©pªº¸àÄÀ¡H

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

c_c_lai

¦^´_ 12# starbox520
¬O±q¥kÃä°_©¹«e§ì¤T¦ì¼Æ¦r¨Ó¤ñ¸û (Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3))¡G
¨Ò¦p":  "FHC BGA" »P "VFBGA" §¡µø¬° "BGA"¡A
µLÃö¦³§_ªÅ®æ¡A ¥u­n¥k¤T½X¬O¤@¼Ë¡A±ø¥ó§Y¬°²Å¦X¡C

starbox520

¦^´_ 13# c_c_lai

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

c_c_lai

¦^´_ 14# starbox520

1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
2.        .Cells(i, 9) = .Cells(i, 9) & "*"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
3.    End If

½Æ»s¥N½X

¦pªG¤£­n * (§Y¦P¨B¥h°£­ìªþ¥[ªº * ¸¹)¡A µM«á¦A¥[¤W "«æ³f" ¨â¦r¡A
   «h¥i§ï¦¨¡G

1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
2.        .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
3.    End If

½Æ»s¥N½X

©pªº·N«ä¬O¦p¦¹¶Ü¡H

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

c_c_lai

¦^´_ 16# starbox520
©p³o¸Ì¦³»y¯f¡AÀ³¨â­Ó³£§ï¦¨¡G

1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
   
2.        .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
3.    End If

½Æ»s¥N½X

¦]¬°¥½¤G¦r¤£¬° "«æ³f"¡A¤~¥[¤W "«æ³f" ¤G¦r¡C