123456789
返回列表 上一主題 發帖

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

c_c_lai

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

TOP

cfuxiong

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

論壇贊助勳章
12#
發表於 2012-10-18 22:00 | 只看該作者
DDE匯入字串公式 J2 改成 K2=>找不到位址再哪？可以告訴我嗎？
50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

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

論壇贊助勳章
13#
發表於 2012-10-18 22:00 | 只看該作者
回復 11# c_c_lai
DDE匯入字串公式 J2 改成 K2=>找不到位址再哪？可以告訴我嗎？
50 字節以內
不支持自定義 Discuz! 代碼

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
14#
發表於 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 
15#
發表於 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

momowu

帖子
37 
主題
10 
精華
0 
積分
176 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-6-22 
最後登錄
2014-1-16 
16#
發表於 2012-10-22 11:27 | 只看該作者
感謝兩位C大的討論後成果的分享
因為小弟僅需要5min的量資料而已
去哪改從1min成5min呢?
謝謝

TOP

momowu

帖子
37 
主題
10 
精華
0 
積分
176 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-6-22 
最後登錄
2014-1-16 
17#
發表於 2012-10-22 11:36 | 只看該作者
這邊小弟有個想法，如果使用DDE的成交量
然後用時間來截止每分鐘(因人而異)紀錄一次成交量
作個簡單減法，就可以知道這一分鐘或這五分鐘，成交量增加了多少
程式會不會變得簡單一點呢?

TOP

c_c_lai

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

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

TOP

wengin66

帖子
12 
主題
4 
精華
0 
積分
62 
點名
0  
作業系統
winxp 
軟體版本
sp3 
閱讀權限
20 
性別
男 
註冊時間
2012-10-22 
最後登錄
2018-11-13 
19#
發表於 2012-10-22 22:50 | 只看該作者
謝謝分享~~~

TOP

cfuxiong

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

論壇贊助勳章
20#
發表於 2012-12-8 12:53 | 只看該作者
回復 18# c_c_lai
c_c_lai大你好；
能否把 附件【策略記錄】欄[摩台][韓國][日本]也增列每30秒記錄？
連同[量態]1分也改30秒~~
我用併湊整合都未能合意..是我資質太差，懇請能幫忙..謝謝!!
我EMail：cfuxiong@gmail.com  歡迎指教

量態.zip (35.86 KB)

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

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
123456789
返回列表 上一主題