請教要記錄1分K的開高低收,要如何更改? - Excel程式區

[發問] 請教要記錄1分K的開高低收,要如何更改?

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

11^# 跳轉到 »

發表於 2015-9-2 18:38 | 只看該作者

回復 9# gery

EXCEL．股票．DDE傳輸資料．固定時間自動記錄
http://blog.xuite.net/smile1000mile/blog/95125899

有些範例檔下載連結已失效, 可多試幾個(注意:下載檔檔名是否相同)

TOP

gery

中學生 Rank: 2

帖子: 15
主題: 4
精華: 0
積分: 64
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
註冊時間: 2015-3-16
最後登錄: 2020-11-2

12^#

發表於 2015-9-3 16:38 | 只看該作者

回復 11# 准提部林

想再請教大大我是看國際期貨所以想改他開收盤時間假設我想開盤是下午6點收盤是凌晨2點不知道該怎麼改呢?謝謝:D

Sub 共用參照()
Set MyBook = ThisWorkbook
Set Sht1 = MyBook.Sheets("X2")
StartTime = "18:00:00" '開盤時間（提早十秒開始，才可記錄開盤量價）"08:44:50"
EndTime = "02:00:00" '收盤時間（延後十秒停止記錄）此為測試用時間，請自行更改正式時間 "13:45:10"
End Sub

Sub 自動記錄()
If uMode = 0 Then Exit Sub
If Time > TimeValue(EndTime) Then '收盤時間以後不執行
Sht1.[O8] = "執行中"
uMode = 0
Exit Sub
End If

TOP

准提部林