ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¦h±ø¥ó¿z¿ï&ListBox

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

TOP

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

TOP

¦^´_ 29# c_c_lai


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

TOP

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

TOP

¦^´_ 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.     ActiveWindow.SmallScroll ToRight:=5
  7.     ActiveSheet.Range("$A$1:$AA$1984").AutoFilter Field:=15, Criteria1:=Array( _
  8.         "5F", "BK10A2", "BK2151", "BK2161", "BK2162", "BK2172", "BK2181", "BK2182", "BK2191", _
  9.         "BK2192", "BK2201", "BK2202", "BK2211", "BK2212", "BK2232", "BK3041", "BK3071", _
  10.         "BK3101", "BK3111", "BK3121", "BK3131", "BK3141", "BK3151", "BK3171", "BK3181", _
  11.         "BK3191", "BK3201", "BK3211", "BK3231", "BK3251", "BK3261", "BK3271", "BKQ011", _
  12.         "BKQ012", "BKQ022", "BKQ023", "BKQ031", "BKQ042", "BKQ052", "BKQ053", "BKQ061", _
  13.         "BKQ062", "BKQ064", "BKQ071", "BKQ072", "BKQ101", "BKQ102", "BKQ121", "BKQ122", _
  14.         "KQ2051", "KQ7031", "MVM031", "MVM071", "PPK011", "="), Operator:=xlFilterValues
  15. End Sub
½Æ»s¥N½X

TOP

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

TOP

¦^´_ 33# c_c_lai


    ´N¬O§Ú¦b³o¸Ìªºµ{¦¡½X
  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
²{¦bªº¨BÆJ¬O
     ¿z¿ïJÄæ¶ë¿ï¥u¦³Gªº¸ê®Æ
     RÄæ¶ë¿ï¥u¦³Rªº¸ê®Æ
     SÄæ¶ë¿ï¦³LS1T¡C LS1N¡C TR¡C BK¡C VQªº¦r¦ê
     NÄ榳®É¶¡¸ê®Æªº¥H²{¦b®É¶¡+ 4¤p®É¥H¥~³£¥h°£±¼¡]EX²{¦b12ÂI¡A12-16ªº¸ê®Æ¯d¤U¡A¦]WIP­¶­±¨C¤Ñ·|§ó·s¡^¡AªÅ¥Õ¸ê®Æ¯d¤U
     ­YUÄ榳¦r¦bIÄæÅ㤺®e«á­±+¤W*¸¹
   
­n¦h¥[¤@¶µ¿z¿ï
²{¦b·Q¥[¤@­Ó´N¬O¡A«e´X½g»¡©úªº
Åܦ¨§Ú¿z§¹
JÄæ¶ë¿ï¥u¦³Gªº¸ê®Æ
RÄæ¶ë¿ï¥u¦³Rªº¸ê®Æ«á
¦b¨Ó¿z¿ï§Ú­n·s¼Wªº±ø¥ó
¦b¿zSÄæ¶ë¿ï¦³LS1T¡C LS1N¡C TR¡C BK¡C VQªº¦r¦ê
.......(«á­±¤£ÅÜ)

­n·s¼Wªº±ø¥ó¬°:
WIPªº"O"Ä椺®e·|¦³TR±Æ¾÷&²£¥Xªº"B"Äæ  ¸ê°T
²{¦b­n°µªº´N¬O¥ý¥h§ä¨ìTR±Æ¾÷&²£¥Xªº"B"Äæ  ¸ê°T¡A¸ê°T·N«ü(SQH011 . SQH021...............SQ10A1) ³o¨Ç¦r¦ê  
¦b¨Ó§â§ì¨ìªº¸ê°T®³¥h¤ñ¹ïWIPªº"O"Äæ
§ä¨ì¬Û¦Pªº¦r¦ê¨º¤@¾ã¦C³£¥h°£±¼¡A´«¥y¸Ü»¡´N¬O­n«O¯d°£¤F³o¨Ç¦r¦ê¥H¥~ªº³¡¤À

TOP

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

TOP

¦^´_ 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.             '  ±N J Äæ (Bin Code) ªº "G"¡B R Äæ (Close Type) ªº "R" ¿z¥X¨Ó¡A¨ä¾lªº¤£­n
  22.             '  ±N S Äæ (Recipe) ¿z¥X LS1T | LS1N | TR | BK | VQ ¦r¦ê¡A¨ä¾lªº¤£­n
  23.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
  24.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) And c Is Nothing Then
½Æ»s¥N½X

TOP

¦^´_ 35# c_c_lai


    ªÅ¥Õªº­n¯dµÛ
   §Úªº³o¤@Äæ¸Ì­±ÁÙ¬O¦³«Ü¦h¸ê®Æªº®º
    WIP¸Ì­±¦³1900¦hµ§¸ê®Æ

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD