ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] µo°Ý : ¦p¦ó³]©w¯à¦b³W©wªº®É¶¡¬ö¿ý¸ê®Æ

µo¦Û¤º¤ßªº·PÁ±z

TOP





³oÃä¹J¨ì¤@­Óª¬ªp»Ý­n¦A½Ð±Ð¦U¦ì¡A´N¬O·Q­n¦b" Sheet1 "©M" Sheet2 " °õ¦æ¦P¼Ëªº°Ê§@¡A¦ý¬O«oµLªk°õ¦æ¡A½Ð°Ý¸Ó«ç»ò¸Ñ¨M©O?

§Úªº°Ê§@¬O«ö°õ¦æ > ¿ï°õ¦æmodule 1 > °õ¦æ¤@­Ó°Ê§@«á¡A¤U¤@¦¸­ncopy®É´N¥X²{"µo²{¤£½T©w¦WºÙ"ªº³o­Ó°ÝÃD¤F

¦pªG§Ú¿ï°õ¦æmodule 1 > ±µµÛ¦A¿ï°õ¦æ¿ï°õ¦æmodule 2 > ´N·|¶i¦æ°»¿ù

­n½Ð±Ð¦U¦ì¸Ó¦p¦ó¸Ñ¨M©O ?

TOP

¦^´_ 12# HenryWang123


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

TOP

µ{¦¡»PÄw½X­ì½Z.rar (360.76 KB)

³Â·ÐÅo

TOP

¦^´_ 14# HenryWang123

À³¬O¨S«ü©w sheet1 ©Î sheet2

TOP

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2014-6-6 08:51 ½s¿è

¦^´_ 14# HenryWang123
¸Õ¸Õ¬Ý¡I
ThisWorkbook:
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     Dim T As Date
  4.    
  5.     T = #8:47:00 AM#
  6.     Application.OnTime T, "Module1.AutoCopy"
  7. End Sub
½Æ»s¥N½X
Module1:
  1. Option Explicit
  2. Sub AutoCopy()
  3.     Dim t2 As Date
  4.     Dim i As Integer, sht As String
  5.    
  6.     i = 0
  7.     While i < 2
  8.         i = i + 1
  9.         t2 = Now + TimeSerial(0, 2, 0)
  10.         sht = IIf(i = 1, "Sheet1", "Sheet2")
  11.         With Sheets(sht)
  12.             .Select
  13.             .[a9:j11].Copy
  14.             .[b65536].End(3).Offset(1, 0).Select
  15.             If .[b13] = "" Then .[b13].Select
  16.             Selection.PasteSpecial xlPasteValues
  17.         End With
  18.     Wend
  19.     If Time <= #1:45:00 PM# Then Application.OnTime t2, "Module1.AutoCopy"
  20. End Sub
½Æ»s¥N½X

TOP

«Ü¶¶§Qªº¹B¦æ~ÁÂÁ¨â¦ìªº¼ö¤ßÀ°¦£~

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD