-1

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

4

1 回答 1

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
于 2012-09-02T08:37:12.917 回答