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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2011-4-27 22:22 | 只看該作者

『已解決』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! 代碼

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^#

發表於 2011-4-28 17:08 | 只看該作者

本帖最後由 GBKEE 於 2011-4-28 17:09 編輯

回復 1# ko310kmo
8600、8700、8800、8900、9000等工作表是B2到B6
試試看

Private Sub Worksheet_Calculate()
Dim e As Range
For Each e In Range("B2:B6")
Sheets(e.Text).Range("D1") = e.Offset(, 1)
Next
Set e = Nothing
End Sub

複製代碼

TOP

ko310kmo

中學生 Rank: 2

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

3^#

發表於 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

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^#

發表於 2011-4-29 16:37 | 只看該作者

回復 3# ko310kmo
M = Worksheets("sheet1").Range("B65536").End(xlUp).Row
      For Each E In Range("B2:B" & M)
         P = Sheets(E.Text).Range("J65536").End(xlUp).Row + 1
         Sheets(E.Text).Range("J" & P) = E.Offset(0, 1)
      Next
如此是可以在Sheets(E.Text)的J欄中,往下記錄資料沒錯阿.
但這樣它的p值卻無法每個工作表分開計算不了解!!, 可再解釋嗎?

TOP

ko310kmo

中學生 Rank: 2

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

5^#

發表於 2011-4-29 23:47 | 只看該作者

回復 4# GBKEE

大大
昨天我本來以為沒辦法，但今日開盤測試後才發現是可以的，謝謝你！！！
十分感謝你，解決了我二個多禮拜的困擾！！！！

最後想請教Sheets(e.Text)，為什麼要加text？
有加跟沒加的差別在哪？
學校的參考書上沒寫，所以一直不知道這種用法，謝謝:)

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

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

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