用時間控制的程式，時間要跨過隔日的 VBA要如何寫? - Excel程式區

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

1^# 跳轉到 »

發表於 2018-4-27 15:22 | 顯示全部帖子

測看看:

20120531a02(DDE每1分記錄)-1.rar (20.31 KB)

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

2^#

發表於 2018-4-27 19:18 | 顯示全部帖子

本帖最後由准提部林於 2018-4-27 19:20 編輯

回復 5# ABK

那是用亂數作為測試用, DDE公式得各人需求自行去寫~~~
主要是解決[日盤][夜盤]的問題!

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

3^#

發表於 2018-4-28 21:02 | 顯示全部帖子

回復 7# ABK

Sub 停止執行()
uMode = 0
Call 共用參照
Sht1.[O8] = "STOP"
On Error Resume Next
Application.OnTime Next_Time, "自動記錄", Schedule:=False
On Error GoTo 0
End Sub

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

4^#

發表於 2018-6-6 19:27 | 顯示全部帖子

回復 10# ABK

Sub 清除記錄資料()
Dim xE As Range
If MsgBox("※確定要清除〔Sheet1〕的記錄嗎？　", 4 + 32 + 256) = vbNo Then Exit Sub
Call 共用參照
Set xE = Sht1.[a65536].End(xlUp)
If xE.Row <= 9 Then Exit Sub
Range(Sht1.[A9], xE(0)).EntireRow.Delete
If ActiveSheet.Name = Sht1.Name Then ActiveWindow.ScrollRow = 1
End Sub