GBKEE

¦^´_ 10# junsean
If Time <= TimeValue("08:59:00") Then   
      Range("A3:I50000") = ""                  '²Ä¤@¦¸±ø¥ó¦¨¥ß®É°õ¦æ ¦p¦¹
ElseIf  Time >= TimeValue("09:00:00") And Time <= TimeValue("13:32:30") Then   
          ar = Array([A2], [B2], [C2], [D2], [E2], [F2], [G2], [H2], [I2])  '¥u¦³9­Ó¤¸¯À  
          [A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
          Application.OnTime Time + TimeSerial(0, 0, 10), "yy"       '³o¸Ì´N¤£°õ¦æ¤F
End If

1. Sub yy()
   
2.     With Sheet1
   
3.         If Time <= TimeValue("08:59:00") Then
   
4.            .Range("A3:I50000") = ""
   
5.            Application.OnTime TimeSerial(9, 0, 0), "yy"
   
6.         End If
   
7.         If Time >= TimeValue("09:00:00") And Time <= TimeValue("13:32:30") Then
   
8.             ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], .[H2], .[I2],.[J2])
   
9.             .[A65536].End(xlUp).Offset(1, 0).Resize(, 10) = ar
   
10.             Application.OnTime Time + TimeSerial(0, 0, 10), "yy"
    
11.         End If
    
12.     End With
    
13. End Sub
    
14. Sub xx()
    
15.     With Sheet2
    
16.         If Time <= TimeValue("08:44:00") Then
    
17.             .Range("A3:J50000") = ""
    
18.             Application.OnTime TimeSerial(9, 0, 0), "xx"
    
19.         End If
    
20.         If Time >= TimeValue("08:45:00") And Time <= TimeValue("13:45:00") Then
    
21.             ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2])
    
22.             .[A65536].End(xlUp).Offset(1, 0).Resize(, 7) = ar
    
23.             Application.OnTime Time + TimeSerial(0, 1, 0), "xx"
    
24.         End If
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 12# junsean
¦p¤£¬O¦b¼Ò²Õ »Ý«ü©ú¥X³B
Application.OnTime TimeSerial(9, 0, 0), "SHEET1.yy"
Application.OnTime TimeSerial(9, 0, 0), "SHEET2.XX"

GBKEE

¦^´_ 14# junsean
ªþÀɨӬݬÝ

GBKEE

Ãö±¼excel¤S¦Û°Ê¶} ¤@ª½³£Ãö¤£±¼
junsean µoªí©ó 2010-10-20 09:58

Ãö±¼¾ã­Ó Excel µ{¦¡ APPLICATION.ONTIME ¤~·|°±¤î

GBKEE

¦^´_ 18# junsean
¦A¥[¤W Sub AUTO_OPEN() ¦sÀÉ«á ¨C¦¸¦A¶}±Ò´N¥i¥H

1. Sub AUTO_OPEN()
   
2.     yy
   
3.     xx
   
4. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# junsean
¹ïªº
©Î¬O¦bThisWorkbook ¼Ò²Õªº Private SubWorkbook_Open() ¤]¥i¥H

1. Private Sub Workbook_Open()
   
2.     yy
   
3.     xx
   
4. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 24# junsean
ªþÀɨӬݬÝ

GBKEE

¦^´_ 26# junsean
¤@¦¸°O¿ý3µ§­«½Æªº¼Æ¾Ú ¤£·|§r! ·|¤£·|¬O§Aªº¼Æ¾Ú¨S¦³Åܰʪº¿ùı.
¤w¥[¤W®É¶¡Äæ,§A²{¦b¨ì23:45:00«e¥i´ú¸Õ¬Ý¬Ý.
   

1. Sub yy()
   
2.     With Sheet1
   
3.         If Time <= TimeValue("08:44:50") Then
   
4.            .Range("A3:G50000") = ""
   
5.            Application.OnTime TimeSerial(8, 45, 0), "yy"
   
6.         End If
   
7.         If Time >= TimeValue("08:45:00") And Time <= TimeValue("23:45:00") Then
   
8.             ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], Time)
   
9.             .[A65536].End(xlUp).Offset(1, 0).Resize(, 8) = ar
   
10.             Application.OnTime Time + TimeSerial(0, 0, 10), "yy"
    
11.         End If
    
12.     End With
    
13. End Sub
    
14. Sub xx()
    
15.     With Sheet2
    
16.         If Time <= TimeValue("08:59:50") Then
    
17.             .Range("A3:J50000") = ""
    
18.             Application.OnTime TimeSerial(9, 0, 0), "xx"
    
19.         End If
    
20.         If Time >= TimeValue("09:00:00") And Time <= TimeValue("23:32:10") Then
    
21.             ar = Array(.[A2], .[B2], .[C2], .[D2], .[E2], .[F2], .[G2], .[H2], .[I2], .[J2], Time)
    
22.             .[A65536].End(xlUp).Offset(1, 0).Resize(, 11) = ar
    
23.             Application.OnTime Time + TimeSerial(0, 1, 0), "xx"
    
24.         End If
    
25.     End With
    
26. End Sub

½Æ»s¥N½X