123
返回列表 上一主題 發帖

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

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-9-10 16:48 | 只看該作者

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

我想寫一個巨集
由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

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2015-9-11 08:44 | 只看該作者
回復 1# laieven


看盤軟體如有成交單總量資料,Calculate事件可參考它來記錄成交單量資料
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
3#
發表於 2015-9-11 11:43 | 只看該作者
回復 2# GBKEE

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

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

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
4#
發表於 2015-9-11 11:55 | 只看該作者
回復 3# laieven


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

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
5#
發表於 2015-9-11 12:45 | 只看該作者
回復 4# owen06


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

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

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
6#
發表於 2015-9-11 13:26 | 只看該作者
回復 5# laieven


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

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
7#
發表於 2015-9-11 13:37 | 只看該作者
回復 6# owen06


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

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
8#
發表於 2015-9-14 10:25 | 只看該作者
回復 2# GBKEE


   


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

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

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

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
9#
發表於 2015-9-14 11:15 | 只看該作者
回復 8# laieven



Ex.rar (7.83 KB)

請模擬在 模擬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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

laieven

帖子
81 
主題
31 
精華
0 
積分
117 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
20 
性別
男 
來自
台北 
註冊時間
2013-8-3 
最後登錄
2024-4-30 
10#
發表於 2015-9-14 11:55 | 只看該作者
回復 9# GBKEE


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

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
123
返回列表 上一主題