帖子: 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

超級版主 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兔年全勤獎章

27^#

發表於 2015-9-19 06:08 | 只看該作者

本帖最後由 GBKEE 於 2015-9-21 05:43 編輯

回復 26# laieven
你附檔00000002.xlsm 的程式碼

Option Explicit
Dim 總成交量 As Single
Private Sub Worksheet_Calculate()
Dim startTime, stopTime
Dim Rng As Range, 成交單 As Range
startTime = Range("A1") '開盤時間, 例如: "09:00:00 AM"
stopTime = Range("B1") '收盤時間, 例如: "01:30:00 PM"
If Time <= startTime Then
'清理昨日紀錄
Application.EnableEvents = False
Range(Range("A5:E5"), Range("A5:E5").End(xlDown)) = ""
Application.EnableEvents = True
Exit Sub '尚未開盤
End If
If Time > stopTime Then Exit Sub '已經收盤
If IsError([b2]) Then Exit Sub 'dee 軟體在開盤前重整時會傳回錯誤值
Set 成交單 = [G2]
Application.EnableEvents = False
With [A65536].End(xlUp)
If Format(.Cells, "HH:MM") <> Format(Time, "HH:MM") Then
'dde紀錄工作表上,要有一個DEE的時間公式,引發這 Calculate 重算事件
Set Rng = .Offset(1)
Else
Set Rng = .Cells
End If
End With
With Rng
.Cells = Format(Time, "HH:MM") '在A欄中記下每一分鐘 , 不管有無成交
If 總成交量 <> [H2].Value Then
If 成交單 >= 10 Then
.Range("B1") = .Range("B1") + 成交單
Else
.Range("D1") = .Range("D1") + 成交單
End If
總成交量 = [H2]
End If
'這分鐘 -上一分鐘
If .Cells.Row > 5 Then
.Range("C1") = .Range("B1") - .Range("B1").Offset(-1)
.Range("E1") = .Range("D1") - .Range("D1").Offset(-1)
Else
.Range("C1") = .Range("B1")
.Range("E1") = .Range("D1")
End If
End With
Application.EnableEvents = True
End Sub

複製代碼

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

TOP

laieven

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

26^#

發表於 2015-9-18 13:23 | 只看該作者

回復 25# GBKEE

檔案可運作~~非常感謝~~~但結果跟我要的方向似有不同
我希望能達到的目標是
希望能計算出每一分鐘
大單成交幾口
小單成交幾口
紀錄上必須按分鐘紀錄~我才能將之圖形化
所以我才計算每分鐘大單累計量以及小單累計量
並用每分鐘大單的累計量扣除上一分鐘大單的累計量~~來得到每分鐘大單成交口數為幾口

成功後我將應用到內外盤成交變動去計算
大單每分鐘買幾口買幾口賣幾口
小單每分鐘買幾口買幾口賣幾口
藉以區分出
小單(一般人)每一分鐘內盤成交幾口外盤成交幾口~大單(大咖)每一分鐘內盤成交幾口外盤成交幾口

若版主願意協助我修正我將萬分感謝
我個人也將繼續努力的修正我的錯誤和繼續努力!!!

TOP

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兔年全勤獎章

25^#

發表於 2015-9-16 15:49 | 只看該作者

本帖最後由 GBKEE 於 2015-9-16 17:01 編輯

回復 24# laieven

試試看

Ex.rar (16.88 KB)

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

TOP

laieven

中學生 Rank: 2

帖子: 81
主題: 31
精華: 0
積分: 117
點名: 0
作業系統: windows7
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: 台北
註冊時間: 2013-8-3
最後登錄: 2024-4-30

24^#

發表於 2015-9-16 13:37 | 只看該作者

回復 21# GBKEE

GBKEE版主我又來麻煩妳了
整體成是我已經改的差不多了!!
現在有一個比較弔詭的問題請教你
我把大單小丹分開來之後,每一分鐘紀錄一次累計成交量
然後每一分鐘去扣除上一分鐘的累計量得到每分鐘的成交單量
並每一分鐘紀錄一次

可是當我使用每分鐘扣除上一分鐘的設定時
程式卻當掉了

弔詭的是~~~~大單每分鐘扣除上一分鐘沒問題~~小單每分鐘扣除上一分鐘會當掉
更弔詭的是兩邊只有一邊可以順利扣除~~不能同時都做這樣的設定

能幫我看看到底哪裡出問題了嗎?
感謝你!!!