每隔10秒执行一次宏1的代码怎么写 ？ 有人会吗

heman000520

来个大佬 急急急！！

fhqgyn

用这个
t = Now + TimeValue("00:00:10") '时间间隔

fhqgyn

试一下
Private Sub OpenScreenUpdate()
   Application.ScreenUpdating = True
   Application.OnTime Now + TimeValue("00:00:10"), "OpenScreenUpdate"
   Application.ScreenUpdating = False
End Sub

heman000520

能写明白一点吗。 我直接能拿过来使用的

fhqgyn

你附件都没给我，我这个是定时刷新的

heman000520

fhqgyn 发表于 2018-11-10 17:20
试一下
Private Sub OpenScreenUpdate()
   Application.ScreenUpdating = True

不行  该宏在工作表 不可用

heman000520

fhqgyn 发表于 2018-11-10 17:23
你附件都没给我，我这个是定时刷新的

附件已经上传

fhqgyn

heman000520 发表于 2018-11-10 17:27
不行  该宏在工作表 不可用

可以使用
Private Sub test()
   Application.ScreenUpdating = True
   Application.OnTime Now + TimeValue("00:00:05"), "test1" '引号内改为你要定时运行的宏的名字。
   Application.ScreenUpdating = False
End Sub
公司电脑不能外网，手机拍给你

fhqgyn

fhqgyn 发表于 2018-11-10 17:40
可以使用
Private Sub test()
   Application.ScreenUpdating = True

第一行和最后一行代码可以不要，直接复制第二行到你得程序中，然后把引号内引用的程序名改为你要运行的名字。

heman000520

fhqgyn 发表于 2018-11-10 17:40
可以使用
Private Sub test()
   Application.ScreenUpdating = True

他只执行了1次  第2次就不执行了