- ©«¤l
- 127
- ¥DÃD
- 28
- ºëµØ
- 0
- ¿n¤À
- 160
- ÂI¦W
- 0
- §@·~¨t²Î
- W7
- ³nÅ骩¥»
- 2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-11-1
- ³Ì«áµn¿ý
- 2017-5-20
|
[µo°Ý] ½Ð°Ýn¦p¦ó §ï³oµ{¦¡½X©O?(¤£¦Pworksheets¶¡ªº³]©w)(¤w¸Ñ¨M)
¥»©«³Ì«á¥Ñ icestormer ©ó 2012-5-3 12:31 ½s¿è
Sub ±N²Ä30µ§¤W¦â()'¥Dn¬O¦b¤u§@ªí(worksheets("¥D¶")¤U ¹ï °Æ¶ ¶i¦æ ²Ä30µ§¤W¦âªº°Ê§@
Dim °Æ¶ As Worksheet
Set °Æ¶ = Worksheets("¬d¸ß")
With °Æ¶
³Ì«á¤@µ§¦ì¸m = .Cells(65536, 115).End(xlUp).Row
.Range(.Cells(³Ì«á¤@µ§¦ì¸m, 115), .Cells(³Ì«á¤@µ§¦ì¸m, 115).End(xlToRight))'.Select '<<°ÝÃD¥X¦b³o¸Ì
'¨Sªk¦b ¥D¶ ¤U ¶i¦æ ¹ï °Æ¶ ªº¤W¦â°Ê§@ ¦n¹³¥d¦b ¥Îselect ¥²»Ý¥ý¤Á´«¨ì °Æ¶¥h¤~¤£·|¥X¿ù
'¤£ª¾¦³¨S¦³¨ä¥¦¤èªk¥i¦b ¤£¥Î¤Á´«±¡ªp¤U ¥þ¿ï²Ä30¦æ«á¤W¦â?ÁÙ¬O¥²n¤Á´«¤~¦æ¤F?
With Selection.Interior
.ColorIndex = 45
End With
End With |
|