GBKEE

¦^´_ 3# daniel5168
¸Õ¸Õ¬Ý

1. Sub ¦Û°Ê°O¿ý()
   
2.     Dim E As Variant, Rng As Range, t As Date, S As Integer, Shts()
   
3.     Shts = Array("Sheet1", "°Ó«~1", "°Ó«~2", "°Ó«~3") '¤u§@ªí¦b¬¡­¶Ã¯ªº¦WºÙ
   
4.     If uMode = 0 Then Exit Sub
   
5.     For Each E In Shts
   
6.         With Sheets(E)
   
7.             ' .Activate ¦¨¬°§@¥Î¤¤ªº¤u§@ªí
   
8.             If Time > TimeValue(EndTime) Then '¦¬½L®É¶¡¥H«á¤£°õ¦æ
   
9.                 .[O8] = "¤w¹L¦¬½L"
   
10.                 uMode = 0
    
11.                 GoTo For_Next 'Exit Sub
    
12.             End If
    
13.             .Range("B8") = Time '·í«e®É¶¡¡]®É¶¡½Xªí¡^
    
14.             '----------------------------------------------------------
    
15.             Set Rng = .Range("A65536").End(xlUp).Offset(1)
    
16.             .Range("A" & Rng.Row & ":N" & Rng.Row).Value = .Range("A8:N8").Value
    
17.             '------------------------------------------------
    
18.             ActiveWindow.ScrollRow = IIf(Rng.Row > 20, Rng.Row - 18, 1) 'Åý³Ì·s¸ê®Æ«O«ù¦b¥i¨£µøµ¡¤¤
    
19.             Beep
    
20.         End With
    
21. For_Next:
    
22.     Next
    
23.     '------------------------------------------------
    
24.     '¤U¤@­Ó¶¡¹jªº¤ÀÄÁ
    
25.     S = 1  '¨C¢°¤ÀÄÁ°O¿ý¡A¢´¤ÀÄÁ«h§ï¬°5
    
26.     t = Int(Application.Text(Time, "[m]") / S) + 1 '(Á`¤ÀÄÁ¼Æ/¶¡¹jªº¤ÀÄÁ¼Æ) + 1
    
27.     t = DateAdd("N", S * t, 0)                     '±q0¤ÀÄÁ«áªº T * ¶¡¹jªº¤ÀÄÁ¼Æ
    
28.     ThisWorkbook.Save   '¦sÀÉ
    
29.     Application.OnTime t, "¦Û°Ê°O¿ý"
    
30. End Sub

½Æ»s¥N½X