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

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

¦^´_ 4# c_c_lai

    ¿Ã¹õ¤¤¥¡·d©w¤F!!!!
    StartUpPosition   =  2 ´N¥i¥H¤F!!XD

TOP

¦^´_ 6# starbox520
³oÃä§Ú¤£À´·N«ä
§Ú¤£¬O§â¬P¸¹§ï±¼¤F   ->   §Ú§ï¦¨XXXXX
¦ý¬O¨q¥X¨Ó¤@¼Ë¦³¬P¸¹­C~

¬O¯uªº¬Ý¤£À´·N«ä¡AXXXXX ¦ó·N¡H

TOP

¦^´_ 7# starbox520

Ū¤£¨ì¡A«üªº¬O¡H
«D±`©_©Ç¡A¬°¦ó§Ú¦Ñ¬OµLªk¤F¸Ñ©pªº¸àÄÀ¡H

TOP

¦^´_ 9# c_c_lai

¦^C¤j§Ú¥u¬O·Q¹êÅç§ËÀ´³oÃä¬O¤£¬O³o¼Ë§ï´N¯à§ïÅܧe²{¤è¦¡

§Ú¥»¨Ó­n¹êÅç§â"¬P¸¹"§ï¦¨"«æ³f"

¦ý¬Ý¨Ó¦r¦ê·|Ū¤£¨ì

©Ò¥H§Ú´NÀH«K¥´­ÓXXX¹êÅç«¢«¢

TOP

¥»©«³Ì«á¥Ñ starbox520 ©ó 2016-12-27 10:25 ½s¿è

¦^´_ 10# c_c_lai
³oÃ䪺¸Ü
¦]¬°¤§«e¸ò±z»¡¹L³o¼Ë´N¥s°µBGA
¦ý¥i¯à¦]¬°
³o­Ó¦r¦ê¤¤¶¡¦h¤FªÅ®æ
¾É­P¤£¯à§PÂ_¥L¥sBGA
³oÃ䥢ºâ¤F¡A§Ú¨S®Æ¨ì¸ê®Æ·|¦³ªÅ®æºØª¬ªpQ0Q

TOP

¦^´_ 12# starbox520
¬O±q¥kÃä°_©¹«e§ì¤T¦ì¼Æ¦r¨Ó¤ñ¸û (Right(arSh2(ct2, 2), 3) = Right(Adt_Rng.Value, 3))¡G
¨Ò¦p":  "FHC BGA" »P "VFBGA" §¡µø¬° "BGA"¡A
µLÃö¦³§_ªÅ®æ¡A ¥u­n¥k¤T½X¬O¤@¼Ë¡A±ø¥ó§Y¬°²Å¦X¡C

TOP

¦^´_ 13# c_c_lai

¤Ó©P¨ì¤F!!
§ÚÁÙ¾á¤ß³o­ÓRule¨Sµ¹§AQ0Q
§ÚÀ´¤F!!³o¼Ë´N¤£·|¦³»~¤FXD

TOP

¦^´_ 14# starbox520
  1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
  2.        .Cells(i, 9) = .Cells(i, 9) & "*"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
  3.    End If
½Æ»s¥N½X
¦pªG¤£­n * (§Y¦P¨B¥h°£­ìªþ¥[ªº * ¸¹)¡A µM«á¦A¥[¤W "«æ³f" ¨â¦r¡A
   «h¥i§ï¦¨¡G
  1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "*" Then
  2.        .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
  3.    End If
½Æ»s¥N½X
©pªº·N«ä¬O¦p¦¹¶Ü¡H

TOP

¦^´_ 15# c_c_lai

¹ï!!!
³oÃä°Ý¤@¤U
§Ú·Ó­Ó§ï¤§«á
Åܦ¨"«æ"  ¨gÅ|¥[><lll   
  1. For i = 2 To UBound(Arr)      '  UBound(Arr) = 1249 : Long
  2.            
  3.             '  (reg.test(Arr(i, 19)) : Arr(i, 19) = "TR1T0.03" (True) / = "PK1T0" (False)) : Boolean
  4.             If Arr(i, 10) = "G" And Arr(i, 18) = "R" And reg.test(Arr(i, 19)) Then
  5.                 '  N Äæ (Trackin time) ªº®É¶¡¡A¥H·í«e¨t²Î®É¶¡ + 4HRS
  6.                 If IsDate(Arr(i, 14)) Then
  7.                     If Arr(i, 14) >= Now And Arr(i, 14) < DateAdd("h", 4, Now) Then    ' ·í¤U®É¶¡ +4Hrs
  8.                         If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "«æ³f" Then
  9.                             .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
  10.                         End If
  11.                         
  12.                         Set rng = Union(rng, .Rows(i))
  13.                     End If
  14.                     '  N Ä椺ªÅ¥ÕµL¸ê®Æ
  15.                 ElseIf Len(Arr(i, 14)) = 0 Then
  16.                     '  ¦p "U" Äæ («æ³f³æ¸¹)¡A¦³¥ô¦ó­È¡A¦b "I" Äæ (Schedule) ¥[¤W * ¸¹
  17.                     If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 1) <> "«æ³f" Then
  18.                       '  .Cells(i, 9) = .Cells(i, 9) & "*"
  19.                       .Cells(i, 9) = Left(.Cells(i, 9), Len(.Cells(i, 9)) - 1) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
  20.                     End If
½Æ»s¥N½X

TOP

¦^´_ 16# starbox520
©p³o¸Ì¦³»y¯f¡AÀ³¨â­Ó³£§ï¦¨¡G
  1.    If Len(Arr(i, 21)) > 0 And Right(.Cells(i, 9), 2) <> "«æ³f" Then
  2.        .Cells(i, 9) = .Cells(i, 9) & "«æ³f"       '  ½T»{¬O§_¬°«æ³f³æ¸¹
  3.    End If
½Æ»s¥N½X
¦]¬°¥½¤G¦r¤£¬° "«æ³f"¡A¤~¥[¤W "«æ³f" ¤G¦r¡C

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD