在Excel中，实现秒的实时动态更新，求VBA代码

我测试了下发现是鼠标放上去悬停才能触copy发刷新数据的动作。。。百

sheet1里写：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

宏2

End Sub

模块1里写：

Sub 宏2()

'

' 宏2 宏

ActiveWorkbook.RefreshAll

If Sheet1.[G1] <> "停止刷新" Then Application.OnTime (Now + TimeSerial(0, 0, 2)), "宏2"

End Sub

亲测OK。

TimeSerial(0, 0, 2) 里面的2就是每2秒刷新一次，可以改成你度想要的数值。

这个是我录制宏，再稍微修改下，几分钟完成的。

你好，百
实现这个功能比较占用系统度资源哦，请谨慎使用。问
Sub Run_it()
Application.OnTime TimeValue("00:00:01"), "shownowtime" '一旦开始运行后每隔一秒运行一次shownowtime这个宏
End Sub

sub shownowtime()
[a1] = now()‘每答隔一秒a1单元格里的时间就回更新一次，即可实现秒的实时动答态更新
en sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 1 Then
If Target.Value = "陕西" Then
Cells(Target.Row, Target.Column + 3) = "西安"
End If
End If
End Sub

1、插入模块zd输入以下代码
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
Sub 定时刷专新MSGBox3()
ActiveWorkbook.RefreshAll
Call 定时刷新
End Sub
Sub 定时刷新()
Application.OnTime Now + TimeValue("00:01:15"), "定时刷新MSGBox3" '75秒刷新一次
End Sub
2、工作薄打开属事件 call 定时刷新