123
返回列表 上一主題 發帖

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

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
1# 跳轉到 »
發表於 2012-9-29 12:42 | 顯示全部帖子
回復 1# cfuxiong
中秋佳節快樂！
我在 Sheet4 多增加一個欄位，專為處理每一分鐘後之 "成交量" 數據。
如何將台指期的每一分鐘資料都紀錄.rar (17.24 KB)

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-9-29 21:04 | 顯示全部帖子
為了讓更多人進一步明瞭整體的作業過程，未來也可以自己在實務上實際演練
及摩擬，故將作業畫面與程式一併貼附上來分享。
希望每個人都能從中學習領悟、寫出更佳的程式，再將成果分享提供給大家！
  1. Option Explicit

  3. Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single
  4. Dim timerEnabled As Boolean    ' 判定開啟本工作表單的時段是否為開盤前啟動。
  5. Public turnKey As Integer

  7. Private Sub Workbook_Open()
  8.     timerEnabled = False
  9.     Sheets("Sheet4").[I2] = Sheets("Sheet4").[H2]     ' 設定前成交量
  10.     Call timerStart            ' 程式一啟始，便去自動執行 timerStart
  11. End Sub

  13. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  14.     On Error Resume Next
  15.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.RTimer", , False
  16.    
  17.     Me.Save
  18. End Sub

  20. Public Sub RTimer(tm As Date)
  21.     Dim TimeRange As Range, Rng As Range
  22.     Dim pos As Integer
  23.    
  24.     On Error Resume Next
  25.     If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
  26.    
  27.     If (TimeValue(Now) >= TimeValue("08:45:00")) Then         ' 開盤、收盤時段設定
  28.         ' 盤中處理，將資料匯入寫入工作表單內儲存。
  29.         With Sheets("Sheet1")
  30.             If Not IsError(.[B2]) Then
  31.                 .[B1] = "成交價"
  32.                 .[C1] = "最高價"
  33.                 .[D1] = "最低價"
  34.                 .[E1] = "成交量"
  35.                
  36.                 Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0))  ' 檢查 "A" 欄位對應之時間資料
  37.                 Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
  38.                
  39.                 Rng(1) = Cv                                             ' 成交價
  40.                 Rng(2) = Hv                                             ' 最高價
  41.                 Rng(3) = Lv                                             ' 最低價
  42.                 Rng(4) = Sheets("Sheet4").[H2] - Sheets("Sheet4").[I2]  ' 成交量
  43.                 Sheets("Sheet4").[I2] = Sheets("Sheet4").[H2]           ' 重新設定前成交量
  44.             End If
  45.         End With
  46.     End If
  47. End Sub

  49. Sub timerStart()
  50.     turnKey = 0                  ' 計數器重新歸零
  51.     Sheets("Sheet4").[A3] = "( " & turnKey & " 秒 )"
  52.    
  53.     If timerEnabled Then
  54.         ' 第二次(含)以後均以設定之 "間隔時段" 來處理執行序的作業。
  55.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.inProcess"
  56.     Else
  57.         timerEnabled = True
  58.         
  59.         ' 將第一次啟動時間更改為設定 "開盤時間"前，如果開啟 Excel 時，已經過了設定 "開盤時間"，則一進入系統即直接去執行紀錄作業。
  60.         If (TimeValue(Now) <= TimeValue("08:45:00")) Then
  61.             Sheets("Sheet1").[B2:E301].ClearContents      ' 清除前一日之資料
  62.             Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.inProcess"
  63.         Else
  64.             ' 系統剛連上 DDE 至資料匯入Excel工作表單，須有一個緩衝時段，
  65.             ' 這時如果馬上去抓取DDE資料，會有型態不符的錯誤訊息產生，並中斷執行序的作業。
  66.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.inProcess"
  67.         End If
  68.     End If
  69. End Sub

  71. Private Sub inProcess()
  72.     Static Msg As Boolean          ' 用以判定是否為每日第一次執行
  73.     Static timeCalc As Date        ' 記錄每分鐘的時間
  74.    
  75.     On Error Resume Next
  76.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:46:01")) Then Exit Sub
  77.       
  78.     If Msg = False Then
  79.         timeCalc = TimeSerial(Hour(Time), Minute(Time), 0)   ' 設定目前起始的時間
  80.         Msg = True
  81.     End If
  82.    
  83.     If IsError(Sheets("Sheet4").Range("B2").Value) Then
  84.         Cv = 0
  85.     Else
  86.         Cv = Sheets("Sheet4").Range("B2").Value    ' 成交價
  87.     End If
  88.          
  89.     If (turnKey = 0 Or Ov = 0) Then
  90.         Ov = Cv                                      ' 開盤價
  91.         Hv = Cv                                      ' 最高價
  92.         Lv = Cv                                      ' 最低價
  93.     End If
  94.         
  95.     If (Cv > Hv) Then Hv = Cv                        ' 最高價
  96.     If (Cv < Lv) Then Lv = Cv                        ' 最低價
  97.          
  98.     turnKey = turnKey + 1
  99.     Sheets("Sheet4").[A3] = "( " & turnKey & " 秒 )"
  100.     If Time >= timeCalc + #12:01:00 AM# Then
  101.         If (Cv > 0) Then Call RTimer(Time)
  102.         timeCalc = TimeSerial(Hour(Time), Minute(Time), 0)   ' 重新設定下一分鐘比對的時間
  103.         If timerEnabled Then Call timerStart
  104.     Else
  105.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.inProcess"
  106.     End If
  107. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
