Excel 워크시트에 고정 표 또는 텍스트 상자를 삽입하는 방법은 무엇입니까?

스크롤을 올리거나 내릴 때에도 항상 워크시트 화면에서 중요한 데이터가 포함된 표나 텍스트 상자를 보이게 유지하려는 경우, 이 작업은 흥미로운 과제일 수 있습니다. 이 기사에서는 이를 해결하기 위한 간단한 방법을 소개하겠습니다.

VBA 코드를 사용하여 Excel에 고정 표 삽입

VBA 코드를 사용하여 Excel에 고정 텍스트 상자 삽입

VBA 코드를 사용하여 Excel에 고정 표 삽입

고정 표를 삽입하는 직접적인 방법은 없으므로, 표 데이터를 이미지로 변환한 다음 코드를 적용하여 완료해야 합니다. 아래 단계를 따라 주세요:

1. 항상 보이게 하고 싶은 데이터 표를 선택한 후 홈 탭에서 복사 > 그림으로 복사를 클릭하세요. 스크린샷을 참조하세요:

2. 나타난 그림 복사 대화 상자에서 모양 섹션에서 화면에 표시된 대로를 선택하고, 형식 섹션에서 그림을 선택한 후 확인을 클릭하여 대화 상자를 닫습니다. 그런 다음 그림을 출력할 셀을 클릭하고 마지막으로 Ctrl + V를 눌러 그림을 붙여넣습니다. 스크린샷을 참조하세요:

3. 표를 그림으로 변환한 후, 항상 보이게 하고 싶은 표 그림이 있는 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 바로 가기 메뉴에서 코드 보기 를 선택합니다. 열린 Microsoft Visual Basic for Applications 창에서 다음 코드를 빈 모듈에 복사하여 붙여넣습니다:

VBA 코드: Excel에 고정 표 삽입:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

참고: 이 코드에서 Picure1은 생성한 이미지 이름입니다. 필요에 따라 변경하세요.

4. 그런 다음 코드 창을 저장하고 닫습니다. 이제 워크시트를 스크롤하고 셀을 클릭하면, 표 그림은 항상 워크시트의 우측 상단에 유지됩니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

VBA 코드를 사용하여 Excel에 고정 텍스트 상자 삽입

고정 텍스트 상자를 삽입하기 위해 여기에는 이 작업을 해결하기 위한 VBA 코드도 있습니다.

1. 먼저 개발 도구 탭에서 텍스트 상자를 삽입해야 합니다. 개발 도구 > 삽입 > 텍스트 상자 (ActiveX 컨트롤) 을 클릭하고 텍스트 상자를 그리고 필요한 정보를 입력합니다. 스크린샷을 참조하세요:

2. 그런 다음 항상 보이게 하고 싶은 텍스트 상자가 있는 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 바로 가기 메뉴에서 코드 보기 를 선택합니다. 열린 Microsoft Visual Basic for Applications 창에서 다음 코드를 빈 모듈에 복사하여 붙여넣습니다:

VBA 코드: Excel에 고정 텍스트 상자 삽입:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

참고: 이 코드에서 TextBox1은 삽입한 텍스트 상자의 이름입니다. 필요에 따라 변경하세요.

3. 그런 다음 코드 창을 저장하고 닫습니다. 이제 워크시트 어디로 스크롤하더라도 삽입된 텍스트 상자는 항상 워크시트의 우측 상단에 유지됩니다.