我想自动对通过DDE更新数据的表进行排序。我正在使用与此类似的宏进行自动更新,但这不适用于通过DDE完成的数据更新。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlDescending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End Sub
您可以使用最简单的Worksheet_Calculate()事件,但不会提供有关何人或何地的任何信息。但是当您获取DDE数据时,它将被触发
但是,如果您需要更多内容,则可以使用事件SetLinkOnData
Sub Workbook_Open()
ActiveWorkbook.SetLinkOnData "ProgramName|DocumentName!cellField", "myMacroName"
End Sub
设置很麻烦,但是您可以在此处查看文档
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句