3#
發表於 2012-10-3 20:22 | 顯示全部帖子
回復 5# cfuxiong
在跑這支程式執行中，切記勿開啟另一隻Excel 程式，請回憶看看是否有這種情形？
如果只是單純跑這隻的話，除非是電腦本身有狀況，你說的情況是不可能會發生的！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
4#
發表於 2012-10-3 20:28 | 顯示全部帖子
回復 5# cfuxiong
還有如果券商的軟體掛了重新開啟， EXCEL 亦要一併先予關閉後再開 (重新連結DDE)。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
5#
發表於 2012-10-4 21:14 | 顯示全部帖子
回復  c_c_lai
c_c_lai版大你好；昨天實測是有與[量態]同時使用....
今天就沒問題了...那要與[量態]併用 ...
cfuxiong 發表於 2012-10-4 19:10

能不能將它們合併在一個 EXCEL 內應用？
這也是我一直的困擾，不知是 EXCEL 的 VBA 相互間處理所導致，還是其它因素？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
6#
發表於 2012-10-18 21:45 | 顯示全部帖子
回復 10# cfuxiong
你直接將DDE匯入字串公式 J2 改成 K2 就 OK 了。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
7#
發表於 2012-10-18 22:10 | 顯示全部帖子
回復 13# cfuxiong
你的券商是用哪家？
譬如：元大       成交價    =YT|KS!TXFJ2.124   --->   =YT|KS!TXFK2.124
            易利得   成交價    =CATDDE|'FUTOPT<FO>TXFJ2     '!CurPrice   --->   =CATDDE|'FUTOPT<FO>TXFK2     '!CurPrice
