请问大神,表格的宏功能中如何设置timer,定期运行一些脚本?VBA和JS都可以

背景:想在WPS表格中写一段宏,每隔1分钟,刷新一下表格中的数据,符合条件就弹窗提示,可是VBA和JS模式下都不太会设置timer 请问大神,表格的宏功能中如何设置timer,定期运行一些脚本?VBA和JS都可以,谢谢!
北京
浏览 540
收藏
点赞
分享
+1
2
+1
全部评论 2
 
zzn
Dim RunTime As Date Dim Counter As Integer Sub ScheduleTask() RunTime = Now + TimeValue("00:00:05") ' 5秒后执行 ' 设置执行次数 Counter = 5 ' 调用指定的过程 Application.OnTime RunTime, "MyTask" End Sub Sub MyTask() ' 在此处编写定时任务的代码 MsgBox "定时任务执行了!剩余执行次数:" & Counter ' 减少剩余执行次数 Counter = Counter - 1 If Counter > 0 Then ' 设置下一次执行的时间 RunTime = Now + TimeValue("00:00:05") ' 5秒后执行 Application.OnTime RunTime, "MyTask" End If End Sub 不知道这个能不能实现你的需求
· 上海
回复
 
米斯特王
米斯特王

创作者俱乐部成员

请问你是wps本地表格还是智能表格,推荐用智能表格Airscript 可以做定时脚本
· 浙江省
回复