c_c_lai

"¸õÂ÷¤£¦A°õ¦æ" ===>µ¥©óÁÙ¦b°õ¦æ¤¤???
t8899 µoªí©ó 2013-4-6 09:21

1. Sub a123()
   
2.     Dim tm As String
   
3.    
   
4.     Select Case [A1].Value
   
5.         Case 1
   
6.             tm = "00:01:00"     '  1 ¤ÀÄÁ
   
7.         Case 2
   
8.             tm = "00:02:00"     '  2 ¤ÀÄÁ
   
9.         Case 3
   
10.             tm = "00:00:10"     '  10 ¬í
    
11.         Case Else
    
12.             tm = "00:00:30"     '  30 ¬í
    
13.     End Select
    
14.    
    
15.     Application.OnTime (Now + TimeValue(tm)), "ThisWorkbook.Hello"
    
16. End Sub
    
17. 
    
18. Sub Hello()
    
19.     If [U1] <> 1 Then GoTo 30
    
20. 
    
21.     MsgBox ("Good Day!")
    
22. 30:
    
23.     Call a123
    
24. End Sub

½Æ»s¥N½X