123
返回列表 上一主題 發帖

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

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
18# 跳轉到 »
發表於 2015-9-15 13:49 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

laieven

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


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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
16#
發表於 2015-9-15 11:49 | 只看該作者
那請問~~
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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

laieven

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

回復 14# GBKEE


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

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

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
14#
發表於 2015-9-15 11:14 | 只看該作者
回復 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
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

laieven

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


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


00000001.rar (15.57 KB)

TOP

GBKEE

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

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


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

TOP

laieven

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


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

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

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

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
123
返回列表 上一主題