GBKEE

¦^´_ 1# enhrulee
¨Ì¾Ú§AªºªþÀÉ©Ò¼g

1. Sub AppOntime()
   
2.     Dim E As Range
   
3.     For Each E In Sheets("Sheet1").[A2:A184]
   
4.         Application.OnTime E, "Ex "    '¤@¯ëModule ¤£¥²«ü©ú
   
5.         '  ****  Application.OnTime E, "Sheet1.Ex "    'ª«¥óModule ªºµ{§Ç¶·«ü©ú ª«¥óModule
   
6.     Next
   
7. End Sub
   
8. Private Sub Ex()   '¦¹µ{§Ç¬O¸m©ó¤@¯ëModule
   
9.     Dim Rng As Range
   
10.     Set Rng = Sheets("Sheet1").Columns(1).Find(Format(Time, "H:MM:00 AM/PM"))
    
11.     Sheets("Sheet1").Cells(Rng.Row, 2).Resize(1, 6) = Sheets("Sheet4").Range("A2:F2").Value
    
12.     Sheets("Sheet2").Cells(Rng.Row, 2).Resize(1, 6) = Sheets("Sheet4").Range("A3:F3").Value
    
13.     Sheets("Sheet3").Cells(Rng.Row, 2).Resize(1, 6) = Sheets("Sheet4").Range("A4:F4").Value
    
14. End Sub

½Æ»s¥N½X