starbox520

¦^´_ 31# c_c_lai

¿ý»s¥¨¶°ªº¸Üªø³o¼Ë~
¥u¬O¤Ï¦V«ä¦Ò
¿ý»s¥¨¶°¬O«O¯d­nªº¸ê°T

¦ý³oÃä§Úªº·Qªk¬O¿z±¼§Ú¤£­nªº
´N«e´X½g»¡ªº¨º¼Ë
µM«á¨º¨Ç¤£­nªº´N¬O±q"TR±Æ¾÷&²£¥X"ªºBÄæ¨ú¥X¨Óªº

1. Sub ¥¨¶°1()
   
2. '
   
3. ' ¥¨¶°1 ¥¨¶°
   
4. '
   
5. 
   
6. '
   
7.     ActiveWindow.SmallScroll ToRight:=5
   
8.     ActiveSheet.Range("$A$1:$AA$1984").AutoFilter Field:=15, Criteria1:=Array( _
   
9.         "5F", "BK10A2", "BK2151", "BK2161", "BK2162", "BK2172", "BK2181", "BK2182", "BK2191", _
   
10.         "BK2192", "BK2201", "BK2202", "BK2211", "BK2212", "BK2232", "BK3041", "BK3071", _
    
11.         "BK3101", "BK3111", "BK3121", "BK3131", "BK3141", "BK3151", "BK3171", "BK3181", _
    
12.         "BK3191", "BK3201", "BK3211", "BK3231", "BK3251", "BK3261", "BK3271", "BKQ011", _
    
13.         "BKQ012", "BKQ022", "BKQ023", "BKQ031", "BKQ042", "BKQ052", "BKQ053", "BKQ061", _
    
14.         "BKQ062", "BKQ064", "BKQ071", "BKQ072", "BKQ101", "BKQ102", "BKQ121", "BKQ122", _
    
15.         "KQ2051", "KQ7031", "MVM031", "MVM071", "PPK011", "="), Operator:=xlFilterValues
    
16. End Sub

½Æ»s¥N½X

c_c_lai

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

starbox520

¦^´_ 29# c_c_lai


    ¹ïªü
¥i¬O¤£¬O²MªÅ³á
¬O§Ú¦C¥Xªº¨º¨Ç¦r¦ê¿z±¼´N¦n  ¨ä¥LªºÁÙ¬O­n¯dµÛ³á~

c_c_lai

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

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Äæ

c_c_lai

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

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

¦^´_ 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

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

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