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 |
|
ù
|
|
|
|
|