在Excel工作表中,以下代码每1分钟自动刷新一次工作表。
我正在寻找的是如何在给定的时间内自动刷新工作表?
例如:我希望工作表仅在上午9:20至9:25之间每1分钟自动刷新一次。工作表不得在其他时间刷新,即上午9:20之前和9:25之后。
Sub UpdateCell()
ActiveWorkbook.RefreshAll
Application.OnTime Now + TimeValue("00:01:0"), "UpdateCell"
End Sub
Private Sub Workbook_Open()
Call TimeInterval
End Sub
Sub TimeInterval()
Appication.OnTime TimeValue("9:20:00"), "UpdateCell"
Appication.OnTime TimeValue("9:21:00"), "UpdateCell"
Appication.OnTime TimeValue("9:22:00"), "UpdateCell"
Appication.OnTime TimeValue("9:23:00"), "UpdateCell"
Appication.OnTime TimeValue("9:24:00"), "UpdateCell"
Appication.OnTime TimeValue("9:25:00"), "UpdateCell"
End Sub
Sub UpdateCell()
ActiveWorkbook.RefreshAll
End Sub
您需要允许对VB项目进行编程访问
导航到信任中心>"宏设置",然后选择"信任对VBA工程对象模块的访问"。