定时运行宏1的VBA代码

吴用 · 发表于 2020-3-1 13:25

本帖最后由吴用于 2020-3-1 13:26 编辑

高手们，我想达到一个效果，13点运行宏1，代码怎么写呢？
Private Sub Workbook_Open()
Application.OnTime TimeValue("13:00:00"), "宏1"
End Sub
Sub 宏1()
ActiveWorkbook.RefreshAll
End Sub

我是这样写的，但不对，到时间不运行。以上代码是放在ThisWorkbook下面的。
我的工作薄是一直打开状态的。

sj15627581616 · 发表于 2020-3-1 13:32

你这是打开事件，只有在打开时代码才会运行

sj15627581616 · 发表于 2020-3-1 13:34

只有在打开工作簿时时间大于13点才会运行

吴用 · 发表于 2020-3-1 13:36

我也觉得此处用打开事件有点不妥，正确的做法是什么，代码是什么呢？

sj15627581616 · 发表于 2020-3-1 14:06

EXCEL VBA经典代码这本书里面有相关的代码我记得，大概用了三组代码

sj15627581616 · 发表于 2020-3-1 15:05

Sub aq()
mdtaTime = Now() + TimeValue("00:00:01")
Application.OnTime mdtaTime, "bq"
End Sub
Sub bq()
If Range("a1") = TimeValue("13:00:00") Then
Call ks
End If
Range("a1") = Format(Time(), "h:mm:ss")
Call aq
End Sub
Sub cq()
Application.OnTime mdtaTime, "bq", , False
End Sub
Sub dq()
[a10] = 122
End Sub

sj15627581616 · 发表于 2020-3-1 15:07

你要的运行的代码dq自己替换进去，至于时间，找个看不到用不着的单元格存放着就行了

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

[求助] 定时运行宏1的VBA代码

最新热点 /1