[µo°Ý] ¦p¦ó³]Stop«ü¥O

wells330

¤j®a¦n!
¥H¤U¥¨¶°¦p¦ó¼W³]Stop«ü¥O¡A·P®¦!
Option Explicit
Sub Ex()
    Dim Rng As Range, Rng1 As Range, i%
    If Time < TimeValue("09:00:00") Then
        Application.OnTime TimeValue("09:01:13"), "SHEET2.EX"
        Exit Sub
    ElseIf Time >= TimeValue("13:35:30") Then Exit Sub
    End If
    Set Rng = Sheets("SHEET2").Range("B309:Z309")
    Set Rng1 = Cells(Rows.Count, "A").End(xlUp)(2)
    Rng1 = Time
    Rng1(1, 2).Resize(1, Rng.Columns.Count) = Rng.Value
    Application.OnTime TimeSerial(Hour(Now), Minute(Now) + 1, 13), "SHEET3.EX"
End Sub

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

wells330

GBKEEª©¥D§A¦n!
SHEET2.EX ÁÙ¬O SHEET3.EX³o»ò²³æ­×§ï¡AÁٻݭn³Â·Ðª©¥D¡A¯u¬O©êºp!
ÁÂÁ§A!:)

wells330

GBKEEª©¥D§A¦n!
¤£¦n·N«ä!¬OSHEET3.EX
ÁÂÁ§A!

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

wells330

oobird¶W¯Åª©¥D§A¦n!
ÁÂÁ§Aªº¦^ÂÐ
½Ð°Ý¥Î°±¤î¥¨¶°«ö¶s¸Ó¦p¦ó°µ?
·P®¦!

oobird

¦³³\¦h¤èªk«Ø¥ß°±¤î¾÷¨î
¦p¦b«e­±¥[1¦æ
if [a1]=1 then end
·í§A¦ba1¿é¤J1 ®Éµ{¦¡¦ÛµM²×¤î