每10秒在Google电子表格中旋转表格

Question

我的Google电子表格文档中有5张，我试图看看是否有可能每10秒轮换一张插件或功能？

请告诉我。 感谢

Answer 1

找到关于如何设置电子表格每隔N秒在不同工作表之间切换的thread。

示例：

Option Explicit

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Public Sub Switch()

  Dim ws As Worksheet

  Do
    For Each ws In ThisWorkbook.Worksheets
      ws.Activate
      Application.Wait Now() + TimeValue("00:00:05")
      If GetAsyncKeyState(vbKeyShift) Then Exit Sub
      DoEvents
    Next ws
  Loop

End Sub

这将每隔五秒循环遍历当前工作簿中的所有工作表，然后当它完成时循环再做一次。