GBKEE

¦^´_ 1# laieven

½Ð¦A¸Ô­z­n??: 2.§Ú¦pªG§Æ±æ°O¿ýªº°µ¦¨¤£¬O³æ¯Âªº¦V¤U±Æ§Ç~~¨Ò¦p»¡¬ö¿ý20¦æ©Î3¦æ«á

1. Option Explicit
   
2. Sub ©e¶R©e½æ¬ö¿ý()
   
3.     Dim X As Worksheet
   
4.     Set X = ThisWorkbook.Sheets("¤u§@ªí1")
   
5.     'StartT = "08:44:50"
   
6.     'endt = "13:45:10"
   
7.     X.Range("a2").Value = Time
   
8.     If X.Range("h1") = 1 Then Exit Sub
   
9.     If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
   
10.         If ActiveSheet.Name <> X.Name Then X.Activate
    
11.         With X.Range("b1045786").End(xlUp).Offset(1, 0)
    
12.             .Value = Range("b1")
    
13.             .Offset(0, 1).Value = Range("c1")
    
14.             .Select
    
15.         End With
    
16.     End If
    
17.     Application.OnTime Now + TimeValue("00:00:01"), "thisworkbook.©e¶R©e½æ¬ö¿ý"
    
18. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# laieven
§A»¡: ¦Û¤v®Ú¾Ú²z¸Ñ¼g¤F¤@¬qµ{¦¡½X,¦ýªþÀɪºSub ©e¶R©e½æ¬ö¿ý()»P²Ä¤@©«ªº¤@¼Ò¤@¼Ë.
·íµM¨S¿ìªk¹F¨ì§A­nªº«O«ù¥i¨£ªº®ÄªG.