c_c_lai

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

下載次數: 13

2016-9-13 19:48

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

c_c_lai

回復 11# 藍天麗池
DDE時間比對.rar (36.92 KB)

下載次數: 4

2016-9-14 18:12

c_c_lai

回復 13# 藍天麗池
別人解題時，請一定要先去了解解題之程式內容為何？
你要自己套用至你目前之程式內，而不要期望人家全部幫你套好。
這個範例已完全給你了處理的方法，你目前程式為何能啟動程式？
範例為何不能自動啟動？你要去看看你目前程式是怎麼運作的。
說白一點，你只要把範例程式套入到現有程式內就 OK 了。

c_c_lai

回復 13# 藍天麗池
請留意 #10 的圖示，左方是執行的對等關係；
又方式執行之程式 (mySchedule())，請留意它的運最時間
If TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("16:30:00") Then Exit Sub
j我是故意將終止時段望後延至 "16:30:00"。

c_c_lai

回復 17# 藍天麗池

下載 (69.73 KB)

2016-9-14 19:12

c_c_lai

回復 19# 藍天麗池
戲法人人便！

c_c_lai

回復 19# 藍天麗池

下載 (35.23 KB)

2016-9-15 08:17

DDE時間比對.rar (39.55 KB)

下載次數: 4

2016-9-15 08:18

戲法自個兒去變！