以连续循环显示每个工作表

Question

我正在尝试创建一个宏，它在连续循环中显示工作簿中的每个工作表，每隔5秒转到下一页。我在每个工作表上都有一个需要在连续循环中显示的图表。

Answer 1

赢32：

Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub ShowWs()
Dim ws
For Each ws In ThisWorkbook.Worksheets
    ws.Activate
    Sleep (1000)
Next ws
End Sub