12
返回列表 上一主題 發帖

[發問] 請問該如何自動記錄加總

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-2-9 00:11 | 顯示全部帖子

[發問] 請問該如何自動記錄加總

本帖最後由 leefing 於 2012-2-9 00:32 編輯

如題

當單量>=10時，判斷     成交=買進       記在  空   那一欄
                                , 判斷      成交=賣出      記在  多   那一欄
                                ,判斷     成交同時>買進and賣出  記在     多    那一欄
                              ,判斷       成交同時<買進and賣出   記在    空    那一欄

每次出現  就累加上次，而不會取代掉

那該如何解決呢？
看盤1.rar (12.36 KB)
收藏 分享

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
2#
發表於 2012-2-9 01:30 | 顯示全部帖子
本帖最後由 leefing 於 2012-2-9 01:37 編輯

回復 2# register313


    "不了解 每次出現  就累加上次，而不會取代掉?"
因為我是接DDE，所以價格一定會一直變動。所以是一出現單量>=10就開始做那些動作了
一直加上去
舉例來說：第一次跳動  單量10，然後成交=買進，所以"空"下面那一格出現10
                     第二次跳動   單量20 ，然後成交=買進，所以"空"下面那一格出現30

這個動作只需要做 台指近月 那一列就可以了
要等明天開盤才能測式了。謝謝R大回覆

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
3#
發表於 2012-2-9 17:48 | 顯示全部帖子
回復 4# register313

謝謝R大的回覆，那如果另一張表也用這樣的做法，是不是修改TARGET這個地方
就可以一樣畫葫蘆了？

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
4#
發表於 2012-2-9 17:56 | 顯示全部帖子
回復 6# register313

那麼TERGET這邊需要改嗎？  還是可以共存的？

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
5#
發表於 2012-2-9 18:03 | 顯示全部帖子
回復 8# register313


    那這樣我懂了，謝謝

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
6#
發表於 2012-2-10 10:57 | 顯示全部帖子
回復 8# register313


    R大，今天測試自動記錄加總
結果儲存格都沒反應，是電腦不夠快？ 還是什麼問題呢？

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
7#
發表於 2012-2-10 13:44 | 顯示全部帖子
回復 11# Hsieh


    所以只要把change改成Calculate,   這樣就可以了嗎？

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
8#
發表於 2012-2-10 18:08 | 顯示全部帖子
回復 12# kobo

K大，SetLinkOnData這個方法，在EXCEL說明 並不太清楚(小弟不太懂上面的意思)，是不是要做大改造了？？

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
9#
發表於 2012-2-11 00:01 | 顯示全部帖子
本帖最後由 leefing 於 2012-2-11 00:15 編輯

回復 11# Hsieh

H大，我大概寫好了，有接一下DDE  會跳動，可以幫我看看怎樣才會完美或者 最佳
  1. Private Sub Worksheet_Calculate()
  2. Dim buy As Integer
  3. Dim short As Integer

  5. If Range("J2") >= 10 Then
  6. short = Range("Y2") '空
  7. buy = Range("X2") '多
  8.     If (Range("F2") = Range("D2")) Then     '成交=買進  記在空
  9.         Range("Y2") = Range("J2") + short
  10.     End If
  11.     If (Range("F2") = Range("E2")) Then     '成交=賣出 記在多
  12.         Range("X2") = Range("J2") + buy
  13.     End If
  14.     If (Range("F2") > Range("D2")) And (Range("F2") > Range("E2")) Then
  15.         Range("X2") = Range("J2") + buy '成交大於買進和賣出   記在多
  16.     End If
  17.     If (Range("F2") < Range("D2")) And (Range("F2") < Range("E2")) Then
  18.         Range("Y2") = Range("J2") + short '成交小於買進和賣出  記在空
  19.     End If
  20. End If
  21. End Sub
複製代碼
那我隔天要重新計算，那要怎麼釋放？ 寫一個按鈕 點歸零嗎？

TOP

leefing

帖子
31 
主題
5 
精華
0 
積分
68 
點名
0  
作業系統
windows 
軟體版本
7 
閱讀權限
20 
性別
男 
註冊時間
2012-1-2 
最後登錄
2013-7-25 
10#
發表於 2012-2-13 12:57 | 顯示全部帖子
回復 17# Hsieh


    H大，開啟EXCEL的時候，
If .[J12].Value >= 10 Then
這一行，出現資料型態不符，是因為沒有定義嗎？
我把它按偵測，然後關閉，再按開始巨集，就可以開始運作了。

TOP

        靜思自在 : 能付出愛心就是福，能消除煩惱就是慧。
12
返回列表 上一主題