Excel에서 워크시트를 스크롤할 때 PivotTable의 슬라이서를 계속 이동시키려면 어떻게 해야 하나요?

PivotTable로 작업하는 동안 데이터를 시각적으로 필터링하기 위해 슬라이서를 삽입할 수 있습니다. 이 문서에서는 워크시트를 스크롤하면서도 PivotTable의 슬라이서를 항상 표시되게 유지하는 방법에 대해 설명합니다.

VBA 코드를 사용하여 PivotTable의 슬라이서가 워크시트 스크롤과 함께 이동하도록 유지하기

VBA 코드를 사용하여 PivotTable의 슬라이서가 워크시트 스크롤과 함께 이동하도록 유지하기

다음 VBA 스크립트는 PivotTable의 슬라이서가 워크시트와 함께 이동하도록 유지하는 데 도움이 될 수 있습니다. 아래 단계를 따르세요.

1. Alt + F11 키를 동시에 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 왼쪽 프로젝트 창에서 ThisWorkbook을 두 번 클릭한 다음, 아래 VBA 코드를 ThisWorkbook (코드) 창에 복사하여 붙여넣습니다. 스크린샷 보기:

VBA 코드: 워크시트 스크롤과 함께 PivotTable의 슬라이서 이동 유지하기

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim ShF As Shape
    Dim ShM As Shape
    'specify a slicer
    Application.ScreenUpdating = False
    Set ShF = ActiveSheet.Shapes("Column1")
    Set ShM = ActiveSheet.Shapes("Column2")
    'change position of the slicer
    With Windows(1).VisibleRange.Cells(1, 1)
        ShF.Top = .Top
        ShF.Left = .Left + 300
        ShM.Top = .Top
        ShM.Left = .Left + 100
    End With
    Application.ScreenUpdating = True
End Sub

참고:

1). 코드에서 Column1 및 Column2는 슬라이서의 이름입니다.

2). 코드에서 워크시트를 스크롤하는 동안 슬라이서의 위치를 지정할 수 있습니다.

3). 필요에 따라 코드에 더 많은 슬라이서를 추가하거나 슬라이서를 제거할 수 있습니다.

3. Alt + Q 키를 눌러 Microsoft Visual Basic for Applications 창 대화 상자를 닫습니다.

이제부터 지정된 슬라이서는 워크시트를 스크롤할 때 활성 셀과 함께 이동됩니다. 스크린샷 보기:

Kutools AI로 엑셀의 마법을 풀다

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

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

관련 기사:

• Excel에서 보호된 워크시트에서 테이블 행을 삽입하여 테이블을 확장 가능하게 유지하려면 어떻게 해야 하나요?
• Excel에서 셀을 병합하고 셀 서식을 유지하려면 어떻게 해야 하나요?
• Excel에서 중복을 제거하지만 첫 번째 항목은 유지하려면 어떻게 해야 하나요?