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

leefing

如題

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

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

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

下載次數: 19

2012-2-9 00:11

register313

回復 1# leefing

1. Sub RR()
   
2. Range(Cells(2, "T"), Cells([A65536].End(xlUp).Row, "U")) = ""
   
3. For X = 2 To [A65536].End(xlUp).Row
   
4.   If Cells(X, "J") >= 10 Then
   
5.      If (Cells(X, "F") = Cells(X, "D")) Then
   
6.        Cells(X, "U") = "空"
   
7.      End If
   
8.      If (Cells(X, "F") = Cells(X, "E")) Then
   
9.        Cells(X, "T") = "多"
   
10.      End If
    
11.      If (Cells(X, "F") > Cells(X, "D")) And (Cells(X, "F") > Cells(X, "E")) Then
    
12.        Cells(X, "T") = Cells(X, "T") & "多"
    
13.      End If
    
14.      If (Cells(X, "F") < Cells(X, "D")) And (Cells(X, "F") < Cells(X, "E")) Then
    
15.        Cells(X, "U") = Cells(X, "U") & "空"
    
16.      End If
    
17.    End If
    
18. Next X

複製代碼

是這樣嗎?
不了解 每次出現  就累加上次，而不會取代掉?

leefing

回復 2# register313


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

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

register313

回復 3# leefing

工作表模組

1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
   
2. If TARGET.Address = "$J$2" And Cells(2, "J") >= 10 Then
   
3. X = Cells(2, "U")
   
4. Y = Cells(2, "T")
   
5.   If Cells(2, "J") >= 10 Then
   
6.      If (Cells(2, "F") = Cells(2, "D")) Then
   
7.        Cells(2, "U") = Cells(2, "J") + X
   
8.      End If
   
9.      If (Cells(2, "F") = Cells(2, "E")) Then
   
10.        Cells(2, "T") = Cells(2, "J") + Y
    
11.      End If
    
12.      If (Cells(2, "F") > Cells(2, "D")) And (Cells(2, "F") > Cells(2, "E")) Then
    
13.        Cells(2, "T") = Cells(2, "J") + Y
    
14.      End If
    
15.      If (Cells(2, "F") < Cells(2, "D")) And (Cells(2, "F") < Cells(2, "E")) Then
    
16.        Cells(2, "U") = Cells(2, "J") + X
    
17.      End If
    
18.    End If
    
19. End If
    
20. End Sub

複製代碼

leefing

回復 4# register313

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

register313

回復 5# leefing

工作表模組
程式只會作用在該工作表
若另一工作表也須相同之功能,則該工作表模組也要有相同之程式

例
sheet1工作表模組放上述之程式
sheet2工作表模組放上述之程式

leefing

回復 6# register313

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

register313

回復 7# leefing

各工作表模組之程式是互不相干的(獨立的)
要用相同的變數名稱也沒關係

leefing

回復 8# register313


    那這樣我懂了，謝謝

leefing

回復 8# register313


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