starbox520

¦^´_ 36# c_c_lai
C¤j±z³o³¡¤À¬O¥u¬å±¼  TR±Æ¾÷&²£¥X  B Äæ©Ò¦³¸ê°T  Äæ«á«O¯d³Ñ¤Uªº+ªÅ¥Õ ¸ê°T¶Ü

c_c_lai

¦^´_ 38# starbox520

1.         For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
   
2.             '  °õ¦æ "WIP" ®É¡A¥ý¦æ¹LÂo "TR±Æ¾÷&²£¥X"¡A ÀË®Ö¸Ó "¾÷¥x" ¬O§_¤w³Q¨Ï¥Î¡A
   
3.             '  ¦pªG¤w³Q¨Ï¥Î«h¤©¥H±Æ°£¦b¥~¡A¤£¦A­«½Æ¿ï¥Î¡C
   
4.             If IsEmpty(Arr(i, 15)) Then
   
5.                 Set c = Nothing
   
6.             Else
   
7.                 Set c = Sheets("TR±Æ¾÷&²£¥X").[B:B].Find(Arr(i, 15), , , 1)
   
8.             End If

½Æ»s¥N½X

tx00001223U.rar (766.86 KB)

¤U¸ü¦¸¼Æ: 5

2016-12-29 15:49

©p¨º¬å±¼ (¥Õ¸Ü¤å)¡A«üªº¬O¡H

starbox520

¦^´_ 39# c_c_lai


    ¥Õ¸Ü¤å´N¬O
    C¤jªºµª®×¬O¹ïªº

starbox520

