VBA를 통한 Pivot '부분합 표시안함' 작업 문의

안녕하세요 선생님

VBA를 통해 피벗 테이블 전체 '부분합 표시안함'을 하려면 어떻게 VBA를 작성하면 되는지 문의드립니다.

아래와 같이 해당 작업을 매크로 기록하면 다소 지저분하고 길어 간결한 문장으로 만들고 싶습니다.

피벗 생성 시 '테이블 형식' - 전체 '부분합 표시안함' 절차를 VBA로 작성 중인데,

'테이블 형식'은 알게 되었으나, '부분합 표시안함'은 확인할 수가 없어 이렇게 조언 요청드립니다.

시간되신다면 조언 부탁드립니다.

늘 감사드립니다.

 

---

Sub 매크로1()
'
' 매크로1 매크로
'

'
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("[범위 1].[1차].[1차]").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("[범위 1].[2차].[2차]").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("[범위 1].[비고].[비고]").Subtotals = _
Array(False, False, False, False, False, False, False, False, False, False, False, False)
End Sub

 

---