피벗테이블 다중필터 .Visible 말고 다른 방법 없을 까요?

VBA
작성자
그리피스
작성일
2021-09-15 08:34
조회
71
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요

피벗테이블 다중필터를 VBA 를 만들었는데  "For" 과 ".Visible" 구문으로 필터링하니 데이터가 많으면 시간이 너무 오래 걸리는 문제가 있습니다.

일반적인 다중필터는 아래와 같이 배열함수 Array로 빠른 속도 진행이 가능했는데요

ActiveSheet.Range(필터주소Textbox).AutoFilter Field:=필터열, Criteria1:=Array(myArray), Operator:=xlFilterValues

피벗테이블에서는 이러한 방법이 없을까요?

 

피벗테이블에서 아래의 방법은 한가지 조건 밖에 필터링이 안되고...

.PivotFilters.Add2 Type:=xlCaptionEquals, Value1:= "test"

 

아래의 방법은 반복이 많아 지니 처리속도가 오래 걸리고...

.Visible = True

여기저기 찾아보다 결국 못찾아서 글을 쓰게 되었습니다. 도와주세요..ㅠㅠ

 

아래는 제가 오빠두를 보며 만들 VBA 입니다. Form으로 조건Textbox 의 값을 기준으로 조건 문자가 포함된 필드만 보여지게 하는 필터입니다.

 

Set PvtTbl = ActiveSheet.PivotTables(CStr(ActiveCell.PivotTable))
Set pf = PvtTbl.PivotFields(CStr(ActiveCell.PivotField))

Dim stext As String

 

stext = 조건Textbox

 

pf.ClearAllFilters

 

For Each PI In pf.PivotItems

If Application.IfError(Application.Search(PI, stext), 0) > 0 And PI <> "" Then
PI.Visible = True
Else
On Error Resume Next

