Bev에는 고정 된 두 개의 머리글 행과 고정 된 열이있는 워크 시트가 있습니다. 그런 다음 페이지를 스크롤하여 매주 데이터를 추가 할 수 있습니다. 이름과 부분 합계는 왼쪽 상단의 요일에 고정되어 있습니다. 무엇보다도 첫 번째 고정 행에서 Bev는 통합 문서를 설명하는 멋진 제목을 가지고 있습니다. 그녀는 페이지를 스크롤 할 때 제목이 보이는 워크 시트의 가장자리에서 사라지지 않도록 제목 (첫 번째 행에있는 제목)을 “부동”시킬 수있는 방법을 찾고 있습니다.

이렇게하는 가장 쉬운 방법은 제목이 A1 셀에 있는지 확인하는 것입니다.

하나의 열과 두 개의 행이 고정되어 있으므로 제목이 포함 된 오른쪽 셀 A1로 스크롤하면 항상 화면에 표시됩니다. (이것은 전체 제목이 셀 B1 또는 그 이상으로 “넘치지”않고 셀 A1에 맞는 경우에만 만족스럽게 작동합니다.)

제목에 좀 더 멋진 것을 원한다면 텍스트 상자와 매크로로 약간의 작업을해야합니다. 첫 번째 행에 위치한 텍스트 상자에 제목을 배치하면 일부 매크로를 사용하여 텍스트 상자가 항상 해당 행의 화면 중앙에 오도록 할 수 있습니다.

이 예제를 위해 제목이 포함 된 텍스트 상자가 “TitleTextBox”라고 가정합니다. 워크 시트에서 왼쪽과 오른쪽으로 스크롤하면 매크로가 텍스트 상자의 왼쪽 가장자리가 항상 보이는 화면 영역의 왼쪽 가장자리와 같은지 자동으로 확인할 수 있습니다. 텍스트 상자가 포함 된 워크 시트의 워크 시트 코드에 다음 코드를 추가해야합니다.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Me.Shapes("TitleTextBox").Left = ActiveWindow.VisibleRange.Left End Sub

이 매크로는 워크 시트 코드의 일부이므로 워크 시트에서 선택 항목이 변경 될 때마다 실행됩니다. 따라서 화살표 키를 사용하여 왼쪽 또는 오른쪽으로 이동하거나 탭 키를 사용하거나 마우스로 셀을 선택하면 매크로가 실행되고 텍스트 상자의 왼쪽 가장자리와 보이는 영역이 항상 일치하는지 확인합니다.

이 매크로가 시작되지 않는 경우는 화면 하단의 가로 스크롤 막대를 사용하여 좌우로 스크롤 할 때입니다. 스크롤 막대를 사용할 때 자동으로 트리거되는 “스크롤 이벤트”는 없습니다. 새로운 가시 범위 내에서 선택을 수행하여 SelectionChange 이벤트를 트리거 할 때까지 텍스트 상자 위치는 이동되지 않습니다.

이 제한에 대한 유일한 해결 방법은 Visual Basic의 타이머 기능을 사용하여 텍스트 상자를 주기적으로 업데이트하는 것입니다. 다음 코드는 매초마다 수행하지만 원하는 경우 실행 빈도를 줄 이도록 조정할 수 있습니다.

이 코드는 일반 VBA 모듈에 추가됩니다.

Sub UpdateTB()

If ActiveSheet.Name = "Sheet1" Then         ActiveSheet.Shapes("TitleTextBox").Left = _           ActiveWindow.VisibleRange.Left     End If     Application.OnTime Now + TimeSerial(0, 0, 1), "UpdateTB"

End Sub

그리고 이것은 통합 문서가 처음 열릴 때 타이머를 시작하기 위해 통합 문서 개체에 추가됩니다.

Private Sub Workbook_Open()

UpdateTB End Sub

타이머 기반 접근 방식을 사용하여 텍스트 상자의 위치를 ​​지정하는 경우 SelectionChange 이벤트에 연결된 것을 사용할 필요가 없습니다. 타이머 버전은 매 간격마다 제목을 간단히 조정합니다.

코드 실행으로 인한 부진 외에도 매크로 기반 기술에는 추가적인 “단점”이 있습니다. 코드가 실행될 때마다 “실행 취소 스택”이 지워집니다. 즉, 필요한 경우 통합 문서에서 변경 한 내용을 “실행 취소”할 수 없습니다.

_ 참고 : _

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

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

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

이 팁 (10260)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

link : / excel-Floating_Information_in_a_Frozen_Row [고정 된 행의 부동 정보].