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

VBA
작성자
그리피스
작성일
2021-09-15 08:34
조회
52
엑셀버전 : 엑셀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,070
번호 카테고리 제목 작성자 작성일 추천 조회
4054 함수/공식
New vlookup 함수 관련하여 질문한가지 드립니다 ㅠㅠ 첨부파일 (2)
naver_6153175682f77 | 22:28 | 추천 0 | 조회 7
naver_6153175682f77 22:28 0 7
4053 VBA
New 동일한 포멧의 여러 엑셀파일에서 특정 위치의 값들을 추출하여 하나의 엑셀로 만들고 싶습니다. (1)
Brian | 18:14 | 추천 1 | 조회 21
Brian 18:14 1 21
4052 함수/공식
New 용량은 별로인데 속도가 느려서요 조언 부탁드립니다. 첨부파일
DollShe365 | 17:42 | 추천 0 | 조회 18
DollShe365 17:42 0 18
4051 기능/도구
New 엑셀 2개의 셀을 합쳐 가운데 - 나오는법 알려주세요 ㅠㅠ ex) 98 , 1 / 98-1 (1)
wotjd**** | 17:11 | 추천 0 | 조회 17
wotjd**** 17:11 0 17
4050 VBA
New 엑셀 VBA ctrl 불연속 범위 선택 (3)
skyline | 14:34 | 추천 0 | 조회 23
skyline 14:34 0 23
4049 VBA
New 기록한 매크로를 모든 시트에 적용할려면 어떻게 할까요 (2)
dd | 13:44 | 추천 0 | 조회 26
dd 13:44 0 26
4048 VBA
New 텍스트 박스를 배열로 지정해서 반복구문을 만들 수 있을까요? 첨부파일 (2)
설까치 | 12:19 | 추천 0 | 조회 24
설까치 12:19 0 24
4047 함수/공식
New 월별 재품별 업체별 판매 내역 첨부파일 (1)
모바일리페어 | 10:30 | 추천 0 | 조회 28
모바일리페어 10:30 0 28
4046 VBA
New 엑셀 셀레니움 크롬 크롤링 (2)
곰몽 | 07:51 | 추천 0 | 조회 25
곰몽 07:51 0 25
4045 VBA
New 프로젝트 공수관리 VBA 명령어에 대해 질문 있습니다. 첨부파일 (1)
사시스세송 | 07:37 | 추천 0 | 조회 21
사시스세송 07:37 0 21
4044 VBA
New 데이터 비교 매크로 제작 중 막히는 부분이 있어 질문 드립니다. 첨부파일
777 | 02:19 | 추천 0 | 조회 21
777 02:19 0 21
4043 VBA
New 엑셀 VBA에서 Macro 수행하는 해당 프로시저 명을 출력하는 VBA 명령어 문의드립니다. (2)
namonamo | 01:12 | 추천 0 | 조회 30
namonamo 01:12 0 30
4042 함수/공식
New 주소 개수 세는 법 질문 / ISNUMBER & SEARCH 첨부파일 (3) 답변완료
엑셀왕초보 | 2021.09.27 | 추천 0 | 조회 34
엑셀왕초보 2021.09.27 0 34
4041 기능/도구
New 데이터 유효성 검사 문의드려요 다시 드려요 ㅠㅠ (4)
다시갈꺼야 | 2021.09.27 | 추천 0 | 조회 32
다시갈꺼야 2021.09.27 0 32
4040 함수/공식
New 특정기간에 대한 percentile 데이터 분석질문드립니다. 첨부파일
kms1670 | 2021.09.27 | 추천 0 | 조회 30
kms1670 2021.09.27 0 30
4039 VBA
New 셀에 값 입력후 셀 자동 이동 (2) 답변완료
김희주 | 2021.09.27 | 추천 1 | 조회 50
김희주 2021.09.27 1 50
4038 기능/도구
New 파일 목록 데이터를 가져올때 파일 해쉬도 불려올수 있는 방법이 있나요? (2)
SDaxg | 2021.09.27 | 추천 0 | 조회 25
SDaxg 2021.09.27 0 25
4037 함수/공식
New VLOOKUP 질문 (2) 답변완료
naver_60990de82b8ae | 2021.09.27 | 추천 0 | 조회 43
naver_60990de82b8ae 2021.09.27 0 43
4036 기능/도구
New 시트고정 문의 (열고정 행고정 아닙니다.) (2) 답변완료
관절바람 | 2021.09.27 | 추천 0 | 조회 41
관절바람 2021.09.27 0 41
4035 함수/공식
New 1년의 주차로 구하고 나서 이것을 금주부터 전 주차 5주차씩 나오게 하려는 함수식 첨부파일 (1)
상큼발랄한놈 | 2021.09.27 | 추천 1 | 조회 30
상큼발랄한놈 2021.09.27 1 30
4034 함수/공식
New 중복 시간을 제외한 총 걸린시간을 구하고 싶습니다. (4) 답변완료
김종서 | 2021.09.27 | 추천 0 | 조회 39
김종서 2021.09.27 0 39
4033 함수/공식
New 부동소수점 오류 해결법좀 알려주세요 첨부파일 (3) 답변완료
유령회원 | 2021.09.27 | 추천 0 | 조회 35
유령회원 2021.09.27 0 35
4032 차트/그래프
New 엑셀>>삽입>>아이콘 질문 (3)
. | 2021.09.27 | 추천 0 | 조회 19
. 2021.09.27 0 19
4031 VBA
New 변수입력이 안됩니다. (2)
kimki**** | 2021.09.27 | 추천 0 | 조회 32
kimki**** 2021.09.27 0 32
4030 기능/도구
New 데이터 유효성 검사 문의드려요 첨부파일 (1)
다시갈꺼야 | 2021.09.26 | 추천 1 | 조회 34
다시갈꺼야 2021.09.26 1 34
4029 기능/도구
New 자동화 달력 공휴일 등록 시 날짜말고 메모부분 빨간색 변경이 안되서 어렵습니다. (1)
거부기 | 2021.09.26 | 추천 2 | 조회 37
거부기 2021.09.26 2 37
4028 문서서식
New 엑셀 CTRL+G (이동) 질문드립니다. 첨부파일 (3)
월마리아 | 2021.09.26 | 추천 0 | 조회 51
월마리아 2021.09.26 0 51
4027 차트/그래프
New 오빠두 간트 차트에 대한 질문이 있습니다. 첨부파일 (4) 답변완료
치킨카뤠 | 2021.09.26 | 추천 0 | 조회 48
치킨카뤠 2021.09.26 0 48
4026 함수/공식
부서 자동 배정 프로그램 완성 요청합니다. 첨부파일
승재빠 | 2021.09.25 | 추천 0 | 조회 64
승재빠 2021.09.25 0 64
4025 함수/공식
질문있습니다.! 중복값 표시 및 데이터 숫자 세기. 첨부파일 (1)
Barcelona | 2021.09.25 | 추천 0 | 조회 35
Barcelona 2021.09.25 0 35