vba做的排序能否实时更新

759857387

我有一个排序，代码如下：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [A3:V65536]) Is Nothing Then    '指定区域
With Range("A2:V65536")
    .Sort Key1:=Range("V3"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlPinYin, DataOption1:=xlSortNormal
End With
End If
End Sub
我的问题：此代码是在指定区域，建表或修改或重心输入等动作触发一次排序。我的数据是实时更新的外部数据，不能触发排序。是否要加Application.OnTime Now + TimeSerial(0, 15, 0), "refresh"？ 怎么加？我只会照葫芦画瓢。

759857387

……………………………………

86814429

{:soso_e120:}