如何將台指期的每一分鐘資料都紀錄在sheet 1裡..請教版上高手前輩~~

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

11^# 跳轉到 »

發表於 2012-12-9 12:11 | 顯示全部帖子

回復 25# c_c_lai
c_c_lai大你好；
我照[GBKEE大]的指導，複製貼上不知是否可行？就待明天測試了!!
附件是有加[GBKEE大]的巨集，請[c_c_lai大][GBKEE大]指導..謝謝!!

即時量態121209.zip (36.67 KB)

50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

12^#

發表於 2012-12-9 12:59 | 顯示全部帖子

回復 27# GBKEE
GBKEE大你好；
能給個正確的[Zip檔]讓我學習嗎？謝謝~~

50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

13^#

發表於 2012-12-9 14:24 | 顯示全部帖子

回復 29# GBKEE 把
[台指期]刪除...如此改對嗎？
'Sheets("策略記錄").[b10:i10] 分別是以下的DEE
'[多空力道][反向勢力][主力控盤][摩台指][韓國綜合][日經指數]
End With
End If
End Sub

50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

14^#

發表於 2012-12-9 19:00 | 顯示全部帖子

回復 31# GBKEE
GBKEE大你好；
弄了半天..增加好多個？？？看來我是舉雙手投降了..以下是改的..不知是否正確？
請高手指導~~謝謝~~

'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub '營業時間才執行
※上面二行[營業時間才執行]時間未何不一致？
If Second(Time) Mod 30 = 0 Then '間隔30秒
'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....
※上面二行如我需要1分，是否二行都要改 Mod 60 = 0 Then，間隔60秒
This Workbook已改成；
'Sheets("策略記錄").[b10:g10] 分別是以下的DEE
'[多空力道][反向勢力][主力控盤][摩台指][韓國綜合][日經指數]

即時量態a.zip (20.58 KB)

50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

15^#

發表於 2012-12-9 21:08 | 顯示全部帖子

回復 33# f3202
改為 If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub
為何是[#11:30:00 PM#]？

50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

中學生 Rank: 2

帖子: 93
主題: 18
精華: 0
積分: 111
點名: 0
作業系統: XP
軟體版本: OFFICE
閱讀權限: 20
性別: 男
來自: 台灣‧高雄
註冊時間: 2010-10-22
最後登錄: 2023-3-3

論壇贊助勳章

16^#

發表於 2012-12-10 19:59 | 顯示全部帖子

回復 36# GBKEE
GBKEE大你好；請教2個問題...
Cells(4, 2) = 9 ' 紀錄從10列開始 [對嗎？]

If Second(Time) Mod 60 = 0 Then '間隔60秒
'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....
[是改一行還是二行都要改？]

附件；請指導是否OK...謝謝!!

即時量態a.zip (24.16 KB)