- ©«¤l
- 463
- ¥DÃD
- 116
- ºëµØ
- 0
- ¿n¤À
- 580
- ÂI¦W
- 0
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-4
- ³Ì«áµn¿ý
- 2017-11-13
|
¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¨}®v!ÁÂÁÂ! §A»~¸Ñ¤£¬OA2
A2¬O§ä¨ì¤µ¤Ñªº«ö¶s
©Ò¥H¸ê®Æµ{¦¡¦³»~,À³¸Ó³o¼Ë¸ÑÄÀ
«ö¸ê®Æ¶s±NX2ªº¤å¦rÅܦ¨
Äݩ󤵤ѪºÁ`©M¼Æ¦r,¦A½Æ»s
¨ìSheet1¤u§@ªíÄݩ󤵤Ѫº¦ì¸m
¤]´N¬OB8ªº¦ì¸m,©Ò¥HB8=9
¦ý¬O¤p§Ì«÷´êªºµ{¦¡°õ¦æ«áB8=¼Æ¾Ú
©Ò¥HSub ¼Æ¦r()
ActiveCell.Copy
Sheet1.Select
Range("A2").Select
ActiveSheet.Paste
End Sub
À³¸Ó¬O³o¼Ë¤lSub ¼Æ¦r()
ActiveCell.Copy
With Sheet1
Set Rng = .Cells.Find(Date, LookAt:=xlWhole)
.Select
If Not Rng Is Nothing Then Rng.Select Else MsgBox "§ä¤£¨ì¤µ¤Ñ"
End With
ActiveSheet.Paste
End Sub
¦]¦¹Range("A2").Select¬O§ä¨ì¤µ¤Ñªº¶s?
¦Ó¤£¬Oµª®×ªº¦ì¸m
½Ð¦A¨¯W«e½úÅo,ÁÂÁ¦A¤T!! |
|