Question

这里总新手。希望有人可以提供帮助我正在寻找一个宏来显示我的工作簿中的任何Excel 2010工作表作为循环幻灯片。这将显示在电视显示器上。

我遇到了下面的代码很棒，但它停在最后一页，我不需要最后的消息框

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

Answer 1

这不是“驱使你破解者”。这段代码清楚地从互联网上复制和粘贴，你没有付出任何努力来实际解决它自己。

无论如何，这应该有效;

If nextShtIndex <= lastShtIndex Then
    Worksheets(nextShtIndex).Select
    StartSlideShow
Else
    Worksheets(0).Select
    StartSlideShow
End If

将excel 2010工作表显示为循环幻灯片

1 个答案: