你可以使用 VBA 中的 Timer 函数和 Application.OnTime 方法来实现每隔 3 分钟刷新调用函数。

首先,在 VBA 编辑器中打开你要运行的模块或工作表的代码窗口。

然后,在模块或工作表的代码窗口中添加一个 Sub 过程来调用你的函数。例如:

Sub RefreshFunction()
    ' 调用你的函数
    YourFunctionName
    
    ' 设置 3 分钟后再次调用 RefreshFunction
    Application.OnTime Now + TimeValue('00:03:00'), "RefreshFunction"
End Sub

接下来,在你的 VBA 代码中的其他地方,调用 RefreshFunction 来启动刷新过程。例如,在 Workbook_Open 事件中调用 RefreshFunction:

Private Sub Workbook_Open()
    ' 启动刷新过程
    RefreshFunction
End Sub

这样,当你打开工作簿时,RefreshFunction 将被调用,然后每隔 3 分钟就会自动刷新调用你的函数。

请注意,如果你想要停止刷新过程,可以在 VBA 编辑器中使用 '停止' 按钮停止代码的执行。

VBA 自动刷新:每隔 3 分钟调用函数

原文地址: https://www.cveoy.top/t/topic/bGUT 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录