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

kobo

小學生 Rank: 1

帖子: 37
主題: 0
精華: 0
積分: 41
點名: 0
作業系統: windows xp
軟體版本: 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-5-7
最後登錄: 2018-2-10

12^#

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

除了使用 Worksheet_Calculate事件
還有一個 SetLinkOnData 方法

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

13^#

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

回復 11# Hsieh

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

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

14^#

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

回復 12# kobo

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

15^#

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

回復 12# kobo

EXCEL中是利用Worksheet_Calculate事件
透過SetLinkOnData 方法來驅動所要執行的程序
所以還是透過Calculate來捕捉DDE的改變

學海無涯_不恥下問

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

16^#

發表於 2012-2-11 00:01 | 只看該作者

本帖最後由 leefing 於 2012-2-11 00:15 編輯

回復 11# Hsieh

H大，我大概寫好了，有接一下DDE 會跳動，可以幫我看看怎樣才會完美或者最佳

Private Sub Worksheet_Calculate()
Dim buy As Integer
Dim short As Integer
If Range("J2") >= 10 Then
short = Range("Y2") '空
buy = Range("X2") '多
If (Range("F2") = Range("D2")) Then '成交=買進記在空
Range("Y2") = Range("J2") + short
End If
If (Range("F2") = Range("E2")) Then '成交=賣出記在多
Range("X2") = Range("J2") + buy
End If
If (Range("F2") > Range("D2")) And (Range("F2") > Range("E2")) Then
Range("X2") = Range("J2") + buy '成交大於買進和賣出記在多
End If
If (Range("F2") < Range("D2")) And (Range("F2") < Range("E2")) Then
Range("Y2") = Range("J2") + short '成交小於買進和賣出記在空
End If
End If
End Sub

複製代碼

那我隔天要重新計算，那要怎麼釋放？寫一個按鈕點歸零嗎？

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

17^#

發表於 2012-2-11 22:42 | 只看該作者

本帖最後由 Hsieh 於 2012-2-11 23:55 編輯

回復 16# leefing
我只有yeswin試用版
假設[J12]的DDE連結公式=YES|DQ!EXFB2.Volume
提供你測試看看
在Sheet1模組增加Worksheet_Calculate程序

Private Sub Worksheet_Calculate()
ThisWorkbook.SetLinkOnData "YES|DQ!EXFB2.Volume", "Catch_DDE"
End Sub

複製代碼

在一般模組

Sub Catch_DDE()
MsgBox "J1數值變動" '此行測試是否J12的DDE更新，可取消
With Sheet1
If .[J12].Value >= 10 Then
If .[D12] = .[F12] Then .[U12] = .[U12] + .[J12]
If .[E12] = .[F12] Then .[T12] = .[T12] + .[J12]
End If
End With
End Sub
Sub Auto_Open() '開檔時自動執行
With Sheet1
.[U12:T12] .ClearContents
End With
End Sub

複製代碼

學海無涯_不恥下問

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

18^#

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

回復 17# Hsieh

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

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 142
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2026-7-16

2025年全勤獎章 2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

19^#

發表於 2012-2-13 14:07 | 只看該作者

回復 18# leefing
這可能是開啟檔案時，DDE還沒連上時，[J12]出現#N/A的錯誤所致
Sub Catch_DDE()
MsgBox "J1數值變動" '此行測試是否J12的DDE更新，可取消
With Sheet1
If IsError(.[J12]) Then Exit Sub
If .[J12].Value >= 10 Then
If .[D12] = .[F12] Then .[U12] = .[U12] + .[J12]
If .[E12] = .[F12] Then .[T12] = .[T12] + .[J12]
End If
End With
End Sub

學海無涯_不恥下問

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

20^#

發表於 2012-2-13 14:34 | 只看該作者

回復 19# Hsieh

H大，
If IsError(.[J12]) Then Exit Sub
這一行怎麼加不上去，出現編譯錯誤: 必須是:陳述式結尾。
then出現黃底

先開軟體再開EXCEL 也會出現型態的問題，是因為DDE連的沒有EXCEL快嗎？(一開始的時候)