인쇄 할 때 16 페이지가 필요한 큰 워크 시트가 있다고 가정합니다. 워크 시트 내에서 작업 할 때 5 페이지와 같은 특정 페이지로 이동할 수있는 방법이 있는지 궁금 할 수 있습니다.

Word 사용자는 Word 내에서 이동 대화 상자를 사용하여 다양한 페이지로 이동할 수 있다는 것을 알고 있지만 Excel에는 이러한 기능이 없습니다. 그러나 문제에 접근 할 수있는 몇 가지 방법이 있습니다.

한 가지 방법은 페이지 상단에 나타나는 셀을 선택하는 것입니다.

(예를 들어 5 페이지의 왼쪽 상단에 나타나는 셀) 그런 다음 Page05와 같은 셀의 이름을 정의 할 수 있습니다. 워크 시트의 각 페이지에 대해이 작업을 수행 한 다음 Excel의 기능을 사용하여 해당 이름으로 이동할 수 있습니다.

이를 수행 할 수있는 또 다른 방법은 페이지 나누기 미리보기 모드를 사용하는 것입니다. (페이지 나누기 미리보기로 전환하려면보기 | 페이지 나누기 미리보기를 선택합니다.) 페이지 나누기가있는 위치를 확인하고 원하는 페이지에서 셀을 선택한 다음 일반보기로 돌아갈 수 있습니다.

특정 페이지로 이동할 수있는 매크로를 만드는 것도 가능하지만 생각만큼 쉽지는 않습니다. 그 이유는 페이지가 시작되고 끝나는 위치를 변경할 수있는 하드 페이지 나누기의 가능한 사용과 관련이 있습니다. 그러나 다음 매크로는 트릭을 수행 할 수 있습니다. 사용자에게 페이지 번호를 입력하라는 메시지를 표시 한 다음 입력 된 페이지에서 왼쪽 상단 셀을 선택합니다.

Sub GotoPageBreak()

Dim iPages As Integer     Dim wks As Worksheet     Dim iPage As Integer     Dim iVertPgs As Integer     Dim iHorPgs As Integer     Dim iHP As Integer     Dim iVP As Integer     Dim iCol As Integer     Dim lRow As Long     Dim sPrtArea As String     Dim sPrompt As String     Dim sTitle As String

Set wks = ActiveSheet     iPages = ExecuteExcel4Macro("Get.Document(50)")

iVertPgs = wks.VPageBreaks.Count + 1     iHorPgs = wks.HPageBreaks.Count + 1     sPrtArea = wks.PageSetup.PrintArea

sPrompt = "Enter a page number (1 through "

sPrompt = sPrompt & Trim(Str(iPages)) & ") "

sTitle = "Enter Page Number"



iPage = InputBox(Prompt:=sPrompt, Title:=sTitle)



If wks.PageSetup.Order = xlDownThenOver Then         iVP = Int((iPage - 1) / iHorPgs)

iHP = ((iPage - 1) Mod iHorPgs)

Else         iHP = Int((iPage - 1) / iVertPgs)

iVP = ((iPage - 1) Mod iVertPgs)

End If

If iVP = 0 Then         If sPrtArea = "" Then             iCol = 1         Else             iCol = wks.Range(sPrtArea).Cells(1).Column         End If     Else         iCol = wks.VPageBreaks(iVP).Location.Column     End If

If iHP = 0 Then         If sPrtArea = "" Then             lRow = 1         Else             lRow = wks.Range(sPrtArea).Cells(1).Row         End If     Else         lRow = wks.HPageBreaks(iHP).Location.Row     End If

wks.Cells(lRow, iCol).Select     Set wks = Nothing End Sub

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (5823)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다.