[發問] 有關於自動交易系統怎樣觸發發單的問題

帖子: 7
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2014-4-24
最後登錄: 2014-4-26

2^#

發表於 2014-4-24 21:27 | 只看該作者

http://itgroup.blueshop.com.tw/kenming/blog?n=convew&i=7699
看到这个帖子的内容，是利用setlinkondata写DDE變化event，正好符合我的要求，
但怎樣使用沒有看懂，請求大大們講解。。

diabo

中學生 Rank: 2

帖子: 79
主題: 2
精華: 0
積分: 193
點名: 0
作業系統: Winwos 7 64 bits
軟體版本: Excel 2003/2007
閱讀權限: 20
性別: 男
來自: TAIPEI
註冊時間: 2010-8-25
最後登錄: 2019-9-20

3^#

發表於 2014-4-24 21:35 | 只看該作者

小弟最近開始研究EXCEL的自動交易系統，使用touchance的DDE數據。
數據記錄方式：
，每一分鐘記錄依次計入 ...
flyflyduck1 發表於 2014-4-24 15:17

Private Sub Worksheet_Calculate()
........
.......
End Sub

複製代碼

diabo

帖子: 7
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2014-4-24
最後登錄: 2014-4-26

4^#

發表於 2014-4-24 22:36 | 只看該作者

diabo 發表於 2014-4-24 21:35

請教什麽意思？用calculate事件是否需要用迴圈？

帖子: 7
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2014-4-24
最後登錄: 2014-4-26

5^#

發表於 2014-4-24 22:38 | 只看該作者

回復 3# diabo
请参考：
“這可是相當相當的麻煩了！因為透過第一個程序內的參數 (Range Object)，可以很方便地得知是哪一個 CELL 的資料變動，但第二個程式則否。所以若要知道在某一個工作表是哪一個 CELL 的資料變動，就必須寫 FOR LOOP 迴圈，一個一個來判斷是哪一個 CELL 欄位的資料變動。我幾乎看到許多寫判斷 Tick 資料變動的程式，都是以該事件程序 (Worksheet_Calculate) 來處理。當然，欄位不多還 OK，但是若是像我這樣，一個工作表是撈約 100 檔的權值成份股、約有 500 ~ 800 個 DDE 欄位的話，那肯定效能會大出問題，連動當然會影響到 Tick 資料的正確性了。整整爬文了一整個早上，總算才找到真正正確處理 DDE CELL 型態的事件程序了。不應該使用 "WorkSheet_Calculate()"、而是採用 "SetLinkOnData()" 程序才是。”
不知道您的解决方案是否是这样呢？

bobomi

中學生 Rank: 2

帖子: 181
主題: 5
精華: 0
積分: 197
點名: 0
作業系統: XP
軟體版本: 2000
閱讀權限: 20
性別: 女
註冊時間: 2014-3-9
最後登錄: 2024-4-29

6^#

發表於 2014-4-24 23:31 | 只看該作者

SetLinkOnData() 也不是好方法

帖子: 7
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2014-4-24
最後登錄: 2014-4-26

7^#

發表於 2014-4-25 09:47 | 只看該作者

回復 6# bobomi
請問好方法是什麽樣的呢？:'( :'( :'(

帖子: 7
主題: 1
精華: 0
積分: 9
點名: 0
作業系統: win7
軟體版本: office 2007
閱讀權限: 10
註冊時間: 2014-4-24
最後登錄: 2014-4-26

8^#

發表於 2014-4-25 23:19 | 只看該作者

有沒有大神指點小弟一下啊？
等著用好著急啊。。。。

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^#

發表於 2014-4-26 12:43 | 只看該作者

本帖最後由 GBKEE 於 2014-4-27 10:38 編輯

回復 8# flyflyduck1
一般的接收DEE的資料時間,開盤價,最高價,最低價,收盤價,成交量,成交筆數
在固定的儲存格接收數值,使用者在1分鐘,或 5分鐘將資料導入指定的位置
可參考下面Sheet1模組程式執行Ex()試試看

Option Explicit '接收DEE的資料可使用 Worksheet_Calculate
Private Sub Worksheet_Calculate()
Static DataLoad_Time As Single 'Static 關鍵字儲存變數
Static Ar()
'Static 陳述式在程序層次中用來宣告變數並配置儲存空間。
'以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容
'這工作表: 假設Dee公式在[B2:I2],且他儲存格無公式存在
'意味任一個 Dee公式有變動會啟動這Calculate事件
If DataLoad_Time <> 0 And [b2] - DataLoad_Time > #12:00:59 AM# Then '在下一分鐘出現後
Range("B" & Rows.Count).End(xlUp).Offset(1).Resize(1, 8) = Ar '導入上一分鐘的資料
'可接下作你要的工作
'可接下作你要的工作
End If
Ar = [B2:I2].Value '紀錄資料
DataLoad_Time = [b2] '紀錄時間
End Sub
Sub Ex() '這程序模擬Dee公式在Sheet2上的儲存格,進而觸發Worksheet_Calculate事件
Dim h, L
h = 50
L = 40
With Sheet2.[B2:I2]
.Cells(1) = Time '只有資料變動,才會觸發Worksheet_Calculate事件
.Cells(2) = Int((h - L + 1) * Rnd + L) '50 - 40的亂數
.Cells(3) = Int((h - L + 1) * Rnd + L)
.Cells(4) = Int((h - L + 1) * Rnd + L)
.Cells(5) = Int((h - L + 1) * Rnd + L)
.Cells(6) = Int((h - L + 1) * Rnd + L)
.Cells(7) = Int((h - L + 1) * Rnd + L)
.Cells(8) = Int((h - L + 1) * Rnd + L) '如變動8次就觸發8次的Worksheet_Calculate事件
End With
Application.OnTime Time + #12:01:00 AM#, "Sheet1.ex"
Debug.Print Time
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.