excel - dde 链接单元格更改时的时间戳

Question

我在第 11 列中有数据( dde ​​链接)。我希望在第 12 列中的第 11 列中的数据发生变化时有一个时间戳。这是我尝试过但没有按预期工作的一些代码？

在表 1 中......:

Private Sub Workbook_Open(ByVal Target As Range)
Sheet1.ValDDE = Target.Column = 10
End Sub

在模块 1 ........中:

Public ValDDE
Private Sub Worksheet_Calculate(ByVal Target As Range)
If VarType(ValDDE) = VarType(Target.Column = 10) Then
If ValDDE <> Cells(Target.Column, 12).Value = Now Then _
  MsgBox "New value : " & Target.Column = 11 _
  Else Exit Sub
Else: MsgBox "New value : " & Target.Column = 11
End If
ValDDE = Target.Column = 11
End Sub
Sub ddetrackchange()

End Sub

Answer 1

我建议您删除“计算”方法，因为它是减慢魂器的那些讨厌的性能之一。

请使用 worksheet changed event 尝试以下操作.您不需要使用 for loop 检查范围内的每个单元格。如果你只检测到一个细胞。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim myRng As Range
    Set myRng = Range("D2") 'change according to yours
    If Target.Application.DDEAppReturnCode = True 'this check the dde link updates specifically
      If Target.Address = myRng.Address Then        
         'change time in some other cell
         Range("E2").value = now()
      else
      'do something else
      End If
    else
    'do something else
    End If
End Sub

MSDN library reference