如何获取DDE链接变更单元格地址以触发指定宏？

你提到的Workbook.SetLinkOnData和Worksheet_Calculate确实有局限性：前者只能关联DDE链接的名称（而非具体单元格），后者触发时无法直接定位到更新的单元格。不过我们可以通过记录DDE单元格的旧值，在计算事件中对比新旧值的方式，精准找到变化的单元格，再调用你的UpdateCell宏。

具体实现步骤 #

1. 在工作表模块中添加追踪逻辑

打开VBA编辑器（Alt+F11），找到目标工作表的模块（比如Sheet1），插入以下代码：

Private ddeCellOldValues As Object ' 存储DDE单元格的地址与对应旧值

Private Sub Worksheet_Activate()
    ' 初始化字典，用于记录DDE单元格的初始值
    Set ddeCellOldValues = CreateObject("Scripting.Dictionary")
    
    Dim ddeLink As Link
    Dim cell As Range
    
    ' 遍历工作表中所有DDE类型的链接
    For Each ddeLink In Me.Links
        If ddeLink.Type = xlDDELink Then
            ' 记录每个DDE链接对应的单元格及其初始值
            For Each cell In ddeLink.Range
                If Not ddeCellOldValues.Exists(cell.Address) Then
                    ddeCellOldValues.Add cell.Address, cell.Value
                End If
            Next cell
        End If
    Next ddeLink
End Sub

Private Sub Worksheet_Calculate()
    ' 如果字典未初始化，直接退出
    If ddeCellOldValues Is Nothing Then Exit Sub
    
    Dim ddeLink As Link
    Dim cell As Range
    Dim currentValue As Variant
    
    ' 再次遍历所有DDE单元格，对比新旧值
    For Each ddeLink In Me.Links
        If ddeLink.Type = xlDDELink Then
            For Each cell In ddeLink.Range
                currentValue = cell.Value
                
                ' 处理错误值的情况（比如DDE链接断开）
                If IsError(currentValue) Then
                    If Not IsError(ddeCellOldValues(cell.Address)) Then
                        UpdateCell cell.Address
                        ddeCellOldValues(cell.Address) = currentValue
                    End If
                Else
                    ' 对比新旧值，发现变化则调用宏
                    If ddeCellOldValues(cell.Address) <> currentValue Then
                        UpdateCell cell.Address
                        ddeCellOldValues(cell.Address) = currentValue
                    End If
                End If
            Next cell
        End If
    Next ddeLink
End Sub

2. 保留你的UpdateCell宏

在标准模块（比如Module1）中保留你原有的宏，可根据需求修改逻辑：

Public Sub UpdateCell(ByVal strTargetAddress As String)
    ' 这里写你的业务代码，示例：
    MsgBox "DDE单元格 " & strTargetAddress & " 已更新！"
    ' 比如：Range(strTargetAddress).Interior.Color = vbYellow
End Sub

关键说明 #

• 字典的作用：Scripting.Dictionary用来存储每个DDE单元格的地址和对应的值，方便后续对比。用CreateObject是后期绑定，不需要额外引用库；如果要提前绑定，可以在VBA编辑器的「工具」→「引用」中勾选「Microsoft Scripting Runtime」。
• 触发时机：Worksheet_Activate在工作表激活时初始化字典，记录所有DDE单元格的初始值；Worksheet_Calculate会在DDE链接更新（触发计算）时执行，对比新旧值找到变化的单元格。
• 错误处理：代码中加入了错误值的判断，避免DDE链接断开时出现报错。

为什么之前的方法不行？ #

• Workbook.SetLinkOnData：它绑定的是DDE链接的「名称」（比如应用程序/主题/项目），如果多个单元格使用同一个DDE链接，无法区分具体是哪个单元格更新了。
• Worksheet_Calculate：这个事件是全局触发的，默认没有内置参数返回更新的单元格，必须通过自定义追踪逻辑来定位。

内容的提问来源于stack exchange，提问作者Tornado168