GBKEE

¦^´_ 1# HSIEN6001

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim E As Range
   
4.     With Sheets("´£¿ô")
   
5.         For Each E In .Range("B2", .Range("B2").End(xlDown))
   
6.             Application.OnTime E, "®É¶¡´£¿ô"
   
7.         Next
   
8.         For Each E In .Range("D2", .Range("D2").End(xlDown))
   
9.             Application.OnTime E, "µù°O"
   
10.         Next
    
11.      End With
    
12. End Sub

½Æ»s¥N½X

1. Option Explicit
   
2. Sub ®É¶¡´£¿ô()
   
3.     MsgBox "TIME IS UP"
   
4. End Sub
   
5. Sub µù°O()
   
6.     With Sheets("´£¿ô").Range("D:D")
   
7.         MsgBox .Find(Format(Time, "hh:mm"), LookIn:=xlValues).Offset(, 1)
   
8.     End With
   
9. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# HSIEN6001

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     Dim E As Range
   
4.     With Sheets("´£¿ô")
   
5.         For Each E In .Range("B2", .Range("B2").End(xlDown))
   
6.             Application.OnTime E, "®É¶¡´£¿ô"
   
7.         Next
   
8.         For Each E In .Range("D2", .Range("D2").End(xlDown))
   
9.             Application.OnTime E, "µù°O"
   
10.            '³o¬O¨Ì¾ÚD2©¹¤Uªº®É¶¡ ³]©w Application.OnTime ªº®É¶¡
    
11.         Next
    
12.      End With
    
13. End Sub

½Æ»s¥N½X

¤£ª¾¹D¬°¬Æ»ò°õ¦æµ²ªG
MsgBox .Find(Format(Time, "hh:mm"), LookIn:=xlValues).Offset(, 1)
¥X²{,°õ¦æ¶¥¬q¿ù»~91¡A¨S¦³³]©wª«¥óÅܼƩÎwith°Ï¶ôÅܼÆ

Ãø¹D§AÀɮפ¤D2©¹¤Uªº®É¶¡®æ¦¡¤£¬O"hh:mm"