vba做的排序能否实时更新

759857387 · 发表于 2011-4-19 21:03

我有一个排序，代码如下：
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 · 发表于 2011-4-20 19:59

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

86814429 · 发表于 2013-1-25 08:51

{:soso_e120:}

		自动登录	找回密码
密码			免费注册

[求助] vba做的排序能否实时更新