c_c_lai

¦^´_ 16# starbox520
ªþ¤W­×¥¿«á´µ{¦¡¡C
¾ã­Ó¦A¶]¤@¦¸¬Ý¬Ý¡C
tx00001223U.rar (775.78 KB)

¤U¸ü¦¸¼Æ: 1

2016-12-27 17:57

c_c_lai

¦^´_ 14# starbox520

¤U¸ü (42.62 KB)

2016-12-27 17:52

¬°¤F½Õ¾ã¹ï®æ¡A½Ð±N¤U¦Cµ{¦¡³¡¤À¦Û¦æ­×¥¿¡G

1. Private Sub lstSelector_³]©w()
   
2.     Dim i As Integer, Arr()
   
3. 
   
4.     With lstSelector             '  ** frmSelector ¤¤ªº ²Ä¤@­Ó ListBox ±±¨î¶µ (lstSelector)
   
5.         .Clear
   
6.         i = 0
   
7.         
   
8.         If Not IsEmpty(Sheets("TR±Æ¾÷&²£¥X").Sh_Ar) Then
   
9.             Arr = Sheets("TR±Æ¾÷&²£¥X").Sh_Ar
   
10.             If Not IsEmpty(Arr) Then
    
11.                 On Error Resume Next
    
12.                 i = UBound(Arr, 2)
    
13.                 If i > 0 Then
    
14.                     .List = Arr
    
15.                 Else
    
16.                     .AddItem
    
17.                     For i = 0 To UBound(Arr)
    
18.                         .List(0, i) = Arr(i + 1)
    
19.                     Next i
    
20.                 End If
    
21.             End If
    
22.         End If
    
23.     End With
    
24.    
    
25.     With ListBox1                '  ** frmSelector ¤¤ªº ²Ä¤G­Ó ListBox ±±¨î¶µ (ListBox1)
    
26.         .ColumnCount = 9
    
27.         .ColumnWidths = "75,68,97,80,43,52,75,60,65"
    
28.    End With
    
29. End Sub

½Æ»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

c_c_lai

¦^´_ 21# starbox520
©pªº´£°Ý·~¤w¶W¥X§Ú­Ó¤Hªºª¾ÃÑ»â°ì¤F¡C
³o±o½Ð±Ð¨ä¥L¤j¤j¤F¡C

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

c_c_lai

¦^´_ 21# starbox520
­×¥¿©p²Ä¤@­Ó ListBox ½Æ»sªº°ÝÃD¡A
±o¥H¦h¶µ¿ï¾Ü¨Ã¶K»s¡C

tx00001223U.rar (778.1 KB)

¤U¸ü¦¸¼Æ: 3

2016-12-28 17:58

c_c_lai

¦^´_ 23# starbox520
"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±¼¶Ü~

¥H¤W¬O­þ¤@°êªº¤åªk¡A§Ú«ç»ò¬Ý³£¬Ý¤£À´¡C

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

c_c_lai

¦^´_ 26# starbox520
­n§â³o¨ÇÂo±¼¡H
Âo±¼¬Æ»ò¡H