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