owen06

¦^´_ 2# HenryWang123
  
§Ú¬O·|©w®ÉÅý¸ê®Æ©¹¤Ucopy°Õ¡A¥i¬O·ç¤Z~~~§Ú°±¤£¤U¨Ó§r~~~¦³¨S¦³¨ä¥L°ª¤â¯à±Ð¤@¤U«ç»ò³]©w°h³õ¾÷¨î¡AÅý¥L¯à¦b¹w©wªº®É¶¡¹L«á¡A´N¤£¦Acopy¤F¡C
Application.OnTime t2, "AutoCopy",,false   ³o­Ó»yªk¤@ª½¤£ª¾¹D¸Ó«ç»òÀ³¥Î¡C

   ¦bthisworkbook¸Ì¶K¤W

1. Private Sub Workbook_Open()
   
2. T = #10:58:00 AM#
   
3. Application.OnTime T, "AutoCopy"
   
4. End Sub

½Æ»s¥N½X

µM«á·s¼W¼Ò²Õ¡A¦A¶K¤W

1. Sub AutoCopy()
   
2. t2 = Now + TimeSerial(0, 2, 0)
   
3. Sheet1.[b8:i10].Copy
   
4. Sheet1.[b65536].End(3).Offset(1, 0).Select
   
5. If Sheet1.[b13] = "" Then Sheet1.[b13].Select
   
6. Selection.PasteSpecial xlPasteValues
   
7. Application.OnTime t2, "AutoCopy"
   
8. End Sub

½Æ»s¥N½X

owen06

¦^´_ 4# GBKEE


    ­ì¨Ó¦bapplication.ontime«e­±³]©w­ÓIF°õ¦æ±ø¥ó´N¦æ¤F¡I·PÁÂGKBEEª©¥D¤@»yÂI¿ô¹Ú¤¤¤H~~~
    ÁÂÁª©¥D¤j¤j~

owen06

¦^´_ 7# HenryWang123


    À³¸Ó¬O§ä¤£¨ìsheet1ªºÃö«Y¡A§A§â¸Ì­±ªºsheet1³£§ï¦¨sheets("xxx")À³¸Ó´N¦æ¤F¡C(xxx¬°¤u§@ªí¦WºÙ)
    §Ú¨Ï¥Îsheet1¬O¦]¬°¨S¦³§AªºÀɮסA©Ò¥H¥u¯à¥Î¦Û¤v¨Ï¥Îªº±¡¹Ò¤U¥h³]©w¡A
    ¦]¦¹§A¦b¤£¦Pªº±¡ªp¤U¡A´N·|¥X²{¿ù»~¡A§A¥²»Ý­n¦Û¤v¥h­×§ï¤u§@ªí¦WºÙ³o­Ó³¡¥÷¤~¥i¥H¡C

owen06

¦^´_ 9# HenryWang123


¦bAutoCopy¨º­Ó¼Ò²Õ¸Ìªº³Ì«á¤@¦æ
¥»¨Ó¬O¡GApplication.OnTime t2, "AutoCopy"
§â¥L§ï¦¨¡GIf Time <= #1:30:00 PM# Then Application.OnTime t2, "AutoCopy"
´N¦æ¤F¡C

owen06

¦^´_ 12# HenryWang123


    ½Ð°Ý¤è«Kªþ­ÓÀɮרӬݬݶܡH

owen06

¦^´_ 12# HenryWang123


    §Ú·Q§AÀ³¸Ó¬O°±¯d¦bsheet1¡A¦ý¬O«ü¥O«o©R¥O¥L­n¥hsheet2¶V°Ï¿ì®×¡A
    ©Ò¥H¥L´N§Ü©RÅo¡C
    §A¦pªG¬O³£¥u­ncopy¦P¤@­Ó¸ê®Æ¡A¦ý¬O¨ì¤£¦P¤u§@ªí¡A§Ú¬O«Øij§A­×§ï¦¨³o¼Ë¡A
    ¥Î¤@­Ó¼Ò²Õ´N¦n¤F¡A¥t¤@­Ó¨ú®ø±¼¡C
    ¦pªG¦³¨ä¥L°ÝÃD¡A¦A´£¥X¨Ó¤@°_°Q½×§a¡C

1. Sub AutoCopy()
   
2. t2 = Now + TimeSerial(0, 1, 0)
   
3. Application.Calculation = xlAutomatic
   
4. Sheets("sheet1").Select
   
5. Sheets("Sheet1").[a9:j11].Copy
   
6. Sheets("Sheet1").[b65536].End(3).Offset(1, 0).Select
   
7. If Sheets("Sheet1").[b13] = "" Then Sheets("Sheet1").[b13].Select
   
8. Selection.PasteSpecial xlPasteValues
   
9. Sheets("sheet2").Select
   
10. Sheets("Sheet2").[b65536].End(3).Offset(1, 0).Select
    
11. If Sheets("Sheet2").[b13] = "" Then Sheets("Sheet2").[b13].Select
    
12. Selection.PasteSpecial xlPasteValues
    
13. If Time <= #13:45:00 PM# Then Application.OnTime t2, "AutoCopy"
    
14. End Sub

½Æ»s¥N½X