excel - 如何通过宏使用VB代码依次更改具有5秒时间间隔的excel表？

Question

我在为研讨会准备的工作簿中有 10 多张 excel 表格。我必须为这些表格制作幻灯片，以便每张表格都应该自动一个接一张地更改。你能帮我解决这个任务吗？

Answer 1

这可能会帮助您入门。它将每 5 秒显示工作簿中的每个工作表，从工作簿中的第一个工作表开始，到最后一个工作表结束。

Sub StartSlideShow()
    Application.OnTime Now + TimeValue("00:00:05"), "ShowNextSheet"
End Sub

Sub ShowNextSheet()
    Dim lastIndex As Integer, nextShtIndex As Integer

    lastShtIndex = Worksheets.Count
    nextShtIndex = ActiveSheet.Index + 1

    If nextShtIndex <= lastShtIndex Then
        Worksheets(nextShtIndex).Select
        StartSlideShow
    Else
        MsgBox "End of slide show"
    End If
End Sub