매크로 : 피벗테이블 필터에서 원하는것만 안나오게 하기(체크풀기)

 

 

For s = 1 To 1 '★시트 5개까지만 작동
  
    With Sheets(s).PivotTables("피벗 테이블3").PivotFields("호차2")
          
          Application.EnableEvents = False
          Application.Calculation = xlCalculationManual
          i = .PivotItems.Count
  
          
          
            For n = 1 To i
            
            .PivotItems(n).Visible = True
            
            Next
          
        .PivotItems("(지)경산").Visible = False
        .PivotItems("(지)부산").Visible = False
        .PivotItems("(지)하남").Visible = False
          Application.Calculation = xlCalculationAutomatic
          Application.EnableEvents = True

    
    End With
 Next
 
이렇게하면 '피벗테이블3'에 '호차2'라는 열 필터에서  '경산,부산,하남'만 빼고 다 체크가됨.

 Application.EnableEvents = False
          Application.Calculation = xlCalculationManual 

이건 별로 안중요한 코드였던거 같은데  혹시몰라서 기입해놓음

 

이 코드 궁금해서 찾아다녔는데 한글로 된 블로그에는 안보였음. 결국 스택오버플로우에 어느 중국인? 대만인이 써놨었음

 

+++++더 짧고 좋은 코드는 여기에. 밑에는 사실 자동필터긴한데 피벗테이블필터랑 크게 다르진 않을 것 같다

https://beneagain.tistory.com/209

VBA : 자동필터에서 항목 전부 체크하기