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

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

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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-12-29 16:17 ½s¿è

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

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

TOP

¦^´_ 39# c_c_lai


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

TOP

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

8851.gif

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-12-30 16:24 ½s¿è

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

TOP

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

TOP

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

TOP

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

TOP

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

TOP

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

tx00001223U.rar (765.32 KB)

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD