피벗필터 체크박스 관련질문

VBA
작성자
H.B
작성일
2021-09-13 09:57
조회
37
엑셀버전 : M365

운영체제 : 윈도우10

 

안녕하세요.
하기와 같이 피벗테이블에서 특정 피벗필드를 필터항목에 넣고 특정 아이템항목만 필터의 체크를 해제하고, 나머지는 모두 체크가 된 상태로 운영하고자 합니다만, 매일 아이템 항목이 추가되어서 그럴때 마다 추가된 부분은 체크가 해제된상태여서요.

궁금한 부분은 우선 필터의 체크를 모두 선택 상태로 하고, 특정 2가지 아이템만 체크해제 하고 싶은데,
하기와 같이 for문으로 모두 체크선택을 만들어서 잘 작동은 합니다만, 항목이 수십가지여서 너무 속도가 느려서요...
체크를 모두 선택하는 좀 더빠른 구문이 있을지 문의드립니다.

With Worksheets("pivot1").PivotTables("pv1").PivotFields("gaikangouki")
i = .PivotItems.Count

For n = 1 To i

.PivotItems(n).Visible = True

Next
.PivotItems("(blank)").Visible = False
.PivotItems("").Visible = False

End With

회원등급 : 열매2단계
포인트 : 1456 EP
총질문 : 79 개 (마감율 : 66%)
채택답변 : 2 개
전체 4

  • 2021-09-17 06:37

    유익한 정보 감사합니다


  • 2021-09-14 13:54
    With Worksheets("pivot1").PivotTables("pv1").PivotFields("gaikangouki")
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    i = .PivotItems.Count
    
    For n = 1 To i
    
    .PivotItems(n).Visible = True
    
    Next
    .PivotItems("(blank)").Visible = False
    .PivotItems("").Visible = False
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
    
    End With

    이벤트랑 계산 모드만 바꾸면 될 것 같습니다


  • 2021-09-14 15:21

    답변 감사합니다. 물론 이벤트, 계산모드 추가해서 시험해봤습니다만, 피벗이 수십개, ITEM이 수십개여서 속도가 느린것은 비슷하더라고요... FOR문을 타지않고 체크를 모두 VISIBLE로 하는 방법이 혹시 있을까요.


전체 4,070
번호 카테고리 제목 작성자 작성일 추천 조회
4054 함수/공식
New vlookup 함수 관련하여 질문한가지 드립니다 ㅠㅠ 첨부파일 (4)
naver_6153175682f77 | 22:28 | 추천 0 | 조회 9
naver_6153175682f77 22:28 0 9
4053 VBA
New 동일한 포멧의 여러 엑셀파일에서 특정 위치의 값들을 추출하여 하나의 엑셀로 만들고 싶습니다. (1)
Brian | 18:14 | 추천 1 | 조회 22
Brian 18:14 1 22
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 | 조회 31
kms1670 2021.09.27 0 31
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