답변:
Ctrl+ PgUp는 왼쪽으로 이동합니다.
Ctrl+ PgDn오른쪽으로 이동합니다.
Page Up
하고 Page Down
항상 다른 노트북에서 찾기 어려운 매우 편리하게 키보드에 배치되지 않습니다.
실제 키보드 바로 가기를 첫 번째 또는 마지막 워크 시트로 이동하려면 "PERSONAL"통합 문서의 모듈에이 코드를 입력하십시오.
Sub ToFirstSheet()
Sheets(1).Activate
End Sub
Sub ToLastSheet()
Sheets(Sheets.Count).Activate
End Sub
개발자 탭> 매크로로 이동하십시오. 이 매크로 (ToFirstSheet 및 ToLastSheet)를 찾아보십시오. 하나를 선택하고 옵션을 클릭 한 다음 키보드 단축키를 지정하십시오. 다른 쪽도 똑같이하십시오.
이를 "개인"통합 문서에 저장하면 모든 Excel 파일에서 사용할 수 있습니다.
한 워크 시트를 왼쪽이나 오른쪽으로 이동하려면 다음과 같은 기본 키보드 단축키를 사용할 수 있습니다.
Ctrl+PgUp
Ctrl+PgDn
VBA를 사용하여 동일한 작업을 수행하는 방법은 다음과 같습니다.
Sub ToPreviousSheet()
If ActiveSheet.Index = 1 Then
ActiveWorkbook.Worksheets(ActiveWorkbook.Worksheets.Count).Activate
Else
ActiveWorkbook.Worksheets(ActiveSheet.Index - 1).Activate
End If
End Sub
Sub ToNextSheet()
If ActiveSheet.Index = ActiveWorkbook.Worksheets.Count Then
ActiveWorkbook.Worksheets(1).Activate
Else
ActiveWorkbook.Worksheets(ActiveSheet.Index + 1).Activate
End If
End Sub
이전 또는 다음 워크 시트 개체를 얻으려면이 함수를 사용하십시오.
Function GetPreviousSheet(ByVal targetSheet As Worksheet) As Worksheet
Dim targetBook As Workbook
Set targetBook = targetSheet.Parent
If targetSheet.Index = 1 Then
Set GetPreviousSheet = targetBook.Worksheets(targetBook.Worksheets.Count)
Else
Set GetPreviousSheet = targetBook.Worksheets(targetSheet.Index - 1)
End If
End Function
Function GetNextSheet(ByVal targetSheet As Worksheet) As Worksheet
Dim targetBook As Workbook
Set targetBook = targetSheet.Parent
If targetSheet.Index = targetBook.Worksheets.Count Then
Set GetNextSheet = targetBook.Worksheets(1)
Else
Set GetNextSheet = targetBook.Worksheets(targetSheet.Index + 1)
End If
End Function
다음과 같은 기능을 사용하십시오.
Sub EXAMPLE()
MsgBox "Previous Sheet: " & GetPreviousSheet(ActiveSheet).Name
MsgBox "Next Sheet: " & GetNextSheet(ActiveSheet).Name
GetNextSheet(ActiveSheet).Activate
End Sub
Sub ToPreviousSheet
하고 ToNextSheet
?