¦^´_ 36# c_c_lai


    C¤j±zµ¹ªºµ{¦¡
    ¸ò§Ú¤â°Ê¿zªºµª®×¦n¹³¦³®t²§??
    ·Pı¦n¹³­þ¸Ì¦³°ÝÃD

1.SÄæ¿z¥XLS1T|LS1N|TR|BK|VQ ¦r¦ê¡A¨ä¾lªº¤£­n
2.§ä¨ìTR±Æ¾÷&²£¥Xªº"B"Äæ  ¸ê°T¡A¦b¨Ó§â§ì¨ìªº¸ê°T®³¥h¤ñ¹ïWIPªº"O"Äæ(°õ¦æ "WIP" ®É¡A¥ý¦æ¹LÂo "TR±Æ¾÷&²£¥X"¡A ÀË®Ö¸Ó "¾÷¥x" ¬O§_¤w³Q¨Ï¥Î   '  ¦pªG¤w³Q¨Ï¥Î«h¤©¥H±Æ°£¦b¥~¡A¤£¦A­«½Æ¿ï¥Î¡C)
2.±NJÄ檺"G"RÄ檺"R"¿z¥X¨Ó¡A¨ä¾lªº¤£­n
3.'NÄ檺®É¶¡¡A¥H·í«e¨t²Î®É¶¡ + 4HRS ¤º ¿z¥X¨Ó¡AªÅ¥ÕµL®É¶¡¸ê®Æªº¿z¥X¨Ó¡A¨ä¾lªº¤£­n(¨ä¾lªº«ü¤£¦b³o4HRS¥H¤ºªº¸ê®Æ)
4."U"Äæ«æ³f³æ¸¹¡A¦³¥ô¦ó­È¡A¦b"I"ÄæSchedule¥[¤W*¸¹¡A ¤§«á¦A¼g¨ìSheet1

¿ý»s¹Lµ{¤¤¡A¦]©ÈÀɮפӤj
©Ò¥H¤@¶}©l´N¦³¥ý¾ã²z¨C­Ó±ø¥ó³Ñ¤Uªº¸ê°T

¤U¸ü (960.77 KB)

2016-12-30 15:44

c_c_lai

¦^´_ 41# starbox520
©p¤@¤U­n¥[ "*"¡A ¤@¤U¤S­n¥[ "«æ³f"¡A¨ì©³­þ¤@­Ó¬O¦n¡H

1.                 If IsDate(Arr(i, 14)) Then
   
2.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
   
3.                         '  "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹¡A ¤§«á¦A¼g¨ì Sheet1
   
4.                         '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
   
5.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
6.                             '  .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
7.                             .Cells(i, 9) = .Cells(i, 9) & "*"             '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
8.                         End If
   
9.                         
   
10.                         Set rng = Union(rng, .Rows(i))
    
11.                     End If
    
12.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æªº¿z¥X¨Ó¼g¦b¦¹
    
13.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
14.                     '  ¦pªG "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
15.                     '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
    
16.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
    
17.                         '  .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
18.                         .Cells(i, 9) = .Cells(i, 9) & "*"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
19.                     End If
    
20.                     
    
21.                     Set rng = Union(rng, .Rows(i))
    
22.                 End If

½Æ»s¥N½X

starbox520

¦^´_ 42# c_c_lai


    ¦^C¤j  ¬O¥["«æ³f"
    §Ú¦C¥Xªº¬O§Ú·íªì³]­pªº¼Ò¦¡
    «æ³f»PC¤jÀ°¦£·s¼Wªº2. "¾÷¥x" ¬O§_¤w³Q¨Ï¥Î   '  ¦pªG¤w³Q¨Ï¥Î«h¤©¥H±Æ°£¦b¥~¡A¤£¦A­«½Æ¿ï¥Î
    §Ú¬OÃhºÃ°ÝÃD¥X¦b§Ú¤§«e³]­pªºµ{¦¡½XQQ

c_c_lai

¦^´_ 43# starbox520
4."U"Äæ«æ³f³æ¸¹¡A¦³¥ô¦ó­È¡A¦b"I"ÄæSchedule¥[¤W*¸¹¡A ¤§«á¦A¼g¨ìSheet1 ¡H¡H¡H

starbox520

¦^´_ 44# c_c_lai
¦^C¤j4ªº³¡¤À¬O§Ú¤@¶}©lªº¼gªk
«á¨Ó§ï¦¨±zªº+"«æ³f"
©Ò¥HÅܦ¨4. U"Äæ«æ³f³æ¸¹¡A¦³¥ô¦ó­È¡A¦b"I"ÄæSchedule¥[¤W"«æ³f"¡A ¤§«á¦A¼g¨ìSheet1

c_c_lai

¦^´_ 45# starbox520
³Q©p¥´±Ñ¤F¡I

¨º¦A§ï¦^¨Ó¡G

1.                 If IsDate(Arr(i, 14)) Then
   
2.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
   
3.                         '  "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹¡A ¤§«á¦A¼g¨ì Sheet1
   
4.                         '  4. "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W "«æ³f"¡A ¤§«á¦A¼g¨ì Sheet1
   
5.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
   
6.                         '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
   
7.                             .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
8.                             '  .Cells(i, 9) = .Cells(i, 9) & "*"             '  ½T»{¬O§_¬°«æ³f³æ¸¹
   
9.                         End If
   
10.                         
    
11.                         Set rng = Union(rng, .Rows(i))
    
12.                     End If
    
13.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æªº¿z¥X¨Ó¼g¦b¦¹
    
14.                 ElseIf Len(Arr(i, 14)) = 0 Then
    
15.                     '  ¦pªG "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
    
16.                     '  4. "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W "«æ³f"¡A ¤§«á¦A¼g¨ì Sheet1
    
17.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
    
18.                     '  If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
    
19.                         .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
20.                         '  .Cells(i, 9) = .Cells(i, 9) & "*"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
    
21.                     End If
    
22.                     
    
23.                     Set rng = Union(rng, .Rows(i))
    
24.                 End If

½Æ»s¥N½X

c_c_lai

¦^´_ 45# starbox520
µL»~§a¡H ½Ð¥J²ÓÀˬd¤@¹M¡I

¤U¸ü (51.26 KB)

2016-12-30 17:40

tx00001223U.rar (765.32 KB)

¤U¸ü¦¸¼Æ: 14

2016-12-30 17:41