Hsieh

回復 7# color790
阿吉版主提供的範例，2007版以後不能使用
2007版本以後請使用此檔案
中斷程序.rar (17.36 KB)

下載次數: 7

2012-2-10 21:54

color790

原來是降,難怪看不到, 謝謝版主的提供 ^^
來研究一下....

color790

修改如下, 但還是失敗, 按下左鍵(vbKeyLeft)可以這樣用嗎?
p = Now + 0.000112
If vbKeyLeft = True Then
w = Timer
        Do
            DoEvents
            If vbKeyLeft = True Then
            z = (Timer - w) / 86400
            p = p + z
            Exit Do
            End If
        Loop
End If
Application.OnTime p, "test3"

Hsieh

回復 5# color790

你的意思不知是否如此?
注意程序名稱不能使用VBA保留字

1. Public x As Long, S As Double, t As Date, yn As Boolean
   
2. 
   
3. Sub start()
   
4. Application.OnKey "{RIGHT}", "gomysub"
   
5. Application.OnKey "{LEFT}", "STOPS"
   
6. Range("r2:t30,d4:d8,g4:g8,k4:k8,n4:n8").ClearContents
   
7. End Sub
   
8. Sub gomysub()
   
9. k = 2: m = 2: n = 2
   
10. Do Until Cells(k, 18) = ""
    
11. k = k + 1
    
12. Loop
    
13. Do Until Cells(m, 19) = ""
    
14. m = m + 1
    
15. Loop
    
16. Do Until Cells(n, 20) = ""
    
17. n = n + 1
    
18. Loop
    
19. If x = 0 Or x = 2 Then
    
20. t = Now + 0.0001
    
21. Application.OnTime t, "test3"
    
22. yn = True
    
23. End If
    
24. If x = 0 Then S = Timer
    
25. Select Case x
    
26. Case 0
    
27. S = Timer
    
28. x = x + 1
    
29. Case 1
    
30. S = Timer
    
31. x = x + 1
    
32. Case 2
    
33. Cells(k, 18) = (Timer - S) / 86400: S = Timer
    
34. x = x + 1
    
35. Case 3
    
36. S = Timer
    
37. x = x + 1
    
38. Case 4
    
39. Cells(m, 19) = (Timer - S) / 86400: S = Timer
    
40. x = x + 1
    
41. Case 5
    
42. Cells(n, 20) = (Timer - S) / 86400: S = Timer
    
43. x = 0
    
44. ActiveWorkbook.Save
    
45. End Select
    
46. End Sub
    
47. 
    
48. Sub closefuntion()
    
49. Application.OnKey "{RIGHT}"
    
50. x = 0
    
51. End Sub
    
52. Sub test3()
    
53. 'Beep
    
54. MsgBox t & "時間到"
    
55. yn = False
    
56. End Sub
    
57. 
    
58. 
    
59. Sub STOPS()
    
60. If yn = True Then Application.OnTime t, "test3", , False: MsgBox "test3已經停止" Else MsgBox t & "已經運行"
    
61. End Sub

複製代碼

color790

回復  color790

你的意思不知是否如此?
注意程序名稱不能使用VBA保留字
Hsieh 發表於 2012-2-12 00:41

謝謝版主~^^
主要是想利用左鍵來達到暫停執行,
如果再按右鍵, 即能回復執行, 但要扣掉剛剛開始到暫停的時間
比如, 一開始按右鍵是 12:50:10(按的當時時間) +10 秒 執行test3
          過了5秒在12:50:15 時按了左鍵, 假設過了3秒再按右鍵, 這時候想在 12:50:23秒執行test3

color790

請問這個a跟b的值為什麼一樣
msgbox不是應該停止程式,當按確定才又開始?

Sub cc()
a = Now + TimeValue("00:00:10")
Cells(1, 1) = a
MsgBox a
b = Cells(1, 1).Value - Now + Now
MsgBox b
End Sub

Hsieh

回復 16# color790


Sub cc()
a = Now + TimeValue("00:00:10")
Cells(1, 1) = a
MsgBox a
b = Cells(1, 1).Value - Now + Now
MsgBox b
End Sub
兩個紅字的NOW值是不同的

color790

對不起版主, 是我腦袋有點打結, 問錯問題
後來看清楚了....   =.=|||