返回列表 上一主題 發帖

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

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 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
　暱稱: PKKO

高中生Rank: 3Rank: 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變更呢?
  1. Sub TEST()
  2. Links = ActiveWorkbook.LinkSources(xlOLELinks)
  3. If Not IsEmpty(Links) Then
  4.     For I = 1 To UBound(Links)
  5.         ActiveWorkbook.SetLinkOnData Links(I), "LinkChange"
  6.     Next I
  7. Else
  8.   MsgBox "This workbook does not contain any links " & _
  9.              "to other workbooks"
  10. End If
  11. End Sub

  13. Sub LinkChange()
  14.   MsgBox "linked"
  15. End Sub
複製代碼
PKKO

TOP

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 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

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題