PI.Visible = False '''''이방법 말고 다른 방법으로 3개 이상의 필터링 할 수 없을까요??

End If

Next

전체 2

  • 2021-09-15 15:03
    채택된 답변

    제가 알기로 예전 엑셀 2016에서는 가능했습니다. (제가 구현했던 방법)

    피벗테이블 필터 대신, 피벗테이블 옆에 비어있는 셀을 시작으로 범위 지정 후 autofilter 걸어주면, 피벗테이블 필터랑은 별개로 일반 필터를 하나 더 걸 수 있어요.

    아마도 2016 사용중이셔서 될 것 같은데..

    피벗필터 말고, autofilter를 건 뒤에, 배열로 한번 처리해보세요~ 그럼 빠르게 처리할 수 있습니다 ㅎㅎ


    • 2021-09-15 15:24

      아... 그렇게 돌아가는 방법이 있었군요

       

      autofilter를 사용하면 우선 피벗테이블 현재의 필터링을 해제하고 시작해야하는게 걸려요

      좋은 방법 이긴한데 제가 원하는 방법과 딱 맞지는 안네요...ㅠ.ㅠ

      그래도 현재보다는 좋은 아이디어 감사합니다~~!


전체 4,228
번호 카테고리 제목 작성자 작성일 추천 조회
4212 함수/공식
New --ISNUMBER의 의미 (1)
마운틴 | 12:07 | 추천 0 | 조회 7
마운틴 12:07 0 7
4211 함수/공식
New 엑셀 수식 가로로 하는법 첨부파일
KT | 11:08 | 추천 0 | 조회 12
KT 11:08 0 12
4210 함수/공식
New 유효성검사를 통해 다른시트의 데이터 중 매출액이 있는 데이터만 불러오는 방법 첨부파일
emp**** | 10:34 | 추천 0 | 조회 13
emp**** 10:34 0 13
4209 VBA
New 이미지넣는 매크로, 다시 열어보니 사진이 안떠요
흑형 | 09:08 | 추천 0 | 조회 13
흑형 09:08 0 13
4208 함수/공식
New 조건에 맞는 값 추출될 수 있도록 수식 질문드립니다 첨부파일 (1)
젬마 | 08:43 | 추천 0 | 조회 20
젬마 08:43 0 20
4207 기능/도구
New 하나 이상의 수식이 허용된 8,192자 제한보다 깁니다.
City0311 | 08:41 | 추천 0 | 조회 9
City0311 08:41 0 9
4206 VBA
New 재질문 : ParseJSON 함수 첨부파일
하늘의 꿈 | 01:48 | 추천 0 | 조회 17
하늘의 꿈 01:48 0 17
4205 VBA
New 다른시트명 불러오기 vba
야야야야구르트 | 2021.10.18 | 추천 0 | 조회 25
야야야야구르트 2021.10.18 0 25
4204 VBA
New 유저폼에서 리스트 검색 후, 선택목록 내용 보기 첨부파일
007 | 2021.10.18 | 추천 0 | 조회 18
007 2021.10.18 0 18
4203 함수/공식
New 변하는 변수값 고정시키기 첨부파일
아자사랑 | 2021.10.18 | 추천 0 | 조회 18
아자사랑 2021.10.18 0 18
4202 VBA
New VBA로 사용자정의폼을 동시에 여러개 띄울수 있나요? (2) 답변완료
가을전어 | 2021.10.18 | 추천 0 | 조회 35
가을전어 2021.10.18 0 35
4201 VBA
New vba 웹 크롤링 공부중 질문이 있습니다! 첨부파일
VBA시작하자 | 2021.10.18 | 추천 0 | 조회 22
VBA시작하자 2021.10.18 0 22
4200 VBA
New VBA의 Find활용 특정날짜 복붙 첨부파일 (4) 답변완료
H.B | 2021.10.18 | 추천 1 | 조회 32
H.B 2021.10.18 1 32
4199 함수/공식
New 부품과 완제품 수량 연동 질문입니다. 첨부파일 (2) 답변완료
receive | 2021.10.18 | 추천 1 | 조회 39
receive 2021.10.18 1 39
4198 VBA
New 시트별 셀수정 관련 질문드립니다 첨부파일 (4) 답변완료
ehrud**** | 2021.10.18 | 추천 0 | 조회 39
ehrud**** 2021.10.18 0 39
4197 기능/도구
New 엑셀 추가기능 XFILTER를 사용한 파일이 XFILTER 가 설치되어있는 다른PC에서 열때 오류가 납니다. (2)
No14 | 2021.10.18 | 추천 2 | 조회 25
No14 2021.10.18 2 25
4196 기능/도구
New 엑셀데이터유효성검사 질문입니다 꼭 도와주세용 첨부파일 (4) 답변완료
하곰 | 2021.10.18 | 추천 0 | 조회 43
하곰 2021.10.18 0 43
4195 함수/공식
New 동적엑셀 서식 (2)
| 2021.10.18 | 추천 0 | 조회 32
2021.10.18 0 32
4194 함수/공식
New 합계 및 합수값 해결방법 첨부파일 (2)
kk**** | 2021.10.18 | 추천 0 | 조회 32
kk**** 2021.10.18 0 32
4193 VBA
New 특정날짜 데이터만 COPY 붙이기 첨부파일 (4) 답변완료
H.B | 2021.10.18 | 추천 0 | 조회 37
H.B 2021.10.18 0 37
4192 함수/공식
New 강의실내용 교재로 받을수 있나요?
호반안개 | 2021.10.18 | 추천 0 | 조회 30
호반안개 2021.10.18 0 30
4191 함수/공식
New 월별 매출을 위해 서식을 짜고있습니다 첨부파일 (2)
크래용 | 2021.10.18 | 추천 0 | 조회 47
크래용 2021.10.18 0 47
4190 VBA
New ParseJSON 함수 자리차지 첨부파일 (3) 답변완료
하늘의 꿈 | 2021.10.18 | 추천 0 | 조회 41
하늘의 꿈 2021.10.18 0 41
4189 VBA
New vba listbox 에 head 추가하는 방법 (1)
서민철 | 2021.10.17 | 추천 0 | 조회 36
서민철 2021.10.17 0 36
4188 함수/공식
New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 33
엑셀왕왕초보 2021.10.17 0 33
4187 함수/공식
New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ (2) 답변완료
민 쌤 | 2021.10.17 | 추천 0 | 조회 27
민 쌤 2021.10.17 0 27
4186 함수/공식
New 꼭 도와 주세요. 첨부파일 (3)
그린의달인 | 2021.10.16 | 추천 1 | 조회 67
그린의달인 2021.10.16 1 67
4185 함수/공식
New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
clairebear8 | 2021.10.16 | 추천 0 | 조회 55
clairebear8 2021.10.16 0 55
4184 함수/공식
New 엑셀 공식 도와주세요~ 첨부파일 (1)
ma**** | 2021.10.16 | 추천 0 | 조회 57
ma**** 2021.10.16 0 57
4183
제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
유림아빠 | 2021.10.16 | 추천 0 | 조회 38
유림아빠 2021.10.16 0 38