123456789
返回列表 上一主題 發帖

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

f3202

帖子
75 
主題
1 
精華
0 
積分
371 
點名
0  
作業系統
win7 
軟體版本
office 2007 
閱讀權限
20 
註冊時間
2010-5-4 
最後登錄
2026-9-21 
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

帖子
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

帖子
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
  1. .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
  2.             ' ****** Sheets("策略記錄").[b2:i2] 分別是以下的DEE   ******
  3.            '****[多空力道][反向勢力][主力控盤][台指期 成交價][台指期 成交價][摩台指][韓國綜合][日經指數]****
複製代碼

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

TOP

cfuxiong

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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

帖子
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
試試看
  1. Option Explicit
  2. Private Sub Workbook_Open()
  3.     With Sheets("策略記錄")
  4.         .Cells(4, 2) = 9 ' 紀錄從10列開始
  5.         .Range(.Cells(10, 1), .Cells(10, 1).End(xlDown).Offset(, 8)) = ""
  6.         '清除 舊有資料
  7.     End With
  8.     Timer_DEE
  9. End Sub
  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  11.     On Error Resume Next
  12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE", , False
  13. End Sub
  14. Public Sub Timer_DEE()
  15.     'Timer 函數 傳回一 Single，其內容為從前一個午夜算起到現在所經過的秒數。
  16.     '變數,程序:名稱要避免使用VBA 的內定關鍵字
  17.     Dim Pos As Integer, i As Integer, RangeStr As String
  18.     On Error Resume Next
  19.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE"    '每秒顯示
  20.     Sheets("策略記錄").Cells(3, 2) = Time                                   '將時間show至策略的b3欄位
  21.     'Dim HHMM As Integer
  22.     'HHMM = Hour(Time) * 100 + Minute(Time)
  23.     'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub '營業時間才執行
  24.     If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  '營業時間才執行
  25.     If Second(Time) Mod 30 = 0 Then '間隔30秒
  26.     'If Second(Time) Mod 5 = 0 Then '間隔5秒 10秒 15秒 ....
  27.         With Sheets("策略記錄")
  28.             .Cells(4, 2) = .Cells(4, 2) + 1 '將變動行號加一行
  29.             Pos = .Cells(4, 2)
  30.             .Cells(Pos, 1) = Time
  31.             .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
  32.             'Sheets("策略記錄").[b2:i2] 分別是以下的DEE
  33.             '[多空力道][反向勢力][主力控盤][台指期 成交價][台指期 成交價][摩台指][韓國綜合][日經指數]
  34.         End With
  35.     End If
  36. End Sub
複製代碼

TOP

        靜思自在 : 盡多少本份，就得多少本事。
123456789
返回列表 上一主題