作者:乔山办公网日期:
返回目录:excel表格制作
1、插入模块输入以zhidao下代码
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 定时刷新
你好,
实现这个功能比较占用系统知资源哦,请谨道慎使用。
Sub Run_it()
Application.OnTime TimeValue("00:00:01"), "shownowtime" '一旦开始运行后每隔一秒运行一次shownowtime这个宏
End Sub
sub shownowtime()
[a1] = now()‘每隔一秒a1单元格里的回时间就更新一次,答即可实现秒的实时动态更新
en sub