c_c_lai

"跳離不再執行" ===>等於還在執行中???
t8899 發表於 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

複製代碼