關於固定時間紀錄的修改

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

1^# 跳轉到 »

發表於 2016-9-13 19:50 | 顯示全部帖子

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

及時看盤、股票圖表與拉霸 A.rar (41.12 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-9-14 16:37 | 顯示全部帖子

回復 5# 藍天麗池

Sub mySchedule()
If TimeValue(Now) <= TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:30:00") Then Exit Sub
Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.RecordPrice"
End Sub
Sub RecordPrice()
Dim TimeRange As Variant
With Sheets("DDE")
Set TimeRange = .[A:A].Find(TimeSerial(Hour(Time), Minute(Time), Second(Time))) ' 檢查 "A" 欄位對應之時段
If Not TimeRange Is Nothing Then
TimeRange.Offset(, 1) = Time
End If
End With
mySchedule
End Sub

複製代碼

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2016-9-14 18:12 | 顯示全部帖子

回復 11# 藍天麗池

DDE時間比對.rar (36.92 KB)

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

4^#

發表於 2016-9-14 18:39 | 顯示全部帖子

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

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2016-9-14 18:51 | 顯示全部帖子

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

TOP

c_c_lai