2016-06-14 66 views

回答

0

發現此thread關於如何設置電子表格每隔N秒在不同的紙張之間切換。

例子:

Option Explicit 

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 

Public Sub Switch() 

    Dim ws As Worksheet 

    Do 
    For Each ws In ThisWorkbook.Worksheets 
     ws.Activate 
     Application.Wait Now() + TimeValue("00:00:05") 
     If GetAsyncKeyState(vbKeyShift) Then Exit Sub 
     DoEvents 
    Next ws 
    Loop 

End Sub 

這將遍歷當前工作簿中的所有工作表每五秒鐘,然後當它完成它循環輪再做。

+0

嗨,但我正在尋找谷歌電子表格。不適用於Excel。 – sam123