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

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

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

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

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

아래의 피벗 테이블을 예로 들어 보겠습니다. 피벗 테이블의 필터 필드는 범주, 두 개의 값이 포함되어 있습니다.경비"및"세일즈”. 피벗 테이블 필터를 셀에 연결 한 후 피벗 테이블 필터에 적용 할 셀 값은 "비용"및 "판매"여야합니다.

1. 피벗 테이블의 필터 기능에 연결할 셀 (여기서는 셀 H6 선택)을 선택하고 미리 필터 값 중 하나를 셀에 입력하십시오.

2. 셀에 연결할 피벗 테이블이 포함 된 워크 시트를 엽니 다. 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 코드보기 상황에 맞는 메뉴에서. 스크린 샷보기 :

3. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 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. 누르세요 다른 + Q 닫는 키 응용 프로그램 용 Microsoft Visual Basic 창.

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

H6 셀을 새로 고치면 피벗 테이블의 해당 데이터가 기존 값을 기준으로 필터링됩니다. 스크린 샷보기 :

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

관련 기사 :

• Excel에서 여러 시트를 피벗 테이블로 결합하는 방법은 무엇입니까?
• Excel의 텍스트 파일에서 피벗 테이블을 만드는 방법은 무엇입니까?
• Excel의 특정 셀 값을 기반으로 피벗 테이블을 필터링하는 방법은 무엇입니까?