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

帖子: 75
主題: 1
精華: 0
積分: 371
點名: 1
作業系統: win7
軟體版本: office 2007
閱讀權限: 20
註冊時間: 2010-5-4
最後登錄: 2024-11-27

33^# 跳轉到 »

發表於 2012-12-9 20:12 | 只看該作者

回復 32# cfuxiong

If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub '營業時間才執行

改為 If Time < #9:00:00 AM# Or Time > #11:30:00 PM# Then Exit Sub '營業時間才執行

測試就知道

TOP

cfuxiong

中學生 Rank: 2

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

論壇贊助勳章

32^#

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

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

31^#

發表於 2012-12-9 14:59 | 只看該作者

回復 30# cfuxiong

.Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
' ****** Sheets("策略記錄").[b2:i2] 分別是以下的DEE ******
'****[多空力道][反向勢力][主力控盤][台指期成交價][台指期成交價][摩台指][韓國綜合][日經指數]****

複製代碼

24#程式碼 : 工作表 Sheets("策略記錄").[B2:I2] 這8個儲存格 ,要改成那些DEE的公式
程式每隔?秒,要抓取.[b2:i2].Value 這些資料到 .Cells(Pos, 2).Resize(, 8) 這裡
完成上面步驟,VBA 視窗裡:ThisWorkbook模組刪掉所有程式碼 ,貼上 24# 所有程式碼?
明天看是否成功!!!!

TOP

cfuxiong

中學生 Rank: 2

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

論壇贊助勳章

30^#

發表於 2012-12-9 14:24 | 只看該作者

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

29^#

發表於 2012-12-9 14:07 | 只看該作者

本帖最後由 GBKEE 於 2012-12-9 14:09 編輯

回復 28# cfuxiong
沒有那麼難的,照我說的去試試看!!!

這裡改依改就可
'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
'[多空力道][反向勢力][主力控盤][台指期成交價][台指期成交價][摩台指][韓國綜合][日經指數]

TOP

cfuxiong

中學生 Rank: 2

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

論壇贊助勳章

28^#

發表於 2012-12-9 12:59 | 只看該作者

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

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

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

27^#

發表於 2012-12-9 12:47 | 只看該作者

本帖最後由 GBKEE 於 2012-12-9 12:49 編輯

回復 26# cfuxiong
不是加上: 是要修改ThisWorkbook 上的程式碼 (copy 覆蓋掉 ThisWorkbook 上的程式碼)

TOP

cfuxiong

中學生 Rank: 2

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

論壇贊助勳章

26^#

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

c_c_lai

博士班 Rank: 6 Rank: 6

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

25^#

發表於 2012-12-9 12:01 | 只看該作者

回復 23# cfuxiong
上層 GBKEE 版大提示的明細範例，
是否已解決了你的問題？

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

24^#

發表於 2012-12-9 11:19 | 只看該作者

回復 23# cfuxiong
試試看

Option Explicit
Private Sub Workbook_Open()
With Sheets("策略記錄")
.Cells(4, 2) = 9 ' 紀錄從10列開始
.Range(.Cells(10, 1), .Cells(10, 1).End(xlDown).Offset(, 8)) = ""
'清除舊有資料
End With
Timer_DEE
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE", , False
End Sub
Public Sub Timer_DEE()
'Timer 函數傳回一 Single，其內容為從前一個午夜算起到現在所經過的秒數。
'變數,程序:名稱要避免使用VBA 的內定關鍵字
Dim Pos As Integer, i As Integer, RangeStr As String
On Error Resume Next
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE" '每秒顯示
Sheets("策略記錄").Cells(3, 2) = Time '將時間show至策略的b3欄位
'Dim HHMM As Integer
'HHMM = Hour(Time) * 100 + Minute(Time)
'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秒 ....
With Sheets("策略記錄")
.Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
Pos = .Cells(4, 2)
.Cells(Pos, 1) = Time
.Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
'[多空力道][反向勢力][主力控盤][台指期成交價][台指期成交價][摩台指][韓國綜合][日經指數]
End With
End If
End Sub

複製代碼

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]