返回列表 上一主題 發帖

執行時間問題?

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-6-7 20:28 | 顯示全部帖子
回復 3# mead
因為在8:45以前開檔，雖然有執行一次Timer
但因為直接跳出程序，並未準備下一次執行Timer
判斷式改一下
  If TimeValue(Now) <= TimeValue("08:45:00") Then Application.OnTime Now + TimeValue("00:00:01"), "Timer"
  If TimeValue(Now) >= TimeValue("13:45:00") Then Exit Sub '營業時間才執行
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
142  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2026-7-16 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-6-7 21:51 | 顯示全部帖子
回復 5# mead
  1. Sub Timer()

  3. Dim HHMMSS As Integer

  5. On Error Resume Next

  7. ' Sheets("策略記錄").Select

  9. Sheets(2).Cells(2, 1) = Time '將時間show至策略的a2欄位

  11.   If (TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) >= TimeValue("13:45:00")) Then GoTo 10 '營業時間才執行

  13. ' If Minute(Time) <> LastMin Then '開始後做

  15.     i = i + 1

  17.     If i = 60 Then


  20. Sheets(2).Range("a10000").End(xlUp).Offset(1, 0) = Time

  22. Sheets(2).Range("a10000").End(xlUp).Offset(0, 1) = O

  24. Sheets(2).Range("a10000").End(xlUp).Offset(0, 2) = H

  26. Sheets(2).Range("a10000").End(xlUp).Offset(0, 3) = L

  28. Sheets(2).Range("a10000").End(xlUp).Offset(0, 4) = C

  30.   

  32. Sheets(2).Range("a10000").End(xlUp).Offset(0, 5) = O1

  34. Sheets(2).Range("a10000").End(xlUp).Offset(0, 6) = H1

  36. Sheets(2).Range("a10000").End(xlUp).Offset(0, 7) = L1

  38. Sheets(2).Range("a10000").End(xlUp).Offset(0, 8) = C1


  41. Sheets(2).Range("a10000").End(xlUp).Offset(0, 9) = O2

  43. Sheets(2).Range("a10000").End(xlUp).Offset(0, 10) = H2

  45. Sheets(2).Range("a10000").End(xlUp).Offset(0, 11) = L2

  47. Sheets(2).Range("a10000").End(xlUp).Offset(0, 12) = C2

  49.      i = 0

  51.       O = Sheets(2).Cells(2, 2)

  53.       H = Sheets(2).Cells(2, 2)

  55.       L = Sheets(2).Cells(2, 2)

  57.       C = Sheets(2).Cells(2, 2)

  59.         

  61.      O1 = Sheets(2).Cells(2, 3)

  63.      H1 = Sheets(2).Cells(2, 3)

  65.      L1 = Sheets(2).Cells(2, 3)

  67.      C1 = Sheets(2).Cells(2, 3)

  69.      

  71.      O2 = Sheets(2).Cells(2, 4)

  73.      H2 = Sheets(2).Cells(2, 4)

  75.      L2 = Sheets(2).Cells(2, 4)

  77.      C2 = Sheets(2).Cells(2, 4)

  79. Else

  81.      C = Sheets(2).Cells(2, 2)

  83.      If H = "" Then H = Sheets(2).Cells(2, 2)

  85.      If C >= H Then H = C

  87.      If C < L Then L = C

  89.      If O = 0 Then O = Sheets(2).Cells(2, 2) Else O = O

  91.      If L = 0 Then L = Sheets(2).Cells(2, 2) Else L = L

  93.    

  95.      C1 = Sheets(2).Cells(2, 3)

  97.      If H1 = "" Then H1 = Sheets(2).Cells(2, 3)

  99.      If C1 >= H1 Then H1 = C1

  101.      If C1 < L1 Then L1 = C1

  103.      If O1 = 0 Then O1 = Sheets(2).Cells(2, 3) Else O1 = O1

  105.      If L1 = 0 Then L1 = Sheets(2).Cells(2, 3) Else L1 = L1

  107.    

  109.      C2 = Sheets(2).Cells(2, 4)

  111.      If H2 = "" Then H2 = Sheets(2).Cells(2, 4)

  113.      If C2 >= H2 Then H2 = C2

  115.      If C2 < L2 Then L2 = C2

  117.      If O2 = 0 Then O2 = Sheets(2).Cells(2, 4) Else O1 = O1

  119.      If L2 = 0 Then L2 = Sheets(2).Cells(2, 4) Else L2 = L2

  121.   End If

  123.         LastMin = Minute(Time)

  125. '  End If
  126. 10
  127. Application.OnTime Now + TimeValue("00:00:01"), "Timer" '每秒顯示

  129. End Sub
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 【時間成就一切】時間可以造就人格，可以成就事業，也可以儲積功德。
返回列表 上一主題