我在为研讨会准备的工作簿中有 10 多张 excel 表格。我必须为这些表格制作幻灯片,以便每张表格都应该自动一个接一张地更改。你能帮我解决这个任务吗?
问问题
4207 次
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 回答