關於固定時間紀錄的修改

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

15^# 跳轉到 »

發表於 2016-9-14 18:50 | 只看該作者

回復 14# c_c_lai

C大我誤會你的意思了，你剛剛上傳的檔案，我以為是要修改成那樣

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

14^#

發表於 2016-9-14 18:39 | 只看該作者

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

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

13^#

發表於 2016-9-14 18:19 | 只看該作者

回復 12# c_c_lai

C大，這個程式時間到會自己執行嗎??我剛剛修改時間後打開完全沒動作

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

12^#

發表於 2016-9-14 18:12 | 只看該作者

回復 11# 藍天麗池

DDE時間比對.rar (36.92 KB)

TOP

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

11^#

發表於 2016-9-14 17:58 | 只看該作者

本帖最後由藍天麗池於 2016-9-14 18:11 編輯

回復 10# c_c_lai
C大我看不太懂你的間隔時間是怎麼設定的

是把程式放在Thisworksheet嗎??剛剛執行後沒有任何動作，我之前的巨集都要刪掉嗎??我看C大圖裡面沒有巨集

TOP

c_c_lai

博士班 Rank: 6 Rank: 6

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

10^#

發表於 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