帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2018-4-26 16:38 | 只看該作者

[發問] 用時間控制的程式，時間要跨過隔日的 VBA要如何寫?

想要寫一支VBA  紀錄台指期"日盤"和"午後盤" 的資料
午後盤時間這一段要跨到隔天早上，寫不出來，PO上來請教高人。

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("台指期")

If [A1] = "日盤" And Time >= TimeValue("08:44:00") And Time <= TimeValue("13:45:00")Then '依據儲存格A1的值為"日盤"或"夜盤"--> 選擇"日盤"
   StartTime = "08:44:10" '日盤開盤前50秒-->執行程式
   EndTime = "13:45:10"    '日盤收盤後10秒-->停止程式
End If

If [A1] = "夜盤" And Time >= TimeValue("15:00:00") And Time <= TimeValue("05:00:00") Then  '選擇夜盤(15:00:00 ~ 隔日早上 05:00:00)

   StartTime = "14:59:10"  '夜盤開盤前50秒-->執行程式
   EndTime = "05:00:10" '夜盤收盤後10秒-->停止程式

End If

End Sub

程式時間跨隔日.jpg (55.55 KB)

樓主熱帖

jackyq

中學生 Rank: 2

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

2^#

發表於 2018-4-26 17:37 | 只看該作者

If Now >= (Date + 0 + TimeValue("15:00:00")) And _
Now <= (Date + 1 + TimeValue("05:00:00")) Then

...............
End If

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

3^#

發表於 2018-4-26 23:05 | 只看該作者

本帖最後由 ABK 於 2018-4-26 23:09 編輯

回復 2# jackyq

我仿製了pcboy大發問的文篇: "DDE每分鐘記錄的資料排序問題" [ http://forum.twbts.com/thread-20603-1-1.html ] 裡面的程式碼。

將跨隔日的Code 寫入, 想做成可以跑台指"日盤"和"午後盤"每分鐘的紀錄,
停止時間那邊沒寫好，按鈕啟動"自動記錄"後 , 沒有跑起來 ! 一直卡在收盤時間。

-- A1格那邊可以選擇"日盤"或"夜盤" --

1分鐘紀錄- 測試檔-3.rar (80.11 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

4^#

發表於 2018-4-27 15:22 | 只看該作者

測看看:

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

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

5^#

發表於 2018-4-27 17:58 | 只看該作者

回復 4# 准提部林

謝謝准堤大 ! 只能說驚嘆，版面清爽有力，看起來很舒服!

可否請教准堤大資料是如何抓取的，公式和程式裡都沒有看到任何資料源的呼叫，也不需要開卷商的軟體數值就會進來。

又這些數值看起來怪怪的，例如台指、摩台和加權的值，還是說 A2:Q5那一區是假資料用來測試紀錄的程式?

2018-04-27_准堤大.jpg (264.99 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

6^#

發表於 2018-4-27 19:18 | 只看該作者

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

回復 5# ABK

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

TOP

ABK

中學生 Rank: 2

帖子: 115
主題: 24
精華: 0
積分: 178
點名: 2
作業系統: WIN10
軟體版本: Office2016
閱讀權限: 20
性別: 男
註冊時間: 2011-1-12
最後登錄: 2024-11-15

7^#

發表於 2018-4-28 20:34 | 只看該作者

本帖最後由 ABK 於 2018-4-28 20:41 編輯

回復 6# 准提部林

謝謝准堤大 ! 了解了!
有辦法避免在已經停止紀錄了，又去按一次"停止鍵"時不會跑出錯誤訊息嗎?
但是再去按"執行紀錄" 和 "清除紀錄資料"鍵還是可以繼續正常運作 !

已經停止紀錄後再按一次停止鍵的錯誤提示.jpg (57.36 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

8^#

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

TOP

ABK