A1¤U©Ô¿ï³æ¡A²Å¦X¬Y²£«~±±¨î¤£¯à¿é¤J¸ê®Æ¡A©³¦âÅܤôÂÅ
| ©«¤l44 ¥DÃD25 ºëµØ0 ¿n¤À74 ÂI¦W0  §@·~¨t²Îwin7 ³nÅ骩¥»office2007 ¾\ŪÅv20 ©Ê§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
 ÁÂÁÂ
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l561 ¥DÃD160 ºëµØ0 ¿n¤À725 ÂI¦W0  §@·~¨t²ÎWINDOWS ³nÅ骩¥»xp ¾\ŪÅv50 ©Ê§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
 | 
 | 
| ù | 
|  |  | 
|  |  |