返回列表 上一主題 發帖

[發問] RTD抓TICK，如何設定當總量變化時在抓取

fansofcheer0987

帖子
4 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2016 
閱讀權限
10 
註冊時間
2017-2-26 
最後登錄
2017-6-15 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2017-5-20 01:48 | 顯示全部帖子

[發問] RTD抓TICK，如何設定當總量變化時在抓取

本帖最後由 fansofcheer0987 於 2017-5-20 01:51 編輯

各位先進好，小弟想發問：
因為我最近在用RTD收TICK，想做新的技術指標，
但是RTD到excel後，執行VBA時若單純只用每隔一段時間就抓取一次，
這樣抓取下來的tick事實上是失真的，並非真正的tick，
我的想法是：因為成交時總量會變，所以只要在總量變時在抓就好，
想請教的是，要如何才能達到呢？
試過setlinkondata方法，卻用不出來
worksheet change 似乎也不行，與RTD公式值未變動有關，
於是上來請教各位大哥先進們，幫幫忙。

活頁簿1.rar (29.05 KB)

是接凱基RTD的

收藏 分享

fansofcheer0987

帖子
4 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2016 
閱讀權限
10 
註冊時間
2017-2-26 
最後登錄
2017-6-15 
2#
發表於 2017-5-25 20:25 | 顯示全部帖子
[版主管理留言]
  • GBKEE(2017/5/26 06:16): 你的程式碼是可行的請上傳修改後的檔案看看

回復 2# GBKEE

GBKEE 大大好，因為最近有些雜事，到今天才有機會測試
Private Sub Worksheet_Calculate() '只有總量RTD公式,的工作表模組.
   
     Set Sht1 = ThisWorkbook.Sheets("c")   '新開的分頁  然後此分頁只有A1 填入公式 RTD總量的報價
   
    If Not IsError([A1]) Then                           '未開盤時 RTD公式傳回 "N/A" 為錯誤值
        If [A1] < 0 And IsNumeric([A1]) Then     '開盤後,總量需有 >0 的數字
                '執行程式碼  '**抓取你要的資料**
               
            xRow = Sht1.Range("A1000000").End(xlUp).Row + 1 '由上往下找
            Sht1.Range("A2").EntireRow.Insert
            Sht1.Range("A2:J2").Value = Sht1.Range("A1:J1").Value
        End If
   End If
   
End Sub

    但是卻沒有效果 我在想是哪裡出錯了，請大大指教

TOP

fansofcheer0987

帖子
4 
主題
1 
精華
0 
積分
6 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE2016 
閱讀權限
10 
註冊時間
2017-2-26 
最後登錄
2017-6-15 
3#
發表於 2017-6-9 16:22 | 顯示全部帖子
回復 2# GBKEE


    檔案附上 ，麻煩您了，謝謝

活頁簿1.rar (28.28 KB)

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題