A1¤U©Ô¿ï³æ¡A²Å¦X¬Y²£«~±±¨î¤£¯à¿é¤J¸ê®Æ¡A©³¦âÅܤôÂÅ
 
- ©«¤l
 - 44 
 - ¥DÃD
 - 25 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 74 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - win7 
 - ³nÅ骩¥»
 - office2007 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - µù¥U®É¶¡
 - 2010-6-24 
 - ³Ì«áµn¿ý
 - 2023-9-21 
 
  | 
 A1¤U©Ô¿ï³æ¡A²Å¦X¬Y²£«~±±¨î¤£¯à¿é¤J¸ê®Æ¡A©³¦âÅܤôÂÅ
                
A             B             C              D 
1 ²£«~        ¼Æ¶q        ³æ»ù        Á`»ù 
2 ¾ï¤l          2             ¤£¥Î¿é¤J         
3 Ä«ªG          3                 13                 39 
4 »ñ±ù          1                 18                18 
5 ¾ï¤l          6             ¤£¥Î¿é¤J         
6 ©_²§ªG          3                21            63 
 
¤j®a¦n¡G 
§Ú¦³¤@Ó²£«~ªí®æ¡A¨ä¤¤²£«~¬O¤U©Ô¦¡¿ï³æ¡A·í¿ï¾Ü¨ì"¾ï¤l"²£«~®É¡A³æ»ùÄæ¦ìn¥X²{"¤£¥Î¿é¤J"¨Ã±±¨î¤£¯à¿é¤J¥BÀx¦s®æ©³¦âÅܬ°"¤ôÂŦâ" 
½Ð±Ð¦p¦ó³]©w±ø¥ó¡C 
ÁÂÁÂ |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 | 
 
- ©«¤l
 - 561 
 - ¥DÃD
 - 160 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 725 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - WINDOWS 
 - ³nÅ骩¥»
 - xp 
 - ¾\ŪÅv
 - 50 
 - ©Ê§O
 - ¨k 
 - ¨Ó¦Û
 - ®ç¶é 
 - µù¥U®É¶¡
 - 2014-9-10 
 - ³Ì«áµn¿ý
 - 2024-8-7 
 
     
 | 
                
¸Õ¸Õ 
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
 With Sheet1.Range("C:C") 
 X = Sheet1.[A65536].End(xlUp).Row 
 For M = 2 To X 
 If Sheet1.Cells(M, 1) Like "*¾ï¤l*" Then 
 ' If 1 = 1 Then 
   Sheet1.Cells(M, 3) = "¤£¥Î¿é¤J" 
   Sheet1.Cells(M, 3).Interior.ColorIndex = 34 
  End If 
 Next 
End With 
End Sub |   
 
 
 
 | 
| 
 ù 
 | 
 | 
 | 
 | 
 |