關於固定時間紀錄的修改

藍天麗池

固定時間.rar (168.33 KB)

下載次數: 15

2016-9-13 17:00

請教版上大大，附件是小弟修改的一個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...以此類推的時間紀錄，而不要跑掉呢??

c_c_lai

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

下載次數: 13

2016-9-13 19:48

藍天麗池

回復 2# c_c_lai

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

藍天麗池

回復 2# c_c_lai


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

藍天麗池

回復 2# c_c_lai


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

准提部林

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

藍天麗池

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

jackyq

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

藍天麗池

回復 8# jackyq

可以請J大明示嗎??

c_c_lai

回復 5# 藍天麗池

1. Sub mySchedule()
   
2.     If TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:30:00") Then Exit Sub
   
3. 
   
4.     Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.RecordPrice"
   
5. End Sub
   
6. 
   
7. Sub RecordPrice()
   
8.     Dim TimeRange As Variant
   
9. 
   
10.     With Sheets("DDE")
    
11.         Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time)))    '  檢查 "A" 欄位對應之時段
    
12.         
    
13.         If Not TimeRange Is Nothing Then
    
14.             TimeRange.Offset(, 1) = Time
    
15.         End If
    
16.     End With
    
17.    
    
18.     mySchedule
    
19. End Sub

複製代碼

下載 (72.12 KB)

2016-9-14 16:35