Steven은 데이터 행과 열이 많은 워크 시트를 가지고 있습니다. B2 셀을 활성화 한 다음 창을 고정하여 첫 번째 행과 열을 고정했습니다. 이것은 그가 원하는대로 작동합니다. 통합 문서를 저장하고 닫을 수도 있으며 통합 문서를 다시 열면 창이 여전히 고정되어 있습니다.

그러나 Steven이 통합 문서에 대한 새 창을 열면 (View | Window | New Window) 새 창에 고정 된 창이 없습니다. 이 통합 문서의 많은 워크 시트에서 창을 고정했기 때문에 어떤 창을 먼저 닫을 지 매우주의해야합니다. 먼저 원래 창을 닫으면 통합 문서를 저장할 때 고정되지 않은 모든 워크 시트가 저장됩니다.

Steven은 고정 된 창 설정을 유지하기 위해 새 창을 가져올 수있는 방법이 있는지 궁금합니다.

Steven이 발생해야하는 작업을 처리 할 Excel 설정은 없습니다. 고정 된 창이 저장되지 않는 이유는 FreezePanes (확대 / 축소, 분할 및 기타 몇 가지 설정 포함)가 워크 시트 나 통합 문서가 아닌 창의 속성이기 때문입니다. 새 창이 생성 될 때 속성은 원래 창에서 상속되지 않습니다.

그러나이 동작을 피하고 스티븐의 문제를 해결할 수 있습니다.

매크로를 사용하여 설정을 수행합니다. 매우 짧은 방법은 리본 도구를 사용하여 새 창을 만드는 것을 포기하는 것입니다. 대신이 매크로를 QAT에 추가하고이를 사용하여 창 생성을 수행하십시오.

Sub CreateNewWindow1()

Dim rPane As Range

Set rPane = ActiveWindow.VisibleRange(1)

ActiveWindow.NewWindow     ActiveSheet.Range("B2").Select     ActiveWindow.FreezePanes = True End Sub

매크로는 새 창을 만들고, 보이는 셀을 원래 창에 표시된 것과 동일하게 설정하고, 새 창에서 B2 셀을 선택한 다음 창을 고정합니다.

이 간단한 접근 방식은 “창 고정”요구 사항이 더 다양하다면 작동하지 않을 수 있습니다. 예를 들어, 새 창을 만들고 새 창을 만들 때 활성화 된 창에 있던 모든 창과 일치하도록하는 방법을 원할 수 있습니다.

다음 매크로는 현재 창에 fozen 창이 있는지 확인합니다. 그렇다면 고정 된 위치를 파악하고이를 사용하여 새 창에서 고정 된 창을 설정합니다. 고정 된 창이 없으면 어쨌든 새 창이 생성되고 고정 된 창이 없습니다. 두 경우 모두 원본에서 선택한 것과 동일한 셀이 새 창에서 선택됩니다.

Sub CreateNewWindow2()

Dim iRow As Integer     Dim iCol As Integer     Dim rOldPos As Range

iRow = 0     iCol = 0     If ActiveWindow.FreezePanes Then         iRow = ActiveWindow.ScrollRow         iCol = ActiveWindow.ScrollColumn     End If     Set rOldPos = ActiveCell     ActiveWindow.NewWindow     If (iRow > 0) And (iCol > 0) Then         Cells(iRow, iCol).Select         ActiveWindow.FreezePanes = True     End If     rOldPos.Select End Sub

이 코드는 원하는 새 창을 만드는 데 다시 사용할 수 있습니다.

활성 창에서 새로 생성 된 창으로 고정 된 창 설정을 복사하기 때문에 Steven이 수행해야하는 작업을 수행합니다.

_ 참고 : _

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

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

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

이 팁 (13366)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다.