返回列表 上一主題 發帖

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

twispin

帖子
10 
主題
1 
精華
0 
積分
13 
點名
0  
作業系統
win8 
軟體版本
8.1 
閱讀權限
10 
性別
男 
註冊時間
2015-4-7 
最後登錄
2015-5-23 
1# 跳轉到 »
發表於 2015-4-13 17:28 | 顯示全部帖子
本帖最後由 twispin 於 2015-4-13 17:29 編輯

我完全按照GBKEE大大的做可是沒辦法耶(我是用EXCEL2003)
開始執行以後，他不會等DDE儲存格有變動時才加總一次
而是每一秒加了幾百次一直加
我可以指定某一個DDE儲存格有變動時才加總嗎?該怎麼做?謝謝!!
  1. Option Explicit
  2. Private Sub Worksheet_Calculate()
  3.     Range("B1") = Range("B1") + [A1]      '總量一直加總(B1=B1+A1)
  4. End Sub
複製代碼

TOP

twispin

帖子
10 
主題
1 
精華
0 
積分
13 
點名
0  
作業系統
win8 
軟體版本
8.1 
閱讀權限
10 
性別
男 
註冊時間
2015-4-7 
最後登錄
2015-5-23 
2#
發表於 2015-4-13 17:32 | 顯示全部帖子
今天為了這個搞定這個檔案
一開始以為是EXCEL本身和win8的問題
到最後連win8都重灌了，結果還是一樣，只要開這個檔案就當機
後來把上面那段程式碼刪掉才搞定...

TOP

twispin

帖子
10 
主題
1 
精華
0 
積分
13 
點名
0  
作業系統
win8 
軟體版本
8.1 
閱讀權限
10 
性別
男 
註冊時間
2015-4-7 
最後登錄
2015-5-23 
3#
發表於 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

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題