Hsieh

回復 3# color790

在程式碼頂端加入Option Explicit   變數強制宣告
在接下來的變數都必須宣告其資料型態
只要沒有宣告就會出錯
加上這行有一個好處，就是如果變數拼錯很容易偵錯
再則，變數確實宣告型態，對程式執行速度有很大幫助

Hsieh

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

下載次數: 7

2012-2-10 21:54

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

複製代碼

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值是不同的