2016-06-14 3 views

답변

0

이 N을 초마다 다른 시트간에 전환하도록 스프레드 시트를 설정하는 방법에 대해 thread을 찾았습니다.

예 : 5 초마다, 그것은 수행의 당시 때 다시 할 라운드 루프 현재 통합 문서의 모든 워크 시트를 통해

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

안녕하세요,하지만 Google 스프레드 시트를 찾고 있습니다. Excel 용이 아닙니다. – sam123

관련 문제