[發問] 利用Textbox LinkedCell 去記錄tick總量變化

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

2^#

發表於 2016-5-4 08:16 | 只看該作者

本帖最後由 c_c_lai 於 2016-5-4 08:17 編輯

回復 1# vic
我寫了一支測試範例，能同時來觀測 A1 觸發
以及連結 TextBox1 數據變化的實際狀態。
換句話說，在開盤後啟動此測試檔來進行
觀察 DDE 實務上匯入資料時，它究竟是否會
觸發『工作表1』的「Worksheet_Change()」
事件 (Event)，同時是否同步帶動連結 A1 欄位的
(LinkedCell) 的 TextBox1 之「TextBox1_Change()」，
進而能從 [H1]、[I1] 兩個欄位中觀察到其數據變動之
「增加值」是否同步。如果僅有 [I1] 欄的數據有所增加，
而 [H1] 欄的數據無任何「增加值」，此即表示 DDE
資料之匯入數據值的變化並不會牽動「Worksheet_Change()」
A1 欄位變化的事件 (Event)。

決果值如何煩請告知，以便進一步知悉該如何進行，謝謝！
PS：因我目前沒有使用券商軟體。

TestLinkedCell.rar (15.33 KB)
。

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

3^#

發表於 2016-5-4 08:20 | 只看該作者

回復 1# vic
『工作表1』之程式碼：

Private Sub TextBox1_Change()
[I1] = [I1] + 1
End Sub
Private Sub Worksheet_Change(ByVal target As Range)
If target.Address = "$A$1" Then
[H1] = [H1] + 1
End If
End Sub

複製代碼

vic

中學生 Rank: 2

帖子: 16
主題: 5
精華: 0
積分: 50
點名: 0
作業系統: win7 64
軟體版本: excel 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-7-5
最後登錄: 2017-4-18

4^#

發表於 2016-5-4 08:57 | 只看該作者

你好感謝您的協助
目前只有I1的值會一直加總上去
可是H1一直都沒有值

回復 2# c_c_lai

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

5^#

發表於 2016-5-4 16:29 | 只看該作者

回復 4# vic
如此看來，DDE 資料之匯入確實不會觸發
Worksheet_Change() (誠如 GBKEE 大大所言)，
所以只能藉由像本範例之 TextBox1，透過它來
得知數據之變動。謝謝你的實務測試！

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

6^#

發表於 2016-5-4 17:03 | 只看該作者

你好感謝您的協助
目前只有I1的值會一直加總上去
可是H1一直都沒有值

回復 c_c_lai
vic 發表於 2016-5-4 08:57

由圖示看出已經跑了 584 Ticks ，
這樣便能同步寫入每一 Tick 的數據資料了。
譬如：

Private Sub TextBox1_Change()
Dim rng As Range
Set rng = [A65535].End(xlUp).Offset(1)
rng.Resize(, 8) = [A1:H1].Value
End Sub

複製代碼

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

7^#

發表於 2016-5-5 03:54 | 只看該作者

回復 4# vic
考慮 Ticks 數據量大，可修改成：

Private Sub TextBox1_Change()
Dim Rng As Range
' [I1] = [I1] + 1
' Set Rng = [A65535].End(xlUp).Offset(1)
Set Rng = Range("A" & Rows.Count).End(xlUp).Offset(1) ' Rows.Count =1048576 : Long
Rng.Resize(, 8) = [A1:H1].Value
End Sub

複製代碼

vic

中學生 Rank: 2

帖子: 16
主題: 5
精華: 0
積分: 50
點名: 0
作業系統: win7 64
軟體版本: excel 2013
閱讀權限: 20
性別: 男
註冊時間: 2015-7-5
最後登錄: 2017-4-18

8^#

發表於 2016-5-5 11:07 | 只看該作者

非常感謝我再試著改成巨集的形式來執行試試~

回復 8# c_c_lai