循環使用Excel工作表並暫停每個工作表

Question

我正在嘗試做一些應該相對簡單的事情，但我不能讓它正常工作，我一直在殺Excel。

我有一個包含數據，支點和圖表的工作簿。 我想在選定數量的紙張之間循環，我已設法做到，下面的代碼，但我現在想要實現的是讓它在每張紙上暫停10秒，然后再轉到下一張紙。

Sub LoopThroughFlaggedSheets()

Dim StartIndex, EndIndex, LoopIndex, CountIndex As Integer

StartIndex = Sheets("Dashboard").Index
EndIndex = Sheets("Sales By Policy Type").Index
CountIndex = 5

For CountIndex = 1 To CountIndex
    For LoopIndex = StartIndex To EndIndex
        MsgBox Sheets(LoopIndex).Name

    Next LoopIndex
Next CountIndex
End Sub

因此，目前它通過Dashboard和Sales By Policy Type之間的工作表循環5次，消息框只適合我，所以我知道它在做什么。 我只需要暫停每張紙之間的任何指定時間段。 我知道有些東西需要在LoopIndex循環中進行，但我不能為我的生活找出哪里和哪個命令。

干杯

Answer 1

編輯試試這個：

Sub LoopThroughFlaggedSheets()

Dim StartIndex, EndIndex, LoopIndex, CountIndex As Integer

StartIndex = Sheets("Dashboard").Index
EndIndex = Sheets("Sales By Policy Type").Index
'CountIndex = 5

'For CountIndex = 1 To CountIndex
    For LoopIndex = StartIndex To EndIndex
        'MsgBox Sheets(LoopIndex).Name

        Debug.Print Now()
        Debug.Print Sheets(LoopIndex).Name

        Application.Wait (Now + TimeValue("00:00:01"))

        Debug.Print Now()

    Next LoopIndex
'Next CountIndex

End Sub

我取出你的外部CountIndex循環來停止Wait運行25次。 我已將等待時間縮短為1秒以顯示原則。