GBKEE

¦^´_ 3# wells330
¦P¦b¤@¤u§@ªíªºµ{¦¡½X
½Ð°Ý SHEET2.EX ÁÙ¬O SHEET3.EX

1. Option Explicit
   
2. Dim Stop_Msg As Boolean   '¹w³]­È¬O  False
   
3. Sub Ex_Stop()  '¦b¤u§@ªí³]¥ß¤@ª«¥ó(«ö¶s,§Ö¨ú¹Ï¤ù..)±N¥¨¶°«ü¦V¦¹µ{§Ç
   
4.     If Stop_Msg = False Then      '°±¤î Exµ{§Ç
   
5.         Stop_Msg = True
   
6.     Else                          '¦pExµ{§Ç°±¤î®É ¥i«ì´_ Exµ{§Ç°õ¦æ
   
7.         Stop_Msg = False
   
8.         Ex
   
9.     End If
   
10. End Sub
    
11. Sub Ex()
    
12.     Dim Rng As Range, Rng1 As Range, i%
    
13.     If Stop_Msg Then Exit Sub         'Stop_Msg = True   °±¤î Exµ{§Ç
    
14.     If Time < TimeValue("09:00:00") Then
    
15.         Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"   '½Ð°Ý SHEET2.EX ÁÙ¬O SHEET3.EX
    
16.         Exit Sub
    
17.     ElseIf Time >= TimeValue("13:35:30") Then Exit Sub
    
18.     End If
    
19.     Set Rng = Sheets("SHEET2").Range("B309:Z309")
    
20.     Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
    
21.     Rng1 = Time
    
22.     Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
    
23.     Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX" '½Ð°Ý SHEET2.EX ÁÙ¬O SHEET3.EX
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# wells330
SHEET2.EX ÁÙ¬O SHEET3.EX ¥u¬O´£¿ô§Aªºµ§»~
"Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"
Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX""
§ï¦¨ ¦P¤@¤u§@ªíª«¥ó¤@­P´N¦n