『已解決』DDE&Calculate事件的應用

本帖最後由 ko310kmo 於 2011-10-7 17:59 編輯

一開始已有sheet1、8600、8700、8800、8900、9000等六個工作表
sheet1的　　B2到B3是一排工作表名稱（8600~9000），
C2到C6是它們分別是其所屬的DDE公式（我使用e-leader的DDE公式讓它們接收值）
每當C2~C6接到DDE傳來的值，就會把新的值copy貼到其所屬的工作表的D欄儲存格
(ex:C3儲存格從100變成200，那就把200貼到 8700工作表的D欄)

這是有辦法做的嗎?
用迴圈下去跑嗎?

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

ko310kmo

中學生 Rank: 2

帖子: 32
主題: 6
精華: 0
積分: 55
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-4-25
最後登錄: 2011-12-18

2^#

發表於 2011-4-28 23:35 | 顯示全部帖子

本帖最後由 ko310kmo 於 2011-5-1 11:30 編輯

回復 2# GBKEE

謝謝GBKEE大大，是可以成功的
但還有一個問題是
Sheets(e.Text).Range("D1") = e.Offset(, 1)

sheet1的c2到c6是持續不停變動的，所以公式中的D1要該成變數
否則會一直在D1蓋過寫入，無法往下紀錄

我本來想說用
Private Sub Worksheet_Calculate()
Dim E As Range
Dim P As Integer
      For Each E In Range("B2:B13)
         P = Sheets(E.Text).Range("D65536").End(xlUp).Row + 1
         Sheets(E.Text).Range("D" & P) = E.Offset(0, 1)
      Next
Set E = Nothing
End Sub

但這樣它的p值卻無法每個工作表分開計算，請問該怎麼辦?
謝謝大大的開示!!!

附上檔案，讓大大更了解我的想法，附上的檔案有再做少需的修改、欄位的變動

50 字節以內
不支持自定義 Discuz! 代碼

TOP

ko310kmo