麻辣家族討論版版 » Excel程式區 » Worksheet_Calculate(有辦法知道是誰變動嗎?)

返回列表下一主題上一主題發帖

[發問] Worksheet_Calculate(有辦法知道是誰變動嗎?)

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-7-20 13:26 | 只看該作者

[發問] Worksheet_Calculate(有辦法知道是誰變動嗎?)

本帖最後由 PKKO 於 2015-7-20 13:34 編輯

目前小弟的問題是在於
想用Worksheet_Calculate來跑dde,但變動的時候是否有辦法偵測出是誰變動?
例如Worksheet_SelectionChange(ByVal Target As Range),就可以知道target是誰
如此一來就可以加快運作速度,針對變動者來跑程式就好,不需要重新跑回圈

在網路上有看到SetLinkOnData 方法,還不曉得使用方式
有人知道嗎?

樓主熱帖

收藏

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2015-7-20 20:48 | 只看該作者

回復 1# PKKO

'已經找到下方語法,但是LinkChange裡面要如何知道是哪個dde變更呢?

Sub TEST()
Links = ActiveWorkbook.LinkSources(xlOLELinks)
If Not IsEmpty(Links) Then
For I = 1 To UBound(Links)
ActiveWorkbook.SetLinkOnData Links(I), "LinkChange"
Next I
Else
MsgBox "This workbook does not contain any links " & _
"to other workbooks"
End If
End Sub
Sub LinkChange()
MsgBox "linked"
End Sub

複製代碼

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

帖子: 549
主題: 152
精華: 0
積分: 691
點名: 0
作業系統: WIN7
軟體版本: OFFICE 2010
閱讀權限: 50
性別: 男
註冊時間: 2013-8-10
最後登錄: 2022-9-7

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2015-7-20 21:00 | 只看該作者

回復 2# PKKO

感覺SetLinkOnData 與Worksheet_Calculate 毫無差別阿,都是針對更新的時候會觸動程式,可是都不知道Target是誰變動

各位大大,有人知道嗎?

PKKO

靜思自在 : 時時好心就是時時好日。

返回列表下一主題上一主題