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

¦^´_ 9# c_c_lai

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

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

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

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

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

c_c_lai

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

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

starbox520

¦^´_ 4# c_c_lai

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

starbox520

¦^´_ 4# c_c_lai


    µo²{ªÅ®æªº¸Ü
    ¦n¹³´NŪ¤£¨ì¤F
   

¤U¸ü (32.96 KB)

2016-12-27 09:12

   UserFormªº¦ì¸m¦pªG­nÅý¦o¦b¿Ã¹õ¥¿¤¤¶¡­n§ï­þ¸Ì©O

1. Private Sub UserForm_Initialize()
   
2.     StartupPosition = 0
   
3.     Top = 0
   
4.     Left = Windows(1).Width - Width
   
5.     lstSelector_³]©w
   
6. End Sub

½Æ»s¥N½X

starbox520

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, 14)) Then
    
21.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
    
22.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "XXXXXX" Then
    
23.                             .Cells(i, 9) = .Cells(i, 9) & "XXXXXX"       '  ½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, 14)) = 0 Then
    
30.                     '  ¦p "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
31.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "XXXXXXXX" Then
    
32.                         .Cells(i, 9) = .Cells(i, 9) & "XXXXXX"
    
33.                     End If
    
34.                     
    
35.                     Set rng = Union(rng, .Rows(i))
    
36.                 End If
    
37.             End If
    
38.         Next
    
39.     End With
    
40.    
    
41.     With Worksheets("Sheet1")
    
42.         .[A1].CurrentRegion.ClearContents      '  ²M°£¤W¤@¦¸ªºµe­±
    
43.         rng.Copy .Range("A1")
    
44.     End With
    
45. End Sub

½Æ»s¥N½X

¦^´_ 4# c_c_lai


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

starbox520

¦^´_ 4# c_c_lai


    «¢«¢§â§Ú¶Ã¤C¤KÁVªº§ïªº¦n¦³³W«ß
    §Ú©ú¤Ñ§ó·s¸ê®Æ¬Ý¬Ý
    ¬Ý­þÃäÁÙ¥X¿ùXD

c_c_lai

¦^´_ 1# starbox520
¾ã°¦µ{¦¡¥]§t "lstSelector_³]©w()" ¡B
ArrangeMent()¡BWIP() ¦b¤º³£¦³­×¥¿¹L¡C

¤U¸ü (102.62 KB)

2016-12-26 18:52

c_c_lai

¦^´_ 2# starbox520
¸Õ¸Õ¬Ý¡I
tx00001223U.rar (779.44 KB)

¤U¸ü¦¸¼Æ: 8

2016-12-26 17:43

¾ãÅé¥þ³¡¸Õ§¹«á§i¶D§Úµ²ªG¡C