關於固定時間紀錄的修改

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

3^#

發表於 2016-9-13 19:53 | 只看該作者

回復 2# c_c_lai

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

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

4^#

發表於 2016-9-13 20:01 | 只看該作者

回復 2# c_c_lai

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

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

5^#

發表於 2016-9-13 21:00 | 只看該作者

回復 2# c_c_lai

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

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2839
主題: 10
精華: 0
積分: 2895
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-12-22

6^#

發表於 2016-9-14 13:32 | 只看該作者

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

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

7^#

發表於 2016-9-14 13:56 | 只看該作者

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

jackyq

帖子: 320
主題: 6
精華: 0
積分: 310
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2024-12-21

8^#

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

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

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

9^#

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

回復 8# jackyq

可以請J大明示嗎??

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

複製代碼