返回列表 上一主題 發帖

關於固定時間紀錄的修改

關於固定時間紀錄的修改

固定時間.rar (168.33 KB)

請教版上大大,附件是小弟修改的一個VBA,主要功能為記錄價格,裡面可以設定幾點開始和結束,也可設定間隔幾秒紀錄價格,但時間會跑掉

如附件所示,小弟設定9:01分開始,之後每5秒紀錄一次價格,所以在06、11、16、21、26、31、36、41、46、51、56、01...以此類推的時間會記錄價格,但此程式的時間到後面卻會跑掉,於附件A53的地方時間開始跑掉了

請教版上大大要如何將程式修改成固定在06、11、16、21、26、31、36、41、46、51、56、01...以此類推的時間紀錄,而不要跑掉呢??

回復 1# 藍天麗池
附上一個之前應用的程式,你仔細看一下內中的處理
我想對你會有幫助的。因為每個人對時間的處理均有其個人之喜好,
所以自行參閱必有所獲。(目前眼睛剛手術完,宜多調養)
及時看盤、股票圖表與拉霸 A.rar (41.12 KB)

TOP

回復 2# c_c_lai

C大要多多休息,我先自己研究看看好了,感謝C大

TOP

回復 2# c_c_lai


    C大我剛剛看了範例,好像也是用間隔時間下去寫的,而不是用固定時間,我在自己思考看看好了,多多休息

TOP

回復 2# c_c_lai


    哈哈,果然靠我自己還是不太行,等C大好點在跟你請教

TOP

TM = Now
SND = 5 - (TM - 1) Mod 5
Application.OnTime TM + SND, "程式"

TOP

回復 6# 准提部林
準大請教一下,此程式碼要加在哪邊呢??

TOP

Application.OnTime 應該只有一個方法可以準

TOP

回復 8# jackyq

可以請J大明示嗎??

TOP

回復 5# 藍天麗池
  1. Sub mySchedule()
  2.     If TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:30:00") Then Exit Sub

  3.     Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.RecordPrice"
  4. End Sub

  5. Sub RecordPrice()
  6.     Dim TimeRange As Variant

  7.     With Sheets("DDE")
  8.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)))    '  檢查 "A" 欄位對應之時段
  9.         
  10.         If Not TimeRange Is Nothing Then
  11.             TimeRange.Offset(, 1) = Time
  12.         End If
  13.     End With
  14.    
  15.     mySchedule
  16. End Sub
複製代碼
未命名.png
2016-9-14 16:35

TOP

        靜思自在 : 愛不是要求對方,而是要由自身的付出。
返回列表 上一主題