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

A1¤U©Ô¿ï³æ¡A²Å¦X¬Y²£«~±±¨î¤£¯à¿é¤J¸ê®Æ¡A©³¦âÅܤôÂÅ

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
ÁÂÁÂ

¸Õ¸Õ

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
ù

TOP

        ÀR«ä¦Û¦b : ¦Û¤v®`¦Û¤v¡A²ö¹L©ó¶ÃµoµÊ®ð¡C
ªð¦^¦Cªí ¤W¤@¥DÃD