Board logo

標題: 請問程式執行後不明原因自動中斷(前幾日正常)是否寫法有誤? [打印本頁]
作者: fei6999    時間: 2011-12-20 11:00     標題: 請問程式執行後不明原因自動中斷(前幾日正常)是否寫法有誤?

本帖最後由 fei6999 於 2011-12-20 11:15 編輯
  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

  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") = ""

  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") = ""

  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

  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")

  35. If Range("O1") = "OFF" Then Exit Sub
  36. Application.OnTime Now + TimeValue("00:00:01"), "期貨" '啟動每隔1秒執行本程式
  37. End Sub
複製代碼
作者: fei6999    時間: 2011-12-20 13:41

我發現是我在另一個EXCEL檔工作時程式竟被中斷
第一次遇上這種情形
之前並沒有這樣過
這情形正常嗎?
作者: fei6999    時間: 2011-12-22 09:31

同樣的動作今天目前為止卻正常有夠奇怪!
作者: fei6999    時間: 2012-1-17 10:52

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)