帖子: 5
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-7-14
最後登錄: 2020-8-3

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-3-20 22:06 | 只看該作者

[發問] 請教當資料即時變動後，如何自動即時加總?

本帖最後由 pures 於 2013-3-20 22:08 編輯

請問當某一儲存格如DDE股票單量(A1)，當單量變動時，
才即時加總這單量儲存格，變成總量B1儲存格，
單量不斷改變，總量一直加總(B1=B1+A1)
請教EXCEL VBA要如何寫，謝謝指教^^。

程式新手，請多指教

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-3-21 15:07 | 只看該作者

回復 1# pures
工作表的儲存格有輸入時:工作表的預設觸動是件程式

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A1" Then '單量(A1)
Application.EnableEvents = False
Range("B1") = Range("B1") + Target '總量一直加總(B1=B1+A1)
Application.EnableEvents = True
End If
End Sub

複製代碼

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

TOP

pures

小學生 Rank: 1

帖子: 5
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-7-14
最後登錄: 2020-8-3

3^#

發表於 2013-3-21 19:39 | 只看該作者

本帖最後由 pures 於 2013-3-21 19:40 編輯

感恩GBKEE大大的回覆，
小弟照GBKEE大的程序做，A1儲存格有跳動，但B1的儲存格沒去加總，
圖示如下，不知哪裡有問題，煩請大大幫忙，謝謝您了^^。

程式新手，請多指教

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

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

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-3-21 21:01 | 只看該作者

回復 3# pures
儲存格的DDE 會引發工作表的重算,一樣是工作表的預設事件

Option Explicit
Private Sub Worksheet_Calculate()
Range("B1") = Range("B1") + [A1] '總量一直加總(B1=B1+A1)
End Sub

複製代碼

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

TOP

pures

小學生 Rank: 1

帖子: 5
主題: 2
精華: 0
積分: 13
點名: 0
作業系統: Win7
軟體版本: Office2003
閱讀權限: 10
性別: 男
註冊時間: 2012-7-14
最後登錄: 2020-8-3

5^#

發表於 2013-3-21 22:50 | 只看該作者

感恩GBKEE大大的回覆，
可以運作了，非常謝謝您^^。

程式新手，請多指教

TOP

twispin

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win8
軟體版本: 8.1
閱讀權限: 10
性別: 男
註冊時間: 2015-4-7
最後登錄: 2015-5-23

6^#

發表於 2015-4-13 17:28 | 只看該作者

本帖最後由 twispin 於 2015-4-13 17:29 編輯

我完全按照GBKEE大大的做可是沒辦法耶(我是用EXCEL2003)
開始執行以後，他不會等DDE儲存格有變動時才加總一次
而是每一秒加了幾百次一直加
我可以指定某一個DDE儲存格有變動時才加總嗎?該怎麼做?謝謝!!

Option Explicit
Private Sub Worksheet_Calculate()
Range("B1") = Range("B1") + [A1] '總量一直加總(B1=B1+A1)
End Sub

複製代碼

TOP

twispin

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win8
軟體版本: 8.1
閱讀權限: 10
性別: 男
註冊時間: 2015-4-7
最後登錄: 2015-5-23

7^#

發表於 2015-4-13 17:32 | 只看該作者

今天為了這個搞定這個檔案
一開始以為是EXCEL本身和win8的問題
到最後連win8都重灌了，結果還是一樣，只要開這個檔案就當機
後來把上面那段程式碼刪掉才搞定...

TOP

twispin

小學生 Rank: 1

帖子: 10
主題: 1
精華: 0
積分: 13
點名: 0
作業系統: win8
軟體版本: 8.1
閱讀權限: 10
性別: 男
註冊時間: 2015-4-7
最後登錄: 2015-5-23

8^#

發表於 2015-4-13 20:08 | 只看該作者

我自己發現問題點了...
假設DDE輸出的資料在sheets1的A1
那麼就只能在sheets1的頁面寫If Target.Address(0, 0) = "A1"
如果我在sheets2的A1寫入"=sheets1 !A1"，雖然資料還是會跳動
但是對sheets2來說他似乎不會觸動工作表重算
所以就算shets2有寫If Target.Address(0, 0) = "A1"也沒用

TOP

[發問] 請教當資料即時變動後，如何自動即時加總?

[發問] 請教當資料即時變動後，如何自動即時加總?

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]