請問該如何自動記錄加總 - Excel程式區

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

10^#

發表於 2012-2-10 10:57 | 只看該作者

回復 8# register313

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

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

9^#

發表於 2012-2-9 18:03 | 只看該作者

回復 8# register313

那這樣我懂了，謝謝

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

8^#

發表於 2012-2-9 18:02 | 只看該作者

回復 7# leefing

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

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

7^#

發表於 2012-2-9 17:56 | 只看該作者

回復 6# register313

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

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

6^#

發表於 2012-2-9 17:55 | 只看該作者

回復 5# leefing

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

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

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

5^#

發表於 2012-2-9 17:48 | 只看該作者

回復 4# register313

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

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-2-9 08:12 | 只看該作者

回復 3# leefing

工作表模組

Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
If TARGET.Address = "$J$2" And Cells(2, "J") >= 10 Then
X = Cells(2, "U")
Y = Cells(2, "T")
If Cells(2, "J") >= 10 Then
If (Cells(2, "F") = Cells(2, "D")) Then
Cells(2, "U") = Cells(2, "J") + X
End If
If (Cells(2, "F") = Cells(2, "E")) Then
Cells(2, "T") = Cells(2, "J") + Y
End If
If (Cells(2, "F") > Cells(2, "D")) And (Cells(2, "F") > Cells(2, "E")) Then
Cells(2, "T") = Cells(2, "J") + Y
End If
If (Cells(2, "F") < Cells(2, "D")) And (Cells(2, "F") < Cells(2, "E")) Then
Cells(2, "U") = Cells(2, "J") + X
End If
End If
End If
End Sub

複製代碼

帖子: 31
主題: 5
精華: 0
積分: 68
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 20
性別: 男
註冊時間: 2012-1-2
最後登錄: 2013-7-25

3^#

發表於 2012-2-9 01:30 | 只看該作者

本帖最後由 leefing 於 2012-2-9 01:37 編輯

回復 2# register313

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

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

　頭銜: 麻辣路人甲

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

2^#

發表於 2012-2-9 01:06 | 只看該作者

回復 1# leefing

Sub RR()
Range(Cells(2, "T"), Cells([A65536].End(xlUp).Row, "U")) = ""
For X = 2 To [A65536].End(xlUp).Row
If Cells(X, "J") >= 10 Then
If (Cells(X, "F") = Cells(X, "D")) Then
Cells(X, "U") = "空"
End If
If (Cells(X, "F") = Cells(X, "E")) Then
Cells(X, "T") = "多"
End If
If (Cells(X, "F") > Cells(X, "D")) And (Cells(X, "F") > Cells(X, "E")) Then
Cells(X, "T") = Cells(X, "T") & "多"
End If
If (Cells(X, "F") < Cells(X, "D")) And (Cells(X, "F") < Cells(X, "E")) Then
Cells(X, "U") = Cells(X, "U") & "空"
End If
End If
Next X

複製代碼

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