VBA를 통해 Excel에서 피벗 테이블의 특정 섹션을 확장하거나 원래 위치로 점프합니다.

Question

필자는 피벗 테이블을 년, 분기 및 월별로 세분화했습니다. 그러나 을 2015 년 분기를 확장하려고 시도하면 다른 모든 연도도 에 해당 분기가 표시됩니다. 1 년 동안 만 분기를 확장하려면 어떻게해야합니까?
-https://superuser.com/questions/1049881/expanding-specific-sections-of-a-pivot-table-in-excel

이 질문에 아무 대답이 없어,하지만 프로그래밍 포럼 아니었다. 비슷한 질문이 있습니다. VBA 솔루션이 있습니까?

또는 확장 클릭을 "catch"한 다음 플러스가 클릭 된 원래 셀로 건너 뛰는 VBA 코드가 있습니까?

샘플 파일 : http://ge.tt/2dNZ40n2

샘플 코드 (난 그냥 이 사실을 원하는) :

ActiveSheet.PivotTables(1).PivotFields("Month").PivotItems("3").ShowDetail = True 

Answer 1

는이 같은 것을 사용할 수 있습니까? 당신은, 당신은 매달 다음 IF를 만들어야을 위해 이것은 좋은 출발점이 될 것입니다

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) 

    If (ActiveSheet.PivotTables(1).PivotFields("Month").PivotItems("3").ShowDetail) Then 
     ActiveSheet.PivotTables(1).PivotFields("Month").PivotItems("3").ShowDetail = False 
     Sheets(2).Activate 
     '''' Change filter options here? or have a cell selected? 
    End If 

End Sub