c_c_lai

¦^´_ 7# starbox520

¤U¸ü (49.08 KB)

2016-12-27 10:15

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

c_c_lai

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

c_c_lai

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

c_c_lai

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

c_c_lai

¦^´_ 16# starbox520
ªþ¤W­×¥¿«á´µ{¦¡¡C
¾ã­Ó¦A¶]¤@¦¸¬Ý¬Ý¡C
tx00001223U.rar (775.78 KB)

¤U¸ü¦¸¼Æ: 1

2016-12-27 17:57

c_c_lai

¦^´_ 14# starbox520

¤U¸ü (42.62 KB)

2016-12-27 17:52

¬°¤F½Õ¾ã¹ï®æ¡A½Ð±N¤U¦Cµ{¦¡³¡¤À¦Û¦æ­×¥¿¡G

1. Private Sub lstSelector_³]©w()
   
2.     Dim i As Integer, Arr()
   
3. 
   
4.     With lstSelector             '  ** frmSelector ¤¤ªº ²Ä¤@­Ó ListBox ±±¨î¶µ (lstSelector)
   
5.         .Clear
   
6.         i = 0
   
7.         
   
8.         If Not IsEmpty(Sheets("TR±Æ¾÷&²£¥X").Sh_Ar) Then
   
9.             Arr = Sheets("TR±Æ¾÷&²£¥X").Sh_Ar
   
10.             If Not IsEmpty(Arr) Then
    
11.                 On Error Resume Next
    
12.                 i = UBound(Arr, 2)
    
13.                 If i > 0 Then
    
14.                     .List = Arr
    
15.                 Else
    
16.                     .AddItem
    
17.                     For i = 0 To UBound(Arr)
    
18.                         .List(0, i) = Arr(i + 1)
    
19.                     Next i
    
20.                 End If
    
21.             End If
    
22.         End If
    
23.     End With
    
24.    
    
25.     With ListBox1                '  ** frmSelector ¤¤ªº ²Ä¤G­Ó ListBox ±±¨î¶µ (ListBox1)
    
26.         .ColumnCount = 9
    
27.         .ColumnWidths = "75,68,97,80,43,52,75,60,65"
    
28.    End With
    
29. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 21# starbox520
©pªº´£°Ý·~¤w¶W¥X§Ú­Ó¤Hªºª¾ÃÑ»â°ì¤F¡C
³o±o½Ð±Ð¨ä¥L¤j¤j¤F¡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

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

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