종종 Dave는 두 개의 통합 문서가 열려있을 때 Arrange | 동시에 볼 수 있습니다. 이렇게하면 두 통합 문서 사이의 공간이 균등하게 나뉩니다. 그러나 Dave가 한 통합 문서에서는 몇 행의 데이터 만보고 다른 통합 문서에서는 여러 행을보고 싶어하는 경우가 종종 있습니다. 그는 작은 통합 문서의 크기를 수동으로 조정하고 Excel에서 두 번째 통합 문서로 화면의 나머지 공간을 채우도록하는 편리한 방법이 있는지 궁금합니다.

이 작업을 수동으로 수행하는 방법은 Dave (및 대부분의 다른 Excel 사용자)가 이미 잘 알고있는 방법입니다. 창을 가로로 정렬하고 위쪽 창 크기를 조정 한 다음 아래쪽 창 크기를 조정합니다. 이런 식으로 작업을 수행하기 위해 원하는 방식으로 창을 얻을 수 있습니다.

창 크기를 자동으로 조정하려는 경우 매크로를 사용하여 작업을 수행 할 수 있습니다. 다음 매크로는 첫 번째 창의 크기를 원하는대로 조정 한 다음 두 번째 창의 크기를 자동으로 조정하여 상단 창 아래의 나머지 공간을 차지합니다.

Sub UnevenSplit1()

Dim Ht0 As Single     Dim Ht1 As Single     Dim Ht2 As Single     Dim Top2 As Single

If Windows.Count = 2 Then         With Windows(1)

Ht1 = .Height             .WindowState = xlMaximized             Ht0 = .Height         End With         Top2 = Ht1 + 3         Windows.Arrange ArrangeStyle:=xlHorizontal         With Windows(1)

.Top = 1             .Height = Ht1         End With         With Windows(2)

.Top = Top2             .Height = Ht0 - Ht1 - 22         End With         Windows(1).Activate     End If End Sub

통합 문서가 두 개만 열려있는 경우에만 매크로가 통합 문서 창의 크기를 조정합니다. 이보다 많거나 적 으면 아무 일도 일어나지 않는 것처럼 나타납니다.

매크로가 상단 창 크기를 조정하도록하여 자동화를 한 단계 더 발전시킬 수 있습니다. 다음 예제는 상단 창이 화면의 25 %를 차지하고 하단 창이 75 %를 차지하는 것으로 끝납니다.

Sub UnevenSplit()

Dim Ht1 As Single     Dim Ht2 As Single     Dim Ht1a As Single     Dim Ht2a As Single     Dim Top2 As Single

If Windows.Count = 2 Then         Windows.Arrange ArrangeStyle:=xlHorizontal         Ht1 = Windows(1).Height         Ht2 = Windows(2).Height         Ht1a = Ht1 / 2         Top2 = Ht1a + 3         Ht2a = Ht2 + Ht1a

With Windows(1)

.Top = 1             .Height = Ht1a         End With         With Windows(2)

.Top = Top2             .Height = Ht2a         End With         Windows(1).Activate     End If End Sub

또한이 매크로의 값은 대부분 창에 표시되는 항목에 따라 달라진다는 점을 알고 있어야합니다. 전체 세로 깊이에 리본이 있으면 화면 공간이 많이 필요합니다. 실제로 상단 창이 화면 높이의 25 %를 차지하더라도 리본 및 기타 인터페이스 요소가 공간을 차지하기 때문에 워크 시트의 행이 표시되지 않을 수 있습니다.

두 가지 가능한 솔루션이 있습니다. 첫 번째는 리본과 같은 화면 요소를 최소화하는 것입니다. (리본을 최소화하려면 리본 탭을 두 번 클릭하십시오.) 물론 다른 해결책은 매크로가 다른 계산을 사용하여 창의 최종 크기를 결정하도록하는 것입니다. (최종 창 높이는 변수 Ht1a 및 Ht2a에 있습니다.)

_ 참고 : _

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

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

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

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