『已解決』dde tick資料轉換分鐘資料

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

10^# 跳轉到 »

發表於 2011-5-9 00:34 | 只看該作者

本帖最後由 ko310kmo 於 2011-5-9 00:35 編輯

回復 9# GBKEE

我把這大大的程式加入我原本的Calculate事件中後，
反而會造成我sheet1的Ｃ、Ｄ欄的值出不來
（這兩欄是寫ＤＤＥ公式，讓它接受傳值的）
各工作表的J欄的歷史成交價，也都無法往下記錄

而且也會一直在
『P = Sheets(.Cells(i, 2).Text).Cells(Row.Count, "J").End(xlUp).Row + 1』
出現　黃底色、『此處需要物件』的錯誤

請問是我哪裡弄錯了嗎？

有加.rar (22.85 KB)

沒加.rar (21.57 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兔年全勤獎章

9^#

發表於 2011-5-8 22:05 | 只看該作者

回復 8# ko310kmo
1為什麼欄要『2 to R』
第一維的元素 ->每分鐘時間,開、高、收、低、成交量
第二維的元素 -> 履約價的個數

AR( 第一維的元素從  1 To 6,第二維的元素從  2 To R)  第二維的元素->  2 =[B1]的列號 , R = .[B1].End(xlDown).Row ( 履約價最後的範圍)的列號
配合 Sheets(.Cells(i, 2).Text).Range("J" & P).Resize(1, 6) =Application.Index(Application.Transpose(AR), i - 1)
Application.Index 使用為工作表函數 ->傳回指定儲存格的值或陣列中的儲存格陣列。

2. 為什麼『Cells(i, 3) > AR(3, i)』就可以知道它是這一分鐘內的最高價??
一開始設AR(3, i)為最高價    Do While Minute(Time) = Minute(t)  後
  AR(3, i) = IIf(.Cells(i, 3) > AR(3, i)  , 條件成立-> .Cells(i, 3),條件不成立-> AR(3, i)) '轉換為大者是每分鐘的最高價
3.並沒有看到說要把它寫入哪個工作表
寫入在Sheets(.Cells(i, 2).Text)
Sheets(.Cells(i, 2).Text).Range("J" & P).Resize(1, 6) =Application.Index(Application.Transpose(AR), i - 1)

附檔明天再研究

TOP

ko310kmo

中學生 Rank: 2

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

8^#

發表於 2011-5-8 20:58 | 只看該作者

回復 7# GBKEE

大大不好意思
因為我是初學者，陣列還不是學的很好，所以有幾個問題想請教，
1.
『AR(1 To 6, 2 To R)』是(列,欄)的意思對吧!!
但不懂的是，為什麼欄要『2to R』
R = .[B1].End(xlDown).Row
是算新增了幾個工作表嗎?

2.
Cells(i, 3)是即時價格
為什麼『Cells(i, 3) > AR(3, i)』就可以知道它是這一分鐘內的最高價??

3.『Application.Index(Application.Transpose(AR), i - 1)』
請問這段的意思是什麼，有google過，但還是不太懂它們的解釋的意義.

大大寫的開、高、低，等三價的程式，並沒有看到說要把它寫入哪個工作表，
這樣會每個sheet各別計算嗎?(因為還沒開盤，還沒測試過)
像收盤價就有寫
P = Sheets(.Cells(i, 2).Text).Cells(Row.Count, "J").End(xlUp).Row + 1
Sheets(.Cells(i, 2).Text).Range("J" & P).Resize(1, 6) =Application.Index(Application.Transpose(AR), i - 1)
那它可以知道資料是要寫去哪一個工作表，其他三價的沒寫，會存對地方嗎??

附上檔案讓大大更了解我的架構與想法!!

Calculate OVER.rar (162.25 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兔年全勤獎章

7^#

發表於 2011-5-6 21:01 | 只看該作者

回復 6# ko310kmo
試試看不理想再說
每分鐘的成交量沒有成交時間的變動做不出來

Sub Ex() Dim t As Date, i%, R%, P%
With Sheet1
R = .[B1].End(xlDown).Row
Do
ReDim AR(1 To 6, 2 To R)
t = Time
For i = 2 To R
AR(1, i) = TimeSerial(Hour(Time), Minute(Time), 0) '每分鐘時間
AR(2, i) = .Cells(i, 3) '每分鐘的開盤價
AR(3, i) = .Cells(i, 3) '每分鐘的最高價
AR(5, i) = .Cells(i, 3) '每分鐘的最低價
'AR(6, i) = .Cells(i, 4) '每分鐘的成交量
Next
Do While Minute(Time) = Minute(t)
For i = 2 To R
DoEvents
AR(3, i) = IIf(.Cells(i, 3) > AR(3, i), .Cells(i, 3), AR(3, i)) '每分鐘的最高價
AR(5, i) = IIf(.Cells(i, 3) < AR(5, i), .Cells(i, 3), AR(5, i)) '每分鐘的最低價
' AR(6, i) = AR(6, i) + .Cells(i, 4) '每分鐘的成交量
Next
Loop
For i = 2 To R
AR(4, i) = .Cells(i, 3) '每分鐘的收盤價
P = Sheets(.Cells(i, 2).Text).Cells(Row.Count, "J").End(xlUp).Row + 1
Sheets(.Cells(i, 2).Text).Range("J" & P).Resize(1, 6) = Application.Index(Application.Transpose(AR), i - 1)
Next
Loop Until Time <= #1:30:00 PM#
End With
End Sub

複製代碼

TOP

ko310kmo

中學生 Rank: 2

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

6^#

發表於 2011-5-6 10:25 | 只看該作者

本帖最後由 ko310kmo 於 2011-5-6 10:36 編輯

回復 5# GBKEE

每一個工作表的歷史成交價是利用sheet1的變動來紀錄的，只要一變動就會往J欄一下向下紀錄，
我想從J欄的紀錄中抓出它每一分鐘的開、高、收、低、總量
(J欄是被動接受DDE傳來的值，每秒不停的接收，我想每到一分鐘就統計出它的開、高、收、低、成交量)
sheet2其實只是我篩選出履約價的工具，跟其他sheet沒有太大的關係
我是想在sheet1的Calculate事件寫入程式，以完成
同時多個表格都進行各自的歷史成交價持續記錄並抓出每一分鐘的開、高、收、低、成交量的寫法，
但怕會負擔過大or發生錯亂抓不到正真變動的儲存格
謝謝

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兔年全勤獎章

5^#

發表於 2011-5-6 08:29 | 只看該作者

回復 4# ko310kmo
我想在每個工作表中Ｊ欄分別紀錄下它們的即時資料,再Ｊ欄的隔壁想記下它們每分鐘的開、高、收、低、成交量.
這是類似期貨吧 ,我不了解期貨請問一下:
你的附檔Sheet1 只有履約價 , 即時成交價, 單量. 但各工作表只有履約價 ,即時成交價,史成交價,單量
開、高、收、低、成交量的資料是要從sheet2 取的嗎? 如是 Sheet2的資料會跟著 SHEET1即時成交價來變動嗎?

TOP

ko310kmo

中學生 Rank: 2

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

4^#

發表於 2011-5-5 22:35 | 只看該作者

本帖最後由 ko310kmo 於 2011-5-6 10:34 編輯

回復 2# luhpro

『首先要抓取即時報價軟體內的資料,
最簡單的方式就是採用該軟體自帶的匯出到(或是拖曳到) Excel 表格中的功能,
匯出後在Excel表上的就是即時的報價資料, (記得開報價軟體)
如此每隔一段時間 Copy 一次到其他表格內應該就是你要的東西了.』

這裡我本來就已經做出來了，絕對不是偷懶沒想過，就貼上來問大家

我有搜尋過資料，但多半是一對一的（針對一檔股票or一檔期貨）
像我這種一對多個的好像比較少，而且我怕我的Calculate事件會負擔過大or發生錯亂
還有也比較少看到同時多個表格都進行即時價格持續記錄並抓出每一分鐘的開、高、收、低、成交量的寫法，
而且我還是小學生階級，無法開附件來看
所以才會貼出來請教大家的，謝謝。

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

TOP

kimo5566

中學生 Rank: 2

帖子: 31
主題: 8
精華: 0
積分: 58
點名: 0
作業系統: xp
軟體版本: office 2007
閱讀權限: 20
性別: 男
來自: taipe
註冊時間: 2011-4-29
最後登錄: 2014-1-20

3^#

發表於 2011-5-5 22:07 | 只看該作者

回復 1# ko310kmo

時間上語法可以參考我Po的文 (要感謝板主的解答)
也有類似的問題

TOP

luhpro

高中生 Rank: 3 Rank: 3

帖子: 835
主題: 6
精華: 0
積分: 915
點名: 16
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2024-11-14

2^#

發表於 2011-5-5 21:41 | 只看該作者

回復 1# ko310kmo

首先要抓取即時報價軟體內的資料,
最簡單的方式就是採用該軟體自帶的匯出到(或是拖曳到) Excel 表格中的功能,
匯出後在Excel表上的就是即時的報價資料, (記得開報價軟體)
如此每隔一段時間 Copy 一次到其他表格內應該就是你要的東西了.

而日期可以用MyDate = Date 抓,
時間就抓目前的時間 : MyTime = Time)

至於每隔一段時間就要做某件事的方式就請爬爬文囉,
此站上之前已不少人問過,
可供參考的例子應該滿多的.

TOP

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

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