以此類推。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
8#
發表於 2012-10-18 22:28 | 顯示全部帖子
回復 13# cfuxiong
送你一支轉換涵式，你只要更換成你寫入的欄位便成 (元大及易利得)。
  1. Sub changeMonth()               ' 執行結算轉月
  2.     Dim sCode, tCode As String, mArray()
  3.    
  4.     sCode = Sheets("Omega").Range("U17").Value       '   [color=Red]目前(本月)引入值為   "K211"[/color]

  6.     If (Len(sCode) = 4) Then
  7.         mArray = Array("一月", "二月", "三月", "四月", "五月", "六月", "七月", "八月", "九月", "十月", "十一月", "十二月")
  8.         tCode = Right(sCode, 2)
  9.         sCode = Left(sCode, 2)
  10.          
  11.         With Sheets("Omega")
  12.             .Range("A2").Value = "TXF" & sCode                   '  元大
  13.             .Range("B2").Formula = "=YT|KS!TXF" & sCode & ".402"
  14.             .Range("C2").Formula = "=YT|KS!TXF" & sCode & ".122"
  15.             .Range("D2").Formula = "=YT|KS!TXF" & sCode & ".123"
  16.             .Range("E2").Formula = "=YT|KS!TXF" & sCode & ".124"
  17.             .Range("F2").Formula = "=YT|KS!TXF" & sCode & ".125"
  18.             .Range("G2").Formula = "=YT|KS!TXF" & sCode & ".126"
  19.             .Range("H2").Formula = "=YT|KS!TXF" & sCode & ".128"
  20.             .Range("I2").Formula = "=YT|KS!TXF" & sCode & ".130"
  21.             .Range("J2").Formula = "=YT|KS!TXF" & sCode & ".131"
  22.             .Range("K2").Formula = "=YT|KS!TXF" & sCode & ".132"
  23.             .Range("L2").Formula = "=YT|KS!TXF" & sCode & ".133"
  24.             .Range("M2").Formula = "=YT|KS!TXF" & sCode & ".135"
  25.             .Range("N2").Formula = "=YT|KS!TXF" & sCode & ".136"
  26.             .Range("O2").Formula = "=YT|KS!TXF" & sCode & ".437"
  27.             .Range("P2").Formula = "=YT|KS!TXF" & sCode & ".405"
  28.             .Range("Q2").Formula = "=YT|KS!TXF" & sCode & ".406"
  29.             .Range("R2").Formula = "=YT|KS!TXF" & sCode & ".407"
  30.             .Range("S2").Formula = "=YT|KS!TXF" & sCode & ".422"
  31.             .Range("T2").Formula = "=YT|KS!TXF" & sCode & ".423"
  32.             .Range("U2").Formula = "=YT|KS!TXF" & sCode & ".431"
  33.             .Range("V2").Formula = "=YT|KS!TXF" & sCode & ".170"
  34.             .Range("W2").Formula = "=YT|KS!TXF" & sCode & ".172"
  35.             .Range("X2").Formula = "=YT|KS!TXF" & sCode & ".171"
  36.             .Range("Y2").Formula = "=YT|KS!TXF" & sCode & ".173"
  37.             .Range("Z2").Formula = "=YT|KS!TXF" & sCode & ".290"
  38.             .Range("AA2").Formula = "=YT|KS!TXF" & sCode & ".291"
  39.             .Range("AB2").Formula = "=YT|KS!TXF" & sCode & ".201"
  40.             .Range("AC2").Formula = "=YT|KS!TXF" & sCode & ".202"
  41.             .Range("AD2").Formula = "=YT|KS!TXF" & sCode & ".203"
  42.             .Range("AE2").Formula = "=YT|KS!TXF" & sCode & ".204"
  43.             .Range("AF2").Formula = "=YT|KS!TXF" & sCode & ".205"
  44.             .Range("AG2").Formula = "=YT|KS!TXF" & sCode & ".211"
  45.             .Range("AH2").Formula = "=YT|KS!TXF" & sCode & ".212"
  46.             .Range("AI2").Formula = "=YT|KS!TXF" & sCode & ".213"
  47.             .Range("AJ2").Formula = "=YT|KS!TXF" & sCode & ".214"
  48.             .Range("AK2").Formula = "=YT|KS!TXF" & sCode & ".215"
  49.             .Range("AL2").Formula = "=YT|KS!TXF" & sCode & ".221"
  50.             .Range("AM2").Formula = "=YT|KS!TXF" & sCode & ".222"
  51.             .Range("AN2").Formula = "=YT|KS!TXF" & sCode & ".223"
  52.             .Range("AO2").Formula = "=YT|KS!TXF" & sCode & ".224"
  53.             .Range("AP2").Formula = "=YT|KS!TXF" & sCode & ".225"
  54.             .Range("AQ2").Formula = "=YT|KS!TXF" & sCode & ".231"
  55.             .Range("AR2").Formula = "=YT|KS!TXF" & sCode & ".232"
  56.             .Range("AS2").Formula = "=YT|KS!TXF" & sCode & ".233"
  57.             .Range("AT2").Formula = "=YT|KS!TXF" & sCode & ".234"
  58.             .Range("AU2").Formula = "=YT|KS!TXF" & sCode & ".235"
  59.             .Range("AV2").Formula = "=YT|KS!TXF" & sCode & ".147"
  60.             .Range("AW2").Formula = "=YT|KS!TXF" & sCode & ".148"

  62.             .Range("A12").Value = "台期 " & tCode                          '  易利得
  63.             .Range("B12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!BuyPrice1"
  64.             .Range("B13").Value = "臺指     " & tCode
  65.             .Range("C12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!SellPrice1"
  66.             .Range("D12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!CurPrice"
  67.             .Range("E12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!TickVol"
  68.             .Range("F12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Volume"
  69.             .Range("G12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!High"
  70.             .Range("H12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Low"
  71.             .Range("I12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Diff"
  72.             .Range("J12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!DiffRate"
  73.             .Range("K12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!UpLimit"
  74.             .Range("L12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!DownLimit"
  75.             .Range("M12").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!TheoryPrice"
  76.             .Range("D13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustBuyVol"
  77.             .Range("D14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustSellVol"
  78.             .Range("F13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TotalBuyCnt"
  79.             .Range("F14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TotalSellCnt"
  80.             .Range("H13").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustBuyCnt"
  81.             .Range("H14").Formula = "=CATDDE|'FUTOPTTRADE<T>TXF" & sCode & "     '!TrustSellCnt"
  82.             .Range("K14").Formula = "=CATDDE|'FUTOPT<FO>TXF" & sCode & "     '!Open"
  83.             .Range("A18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol1"
  84.             .Range("A19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol2"
  85.             .Range("A20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol3"
  86.             .Range("A21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol4"
  87.             .Range("A22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyVol5"
  88.             .Range("A23").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!TotalBuyVol"
  89.             .Range("B18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice1"
  90.             .Range("B19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice2"
  91.             .Range("B20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice3"
  92.             .Range("B21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice4"
  93.             .Range("B22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!BuyPrice5"
  94.             .Range("C18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice1"
  95.             .Range("C19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice2"
  96.             .Range("C20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice3"
  97.             .Range("C21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice4"
  98.             .Range("C22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellPrice5"
  99.             .Range("D18").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol1"
  100.             .Range("D19").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol2"
  101.             .Range("D20").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol3"
  102.             .Range("D21").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol4"
  103.             .Range("D22").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!SellVol5"
  104.             .Range("D23").Formula = "=CATDDE|'FUTOPT<FO>GTF" & sCode & "     '!TotalSellVol"
  105.         End With
  106.     End If
  107. End Sub
複製代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
9#
發表於 2012-10-22 12:07 | 顯示全部帖子
這邊小弟有個想法，如果使用DDE的成交量
然後用時間來截止每分鐘(因人而異)紀錄一次成交量
作個簡單減法， ...
momowu 發表於 2012-10-22 11:36

無論是一分鐘、五分鐘、十分鐘、基本上你還是需要有每一循環的成交量起始值，
程式碼並不會因此而有所增減，變的只是使用端的需求不同罷了。

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
10#
發表於 2012-12-9 07:43 | 顯示全部帖子
回復  c_c_lai
c_c_lai大你好；
能否把 附件【策略記錄】欄[摩台][韓國][日本]也增列每30秒記錄？
連同 ...
cfuxiong 發表於 2012-12-8 12:53

看了你策略記錄的內容，匯入時間是固定欄紀錄時間
(目前是每一分鐘記錄一筆)，你說的 "也增列" 每30秒記錄？
不太明白你想的是甚麼？
又、 [摩台][韓國][日本] 資料源在哪裡？

TOP

        靜思自在 : 【蒙蔽的自由】人常在什麼都可以自由自在的時候，卻被這種隨心所欲的自由蒙蔽，虛擲時光而毫無覺知。
123
返回列表 上一主題