GBKEE

回復 20# laieven
我也沒有成交單  
[成交單]-你須自己修改為工作表上DEE成交單的位置

laieven

回復 18# GBKEE


    我找到原因並做出一點修正了!!!
還請板大協助指導我修正一下~~感謝!
00000002.rar (613.2 KB)

下載次數: 15

2015-9-16 10:04

laieven

回復 22# laieven


更正一下!!
截至目前為止
已找到解決之道~~萬分感謝版主的幫忙!!
接下來我先進行初步的修正
希望別再出現太大問題!!
先在這裡感謝相助的大大們
尤其是G版主!!!
感謝!!!

laieven

回復 21# GBKEE


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

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

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

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

下載 (358.64 KB)

2015-9-16 13:36

附件如下
00000002.rar (34.23 KB)

下載次數: 26

2015-9-16 13:37

GBKEE

回復 24# laieven

試試看


Ex.rar (16.88 KB)

下載次數: 30

2015-9-16 17:01

laieven

回復 25# GBKEE


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

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

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

GBKEE

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

1. Option Explicit
   
2. Dim 總成交量 As Single
   
3. Private Sub Worksheet_Calculate()
   
4.     Dim startTime, stopTime
   
5.     Dim Rng As Range, 成交單 As Range
   
6.     startTime = Range("A1") '開盤時間, 例如: "09:00:00 AM"
   
7.     stopTime = Range("B1")  '收盤時間, 例如: "01:30:00 PM"
   
8.     If Time <= startTime Then
   
9.         '清理昨日紀錄
   
10.         Application.EnableEvents = False
    
11.         Range(Range("A5:E5"), Range("A5:E5").End(xlDown)) = ""
    
12.         Application.EnableEvents = True
    
13.         Exit Sub '尚未開盤
    
14.     End If
    
15.     If Time > stopTime Then Exit Sub '已經收盤
    
16.     If IsError([b2]) Then Exit Sub      'dee 軟體在開盤前重整時會傳回錯誤值
    
17.     Set 成交單 = [G2]
    
18.     Application.EnableEvents = False
    
19.     With [A65536].End(xlUp)
    
20.         If Format(.Cells, "HH:MM") <> Format(Time, "HH:MM") Then
    
21.             'dde紀錄工作表上,要有一個DEE的時間公式,引發這 Calculate 重算事件
    
22.             Set Rng = .Offset(1)
    
23.         Else
    
24.             Set Rng = .Cells
    
25.         End If
    
26.     End With
    
27.     With Rng
    
28.         .Cells = Format(Time, "HH:MM")  '在A欄中記下每一分鐘 , 不管有無成交
    
29.         If 總成交量 <> [H2].Value Then
    
30.             If 成交單 >= 10 Then
    
31.                 .Range("B1") = .Range("B1") + 成交單
    
32.             Else
    
33.                 .Range("D1") = .Range("D1") + 成交單
    
34.             End If
    
35.             總成交量 = [H2]
    
36.         End If
    
37.         '這分鐘 -上一分鐘
    
38.         If .Cells.Row > 5 Then
    
39.             .Range("C1") = .Range("B1") - .Range("B1").Offset(-1)
    
40.             .Range("E1") = .Range("D1") - .Range("D1").Offset(-1)
    
41.         Else
    
42.             .Range("C1") = .Range("B1")
    
43.             .Range("E1") = .Range("D1")
    
44.         End If
    
45.     End With
    
46.     Application.EnableEvents = True
    
47. End Sub

複製代碼