[vba] Page Up/Page Down 버튼을 이용한 시트이동 단축키

Page Up/Page Down 버튼으로 시트를 이동합니다.

Dim i As Integer

Dim setTime As Double

 

Sub Auto_Open()

    Application.OnKey "{PGDN}", "DN"

    Application.OnKey "{PGUP}", "UP"

End Sub

 

Sub DN()

    If setTime > Timer Then Exit Sub

    i = ActiveSheet.Index

    i = i - 1

    If i < 1 Then i = 1

    Sheets(i).Activate

    setTime = Timer + 1 / 3

End Sub

 

Sub UP()

    If setTime > Timer Then Exit Sub

    i = ActiveSheet.Index

    i = i + 1

    If i > Sheets.Count Then i = Sheets.Count

    Sheets(i).Activate

    setTime = Timer + 1 / 3

End Sub