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

HenryWang123

¤U¸ü (161.48 KB)

2014-5-26 11:07

¤j®a¦n¡A§Ú¬O§¹¥þ¤£À´µ{¦¡¥æ©öªº·s¤â¡A·Ð½Ð¦U¦ì°ª¤â«e½ú«ü¾É¤F~

¹Ï¤ù¤¤¬õ¦â®Ø®Ø¤w¸g³]©w¥i¥H¸ò¥ÃÂ×Eleader³s½u¡A¼Æ¦r·|¦Û°Ê§ó·s¡C

¥Ø«e§Ú·Q­n¨C¨â¤ÀÄÁ±N¤W­±ÂŦâ®Ø®Øªº¼Æ¾Ú¦Û°Ê¬ö¿ý¦b¤U¤è³W©w®É¶¡®Çªº°Ï°ì¡A½Ð°Ý§Ú¸Ó¦p¦ó¿é¤J»yªk¡A©ÎªÌ¬O¦p¦ó¾Þ§@©O ?

³Â·Ð¦U¦ì«e½ú«ü¾É¤F:loveliness:

HenryWang123

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

c_c_lai

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

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

f3202

¦^´_ 14# HenryWang123

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

HenryWang123

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

¤U¸ü¦¸¼Æ: 11

2014-6-5 16:06

³Â·ÐÅo

owen06

¦^´_ 12# HenryWang123


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

HenryWang123

¤U¸ü (157.46 KB)

2014-6-5 10:44

¤U¸ü (180.76 KB)

2014-6-5 10:50

³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 ?

HenryWang123

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

owen06

¦^´_ 9# HenryWang123


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