1234
返回列表 上一主題 發帖

執行時間問題?

mead

帖子
51 
主題
6 
精華
0 
積分
59 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-4-1 
最後登錄
2018-5-17 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-6-7 17:22 | 只看該作者

執行時間問題?

各位大大:
附件的EXCEL我設定在8:45~13:45間執行
但每次在8:45前執行  以等待8:45開始記錄  但去都無法啟動程式紀錄
都必須等8:45後執行  程式才會啟動記錄!不知問題出在哪兒?
懇請版上大大協助修正

謝謝

感恩

量.rar (12.12 KB)
收藏 分享

ANGELA

帖子
812 
主題
7 
精華
0 
積分
862 
點名
0  
作業系統
XP 
軟體版本
2007 
閱讀權限
100 
性別
男 
來自
台中 
註冊時間
2010-5-13 
最後登錄
2019-10-10 

論壇貢獻勳章
2#
發表於 2012-6-7 20:05 | 只看該作者
If (TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub '營業時間才執行
若在8:45前或13:45以後即離開程式

TOP

mead

帖子
51 
主題
6 
精華
0 
積分
59 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-4-1 
最後登錄
2018-5-17 
3#
發表於 2012-6-7 20:15 | 只看該作者
If (TimeValue(Now) = TimeValue("13:45:00")) Then Exit Sub '營業時間才執行
若在8:45前或13:45以後即離 ...
ANGELA 發表於 2012-6-7 20:05

Dear這我能理解
但問題是我在8:44執行程式後  過了8:45卻沒動作啊?
想問是甚麼原因和如何修正?

謝謝  感恩

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
4#
發表於 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

mead

帖子
51 
主題
6 
精華
0 
積分
59 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-4-1 
最後登錄
2018-5-17 
5#
發表於 2012-6-7 21:01 | 只看該作者
回復  mead
因為在8:45以前開檔，雖然有執行一次Timer
但因為直接跳出程序，並未準備下一次執行Timer
判 ...
Hsieh 發表於 2012-6-7 20:28

感謝總版主的指導
但照此修改  還是不行!
過了設定時間沒動作  退出再進入  即變成隨時在記錄了!
麻煩再指導

謝謝  感恩

TOP

Hsieh

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

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
6#
發表於 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

mead

帖子
51 
主題
6 
精華
0 
積分
59 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-4-1 
最後登錄
2018-5-17 
7#
發表於 2012-6-7 22:04 | 只看該作者
回復  mead
Hsieh 發表於 2012-6-7 21:51

感謝總版主這麼快回覆
剛剛測試的結果已可行
明天盤中再測試看看

謝謝總版主的熱心幫忙

感恩再感恩

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
8#
發表於 2012-6-8 08:07 | 只看該作者
回復 7# mead
關鍵在於 Application.OnTime (TimeValue("08:45:00")), "Module1.Timer"  ：
  1. Private Sub Workbook_Open()
  2.     Sheets("策略記錄").[a5:n700] = ""
  3.     ' LastMin = Minute(Time)
  4.     Application.OnTime (TimeValue("08:45:00")), "Module1.Timer"      ' *********
  5. End Sub



  9. Sub Timer()
  10.     Dim HHMMSS As Integer

  12.     On Error Resume Next

  14.     ' Sheets("策略記錄").Select
  15.     Sheets(2).Cells(2, 1) = Time '將時間show至策略的a2欄位

  17.     If (TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub  ' 超過營業時間後即跳離不予執行
  18.     .
  19.     .
  20.     .
  21.     .
  22. End Sub
複製代碼
至於 Timer 修改一下  If (TimeValue(Now) >= TimeValue("13:45:00")) Then Exit Sub
其它部分依你所需去修正。

TOP

mead

帖子
51 
主題
6 
精華
0 
積分
59 
點名
0  
作業系統
VISTA 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-4-1 
最後登錄
2018-5-17 
9#
發表於 2012-6-8 18:07 | 只看該作者
回復  mead
關鍵在於 Application.OnTime (TimeValue("08:45:00")), "Module1.Timer"  ：至於 Timer 修改 ...
c_c_lai 發表於 2012-6-8 08:07

感謝c_c_lai 大大的熱心回覆
先試試看
感恩

TOP

devidlin

帖子
58 
主題
3 
精華
0 
積分
66 
點名
0  
作業系統
XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-5-21 
最後登錄
2019-2-26 

論壇贊助勳章
10#
發表於 2012-6-23 18:12 | 只看該作者
請教版大哥，元大easywin之DDE，要如何將之前的EXCEL存檔，隔天依樣開此檔案，要如何設定?
謝謝。
devidlin

TOP

        靜思自在 : 人生沒有所有權，只有生命的使用權。
1234
返回列表 上一主題