請問程式執行後不明原因自動中斷(前幾日正常)是否寫法有誤?

fei6999

1. Sub 期貨()
   
2. '在B欄依序寫入L2
   
3. Dim nb, XC, DF, KJ As Long
   
4. 'On Error Resume Next
   
5.   If Time > TimeValue("13:45:20") Then Range("O1") = "OFF": Exit Sub
   
6. nb = 0
   
7. XC = 0
   
8. DF = 0
   
9. KJ = 0
   
10. 
    
11. If Sheet1.Range("b3") > 0 Then Sheet1.Range("b2") = Sheet1.Range("b3"): Sheet1.Range("b3") = ""
    
12. nb = IIf(Sheet1.Range("b2") = "", 2, Sheet1.Range("b3").End(xlUp).Row + 1)
    
13. Sheet1.Cells(nb, 2) = Sheet1.Range("L2")
    
14. If Sheet1.Range("b3") > 0 Then Sheet1.Range("C2") = "=B3-B2"
    
15. If Sheet1.Range("C2") < 0 Then Sheet1.Range("C2") = ""
    
16. 
    
17. If Sheet1.Range("b7") > 0 Then Sheet1.Range("b6") = Sheet1.Range("b7"): Sheet1.Range("b7") = ""
    
18. XC = IIf(Sheet1.Range("b6") = "", 6, Sheet1.Range("b7").End(xlUp).Row + 1)
    
19. Sheet1.Cells(XC, 2) = Sheet1.Range("J2")
    
20. If Sheet1.Range("b7") > 0 Then Sheet1.Range("C6") = "=B7-B6"
    
21. If Sheet1.Range("B7") = "" Then Sheet1.Range("C6") = ""
    
22. 
    
23. If Sheet1.Range("C2") >= Sheet1.Range("E2") Then
    
24. DF = IIf(Sheet1.Range("F2") = "", 2, Sheet1.Range("F20000").End(xlUp).Row + 1)
    
25. Sheet1.Cells(DF, 6) = Sheet1.Range("C2")
    
26. Sheet1.Cells(DF, 7) = Sheet1.Range("C6")
    
27. End If
    
28. 
    
29. KJ = IIf(Sheet1.Range("P2") = "", 2, Sheet1.Range("P20000").End(xlUp).Row + 1)
    
30. Sheet1.Cells(KJ, 16) = Sheet1.Range("J4")
    
31. Sheet1.Cells(KJ, 17) = Sheet1.Range("M4")
    
32. Sheet1.Cells(KJ, 18) = Time
    
33. Sheet1.Cells(KJ, 19) = Sheet1.Range("o4")
    
34. 
    
35. If Range("O1") = "OFF" Then Exit Sub
    
36. Application.OnTime Now + TimeValue("00:00:01"), "期貨" '啟動每隔1秒執行本程式
    
37. End Sub

複製代碼

fei6999

我發現是我在另一個EXCEL檔工作時程式竟被中斷
第一次遇上這種情形
之前並沒有這樣過
這情形正常嗎?

fei6999

同樣的動作今天目前為止卻正常有夠奇怪!

fei6999

應該是少宣告這一行
Option Private Module
加上後就運作正常
感謝!