Excel에서 피벗테이블 필터를 특정 셀에 연결하는 방법은 무엇입니까?

피벗테이블 필터를 특정 셀에 연결하고, 해당 셀의 값에 따라 피벗테이블을 필터링하려는 경우 이 문서의 방법이 도움이 될 수 있습니다.

VBA 코드를 사용하여 피벗테이블 필터를 특정 셀에 연결하기

VBA 코드를 사용하여 피벗테이블 필터를 특정 셀에 연결하기

필터 기능을 셀 값에 연결할 피벗테이블에는 필터 필드(이 필터 필드 이름은 이후 VBA 코드에서 중요한 역할을 함)가 포함되어야 합니다.

아래 피벗테이블을 예로 들어 보겠습니다. 피벗테이블의 필터 필드는 Category라고 하며, “Expenses”와 “Sales”라는 두 가지 값을 포함합니다. 피벗테이블 필터를 셀에 연결한 후, 피벗테이블을 필터링하기 위해 적용할 셀 값은 “Expenses”와 “Sales”여야 합니다.

1. 피벗테이블의 필터 기능과 연결할 셀(여기서는 H6 셀을 선택하겠습니다)을 선택하고, 미리 필터 값 중 하나를 셀에 입력하세요.

2. 피벗테이블이 있는 워크시트를 엽니다. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 상황에 맞는 메뉴에서 코드 보기(View Code)를 선택합니다. 스크린샷 참조:

3. Microsoft Visual Basic for Applications 창에서 아래 VBA 코드를 복사하여 코드 창에 붙여넣습니다.

VBA 코드: 피벗테이블 필터를 특정 셀에 연결하기

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

참고:

4. Alt + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 닫습니다.

이제 피벗테이블의 필터 기능이 H6 셀에 연결되었습니다.

H6 셀을 새로 고치면, 피벗테이블의 해당 데이터가 기존 값에 따라 필터링됩니다. 스크린샷 참조:

셀 값을 변경하면, 피벗테이블의 필터링된 데이터가 자동으로 변경됩니다. 스크린샷 참조:

Kutools AI로 엑셀의 마법을 풀다

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

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

관련 기사:

• Excel에서 여러 시트를 피벗테이블로 결합하는 방법은 무엇입니까?
• Excel에서 텍스트 파일로부터 피벗테이블을 생성하는 방법은 무엇입니까?
• Excel에서 특정 셀 값에 따라 피벗테이블을 필터링하는 방법은 무엇입니까?