請教接收資料只要產生變動就記錄該怎麼寫

laieven

我想寫一個巨集
由a1儲存格接收從看盤軟體傳送進來的成交單量資料
小於10口的成交單量紀錄到d欄大於10口的成交單量紀錄到e欄
每隔1分鐘把小於10口的單量加總並記錄到b欄把大於10口的單量加總並記錄到c欄

我有試過用Calculate事件去做,但不大成功,爬了文,有人說必須用change事件去做

請問
1.我該用哪個事件程序去做呢?
原理是a1儲存格有變動就記錄
2.倘若連續幾筆單都是1口成交量而已,程式能判別?總不能連續10個成交紀錄都是1但我卻只記錄1口而已
3.連續推疊的d欄和e欄每隔1分鐘是否要清空紀錄,好讓下1分鐘的單量重新累計

煩請各位高手幫忙!!感謝!!

GBKEE

回復 1# laieven


看盤軟體如有成交單總量資料,Calculate事件可參考它來記錄成交單量資料

laieven

回復 2# GBKEE

1.能請教比較具體的簡單寫法,感謝!!!

2.個人持續研究中,我還是用CHANGE事件
把看盤軟體資料拉進EXCEL~~~我先定義Target為L2儲存格,只要L2儲存格有變動,我就CALL紀錄這個巨集~~~而"這個巨集紀錄",主要是記錄K2儲存格, 若K2儲存格數字為1-10~~我就排序記錄在E欄
若K2儲存格的數字大於10我就記錄在F欄,藉以把成交口數區分開來
但@@@@@不會動!!
附上截圖及檔案請高手幫忙!!感謝!
   

下載 (249.65 KB)

2015-9-11 11:42

00000000.rar (24.48 KB)

下載次數: 8

2015-9-11 11:43

owen06

回復 3# laieven


    看盤軟體的資料是直接傳送進來，而不是你手動輸入資料，所以使用change會無效，
    用版主所說的Calculate去寫程式吧

laieven

回復 4# owen06


    原來如此~~~學藝不精!!!見笑了!!

能否指導一下"Calculate"的撰寫邏輯!!!
萬分感謝!!

owen06

回復 5# laieven


    去看看准提部林大大的文章吧，可能最近同樣性質的問題太多了，他跳出來拯救為此苦腦不已的同胞們了。
    http://forum.twbts.com/thread-15062-1-1.html

laieven

回復 6# owen06


    感謝提醒~~我再去觀摩一下!!

laieven

回復 2# GBKEE


   


請問能否告知大概的撰寫邏輯
我想了一天~~還是不能理解

用dde串聯到excel~~使用calculate如何偵測"成交單總量的變動"
假設目前
單筆成交量為1口~~成交總量為100口
又一筆成交單為1口~~成交總量為101口

成交量沒變~~但成交總量改變!!!
我該如何撰寫去監看這樣的狀況並將之設定為我想要移動的狀態
懇請協助!!!感謝!!!

GBKEE

回復 8# laieven

下載 (78.03 KB)

2015-9-14 11:15

Ex.rar (7.83 KB)

下載次數: 14

2015-9-14 11:04

請模擬在 模擬DEE![A2]  輸入成交量
模擬DEE [工作表模組]  的程式碼

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     With Target.Cells(1)
   
4.         If .Address(0, 0) = "A2" Then [b2] = [b2] + .Cells
   
5.     End With
   
6. End Sub

複製代碼

DEE紀錄 [工作表模組]  的程式碼

1. Option Explicit
   
2. Dim 總成交量 As Integer
   
3. Private Sub Worksheet_Calculate()
   
4.     If IsError([b2]) Then Exit Sub      'dee 軟體在開盤前重整時會傳回錯誤值
   
5.     If Time <= #9:00:00 AM# Then Exit Sub '開盤前不理會
   
6.     If 總成交量 <> [E2].Value Then
   
7.         Application.EnableEvents = False
   
8.         With [C65536].End(xlUp).Offset(1)
   
9.             .Cells(1, 1) = Time
   
10.             .Cells(1, 2) = [D2]
    
11.             .Cells(1, 3) = [E2]
    
12.         End With
    
13.         總成交量 = [E2]
    
14.         Application.EnableEvents = True
    
15.     End If
    
16. End Sub

複製代碼

laieven

回復 9# GBKEE


感謝GBKEE兄無私的協助
我又爬文了一早上
下午就來研究你的幫忙
先感謝了!!!!