- ©«¤l
- 38
- ¥DÃD
- 14
- ºëµØ
- 0
- ¿n¤À
- 58
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-22
- ³Ì«áµn¿ý
- 2020-3-9
|
[µo°Ý] 2ÓEXCEL°õ¦æ°ÝÃD(«e´ºI´º)½Ð±Ð
¥»©«³Ì«á¥Ñ bqwangs ©ó 2014-8-4 17:09 ½s¿è
§Ú¦³2ÓEXCEL·|¦P®É¶}±Ò
§Ú¦³¥Î¤ô¥¨Ã±Æ¤F ¦p¹Ï
¦ý§Ú¥®É·|Åýbook1Àɦb¤W±
book2ÀÉ·|¦b¤U¤è¨C¤ÀÄÁ°õ¦æ¤@¦¸VB½X
n¦p¦óÅý¥L¤£¼vÅTbook1
¦Óbook2¯à¥¿±`¦b«á±°õ¦æ
½Ð°Ýn¦p¦ó×§ïbook2¸Ìªºµ{¦¡½X
´Á«Ý¦U¦ì¤j¤jªº¦^ÂÐ
book2 µ{¦¡¦p¤U- Private Sub Workbook_Open()
- Start
- End Sub
- Sub Start()
- '
- t = Now + TimeValue("00:01:00")
- Application.OnTime t, "Macro7"
-
- End Sub
- Sub Macro7()
- Application.ScreenUpdating = False
- Range("G8").Select
- Selection.Copy
- Range("G7").Select
- ActiveSheet.Paste
- Call Start
- Application.ScreenUpdating = True
- End Sub
½Æ»s¥N½X |
|