laieven

回復 9# GBKEE


   原理我大致上了解了!!
按版大的規畫我先試運行一下!
但串接DDE之後
把A2儲存格指定為串接進來的DDE
似乎無法觸發~~手動輸入才可觸發
還請板大協助看一下有何異樣之處!!感謝!!!
00000001.rar (15.57 KB)

下載次數: 3

2015-9-15 09:06

GBKEE

回復 11# laieven


   

下載 (114.91 KB)

2015-9-15 09:51

laieven

回復 12# GBKEE


    原來我搞錯!!!修正一下!!
但~~好像有點問題!!!還請看一下!

下載 (144.35 KB)

2015-9-15 11:03

00000001.rar (15.57 KB)

下載次數: 6

2015-9-15 11:03

GBKEE

回復 13# laieven

1. Integer 資料型態Integer 變數係以範圍為 -32,768 到 32,767 之 16 位元 (2 個位元組) 數字的形式儲存。Integer 的型態宣告字元是百分比符號(%)。

複製代碼

1. Single 資料型態Single (單精度浮點數) 變數係以 IEEE 32 位元 (4 個位元組) 浮點數字的形式儲存，它的範圍在負數的時候是從 -3.402823E38 到 -1.401298E-45，而在正數的時候是從 1.401298E-45 到 3.402823E38。Single 的型態宣告字元為 !。

複製代碼

Integer 不夠用 修改一下

1. Dim總成交量 As Single

複製代碼

laieven

回復 14# GBKEE


    原來如此~~難怪會出現"溢出"的訊息

那請問~~
1.為何DDE記錄這邊為何好像沒有 觸發紀錄呢?
2.DDE紀錄的RC儲存格是TIME沒錯吧!!為何他一直顯示是2點多?而不是現在的系統時間呢?
3.Application.EnableEvents======>我查了一下說明---事件都已經啟用指定的物件!!能不能解釋一下

GBKEE

那請問~~
1.為何DDE記錄這邊為何好像沒有 觸 ...
laieven 發表於 2015/9/15 11:33

你看看有沒有在執行 Worksheet_Calculate

1. Option Explicit
   
2. Dim 總成交量 As Single
   
3. Private Sub Worksheet_Calculate()
   
4.     If IsError([b2]) Then Exit Sub      'dee 軟體在開盤前重整時會傳回錯誤值
   
5.     If Time <= #8:45:00 AM# Then Exit Sub  '開盤前不理會
   
6.     If 總成交量 <> [E2].Value Then
   
7.         Application.EnableEvents = False
   
8.         Stop  '程式暫停在這裡 按F8逐步執行程式碼.
   
9.         'Stop 給你觀察 DDE記錄有觸發紀錄,程式正常後,刪掉它
   
10.         With [C65536].End(xlUp).Offset(1)
    
11.             .Cells(1, 1) = Time
    
12.             .Cells(1, 2) = [D2]
    
13.             .Cells(1, 3) = [E2]
    
14.         End With
    
15.         總成交量 = [E2]
    
16.         Application.EnableEvents = True
    
17.     End If
    
18. End Sub

複製代碼

laieven

回復 16# GBKEE


運作正常~~~~~@_@
我該給你幾個讚呢?感謝
另外我該怎麼將10口以上以及10口以下的成交單分開
並每1分鐘加總一次呢?

GBKEE

回復 17# laieven
'?? 10口以上的位置  自己設
'?? 10口以下的位置  自己設

1. If 總成交量 <> [E2].Value Then
   
2.         Application.EnableEvents = False
   
3.         If 成交單 >= 10 Then
   
4.             With [??].End(xlUp).Offset(1) '?? 10口以上的位置
   
5.                 .Cells(1, 1) = Time
   
6.                 .Cells(1, 2) = [成交單]
   
7.             End With
   
8.         Else
   
9.             With [??].End(xlUp).Offset(1) '?? 10口以下的位置
   
10.                 .Cells(1, 1) = Time
    
11.                 .Cells(1, 2) = [成交單]
    
12.             End With
    
13.         End If
    
14.         總成交量 = [E2]
    
15.         Application.EnableEvents = True
    
16.     End If

複製代碼

laieven

回復 18# GBKEE


了解了!!
感謝版主幫忙!
收下研究明天開盤來測試一下!
感謝!

laieven

回復 9# GBKEE


    請問是否要定義一下"成交單"因為出現!!

下載 (181.31 KB)

2015-9-16 09:19

我把大單位置擺在i~~~小單位置擺在j
是不是把成交單定義成
i2和j2呢?