Excel에서 VBA를 사용하여 다중 투시표(pivot table)의 구현을 제어합니다.

1901 단어
오랫동안 갇혀 있던 문제 하나가 마침내 해결되었다.수요는 Excel에 많은 투시표가 있는데 각 투시표의 데이터 원본은 같다. 나는 이 투시표의 어떤 필터 조건을 함께 연결하고 싶다.
예를 들어 나는 세 개의 투시표가 있는데 나는 세 개의 시계의Month 옵션을 모두'2014-12'로 바꾸기를 바란다.이리저리 뒤져보니 VBA로만 가능합니다.
구체적인 코드는 다음과 같습니다.
Public Sub FilterPivotTable()

Dim ORG
ORG = ActiveSheet.PivotTables(" 6").PivotFields("[BRANCH_DBVIN].[ORGNAME].[ORGNAME]").CurrentPageName

With ActiveSheet.PivotTables(" 12").PivotFields("[BRANCH_DBVIN].[ORGNAME].[ORGNAME]")
    .CurrentPageName = ORG
End With
End Sub

이 안에'투시표 6'은 원본 데이터이고 변수 ORG는 변화할 결과를 저장합니다.원근 테이블 12는 대상 원근 테이블입니다.
Field의 이름을 모르면 아래 코드를 참고하십시오.
For each pField in ActiveSheet.PivotTables("PivotTable1").PivotFields
     Debug.Print pField.Name
Next pField

Go to VBA Editor, press Ctrl+G, it will open the immediate window. It will show all the available pivot fields.Then please use the correct Pivot Field and try.
다음으로 전송:https://www.cnblogs.com/kidoln/p/4241370.html

좋은 웹페이지 즐겨찾기