안녕하세요 엑셀피벗 필터해제 상태를 어떻게 알 수 있을까요?

피벗테이블

작성자

칭구

작성일

2021-05-17 14:14

조회

2788

Q2 값은 피벗의 필터부분입니다.

슬라이서로 모든 필터를 해제하여 전체선택 상태가 되면 슬라이서와 연동된 피벗의 필터부분이 (모두) 라고 뜨는데

이걸 감지하고 싶은 겁니다.

이 파일이 영문 OS 에서 돌아갈 때는 (모두) 를 (all) 로 써야하는건가요?

나아가 여러 나라에서 쓸 거라면 더 난감해 지네요 ^^;

다른 방식으로 피벗이 필터해제 된 상태임을 체크할 수 없을까요?

If Sheet20.Range("Q2").Value = "(all)" Then

MsgBox ("Select Subsidiary")

ElseIf Sheet20.Range("Q2").Value = "(모두)" Then

MsgBox ("Select Subsidiary")

End If

공감

0명

칭구

회원등급 : 4레벨

포인트 : 154 EP

총질문 : 6 개 (마감율 : 50%)

채택답변 : 0 개

게시글

전체 7

눈사람 님 6

2021-05-17 14:21

@칭구 님 필터가 해제된 상태니까

If .filtermode=false then

으로 하면 될 듯합니다.
- 칭구 님 작성자
  
  2021-05-17 14:32
  
  @눈사람 님 아 감사합니다. 그러면 피벗이름은 어떻게 써 줄까요?
  
  if pivot10.filtermode 이런 식으로 쓰면 될까요?
  - 눈사람 님 6
    
    2021-05-17 15:58
    
    @칭구 님 피벗 테이블은 지원이 안되네요. 짧은 지식으로 잘못된 답변 드려서 죄송합니다.
  - 눈사람 님 6
    
    2021-05-17 16:00
    
    채택된 답변
    
    @칭구 님 구글링을 해봤습니다.
    
    Sub ClearReportFiltering() '목적 : 보고서 필터 필드 삭제 '소스출처 : www.TheSpreadsheetGuru.com Dim 필드 As PivotField Set 필드 = ActiveSheet.PivotTables("PivotTable2").PivotFields("Fiscal_Year") '옵션1 : 이전 필터링 삭제 필드.ClearAllFilters '옵션2 : 보이는 모든 필터링 삭제 필드.CurrentPage = "(All)" End Sub
    
    이게 맞는 답변 같네요.
    
    칭구 님 작성자
    
    2021-05-18 00:37
    
    @눈사람 님 감사합니다!

오빠두엑셀 님 446

2021-05-17 16:52

@칭구 님 안녕하세요.

피벗 필드의 AllItemsVisible 속성을 사용하시면 됩니다.

아래 링크를 한번 참고해보세요.

https://docs.microsoft.com/en-us/office/vba/api/excel.pivotfield.allitemsvisible

명령문 예제는 아래 링크를 참고해보세요.

Private Sub TestPivotTable()
    Dim pvTable As PivotTable
    Set pvTable = ActiveSheet.PivotTables("PivotTable5")
 
    Dim pvField As PivotField
 
    For Each pvField In pvTable.PivotFields
        If Not pvField.AllItemsVisible Then
            MsgBox "PivotTable " & pvTable.Name & " is filtered."
            Exit For
        End If
    Next
End Sub

https://www.reddit.com/r/excel/comments/b34u6p/vba_check_if_pivot_table_has_any_filter/

칭구 님 작성자

2021-05-18 00:37

도움 감사합니다. ^^ 모든 문제의 해결책이 있는 오빠두 커뮤니티 이군요!

« VBA 파일 저장 시 에 중복 파일이 있으면 덮어쓰기 하고싶습니다.

조건 만족할때, sub()를 exit 하거나, worksheet 파일을 close 하도록 하는 VBA 명령어 문의 드립니다 »

목록보기

전체 18,458

번호	카테고리	제목	작성자	작성일	추천	조회
알림		[📚진짜쓰는 실무엑셀] IT/오피스 '1위' 베스트셀러! 엑셀 공부, 이 교재로 마스터하세요! (313) 오빠두엑셀 \| 2022.02.03 \| 추천 572 \| 조회 599136	오빠두엑셀	2022.02.03	572	599136

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 310 \| 조회 34865	오빠두엑셀	2021.10.28	310	34865
78396	함수/공식	New 직원별로 근태 합계를 확인하고 싶어요 (5) 배진희 \| 13:50 \| 추천 0 \| 조회 30	배진희	13:50	-	30
78395	함수/공식	New 특정 단어를 포함한 행 골라내는 방법에 대해 문의드립니다. (3) 답변완료 mmm1010 \| 13:36 \| 추천 0 \| 조회 23	mmm1010	13:36	-	23
78392	함수/공식	New 도와주세요... ( 특정값에 해당하는 반 번호 찾아 목록만들기) (1) 김동생 \| 13:02 \| 추천 0 \| 조회 17	김동생	13:02	-	17
78389	기능/도구	New 오빠두LIVE 196회 - 엑셀 프로젝트 관리 _ 일,주 바꾸는법 (1) 일류 \| 09:21 \| 추천 0 \| 조회 37	일류	09:21	-	37
78387	함수/공식	New 엑셀 관련 질문입니다. SUM과 IFERROR 입니다 ㅠ (6) 류 \| 2025.04.27 \| 추천 0 \| 조회 84	류	2025.04.27	-	84
78382		New Excel 추세선 이상 (2) eagle \| 2025.04.27 \| 추천 0 \| 조회 61	eagle	2025.04.27	-	61
78381	함수/공식	New 같은 이름 N 번째 데이터 (14) 박정호 \| 2025.04.27 \| 추천 1 \| 조회 96	박정호	2025.04.27	1	96
78380	함수/공식	New On Error Resume Next 문구를 삽입하는 위치는? (2) GEEM \| 2025.04.27 \| 추천 0 \| 조회 65	GEEM	2025.04.27	-	65
78376	함수/공식	New 지역별 증감금액 확인 (3) 답변완료 충무공 \| 2025.04.26 \| 추천 0 \| 조회 65	충무공	2025.04.26	-	65
78374	함수/공식	New index를 활용한 조건에 맞는 금액을 찾는 방법 (4) 뚜둥뚜둥 \| 2025.04.26 \| 추천 0 \| 조회 76	뚜둥뚜둥	2025.04.26	-	76
78372	기능/도구	New 표서식 차이 문의 (2) 답변완료 hossang**** \| 2025.04.25 \| 추천 0 \| 조회 54	hossang****	2025.04.25	-	54
78370	피벗테이블	New (피벗테이블) 2024년 2025년 판매 TOP10 비교데이터 (13) 패션피플 \| 2025.04.25 \| 추천 0 \| 조회 76	패션피플	2025.04.25	-	76
78369	구글시트	New 엑셀을 구글 시트와 연동하는 법 (1) 물만둡 \| 2025.04.25 \| 추천 0 \| 조회 58	물만둡	2025.04.25	-	58
78368	함수/공식	New 곱하기 계산시 0일때도 계산하고 싶습니다 (2) 또야 \| 2025.04.25 \| 추천 0 \| 조회 71	또야	2025.04.25	-	71
78366		New 엑셀 일정 범위 내 최대값 가져오기 함수식 문의 (조건 있음) (3) peac**** \| 2025.04.25 \| 추천 0 \| 조회 54	peac****	2025.04.25	-	54
78358		New 파워포인트 글씨 굵게 (1) 쫄면김밥 \| 2025.04.24 \| 추천 0 \| 조회 31	쫄면김밥	2025.04.24	-	31
78354	문서서식	New 구글스프레드시트 숨기기 질문이에요! (1) Aberdeen \| 2025.04.24 \| 추천 0 \| 조회 54	Aberdeen	2025.04.24	-	54
78352	피벗테이블	New 여러 피벗테이블 하나의 슬라이서로 동작과 테이블간 관계 만들기 문의 (3) 답변완료 이미자 \| 2025.04.24 \| 추천 0 \| 조회 74	이미자	2025.04.24	-	74
78347	대시보드	New 대시보드 결과 값끼리 열 비교하기 (4) 아네모네 \| 2025.04.24 \| 추천 0 \| 조회 69	아네모네	2025.04.24	-	69
78346	함수/공식	New 요일별 색상 구분 (4) 슈토파이터 \| 2025.04.24 \| 추천 0 \| 조회 79	슈토파이터	2025.04.24	-	79
78344	VBA	New 첫 셀에만 수식입력하면 열 전체가 자동으로 수식 적용되는 기능 푸는방법 문의 (6) 답변완료 나라달 \| 2025.04.24 \| 추천 0 \| 조회 101	나라달	2025.04.24	-	101
78342		New 만년 달력 관련 도와주세요.ㅠㅠ 주식회사 티에프티 \| 2025.04.24 \| 추천 0 \| 조회 50	주식회사 티에프티	2025.04.24	-	50
78341	함수/공식	New sumproduct 조건에 관해서 (1) 쪼쪼 \| 2025.04.24 \| 추천 0 \| 조회 77	쪼쪼	2025.04.24	-	77
78340	피벗테이블	New 다중영역 피벗테이블에서 영역을 표만들기로 적용하는 경우 오류발생, 원인을 모르겠습니다 (2) S지니 \| 2025.04.24 \| 추천 0 \| 조회 47	S지니	2025.04.24	-	47
78339	함수/공식	New 엑셀이느려집니다 ㅠ 자동견적서만드는데 VLOOKUP을 너무많이써서그런가 원인좀 봐주세요 (2) 리더실드 \| 2025.04.24 \| 추천 0 \| 조회 86	리더실드	2025.04.24	-	86
78335		New 인쇄시 양식을 배경으로 깔 수 있을까요? (1) emma6094 \| 2025.04.24 \| 추천 0 \| 조회 34	emma6094	2025.04.24	-	34
78332	기능/도구	New 고수님들 질문들립니다. GPT 엑셀 연동 으로 데이터수집 관련 (2) 왕뚜껑 \| 2025.04.23 \| 추천 0 \| 조회 80	왕뚜껑	2025.04.23	-	80
78330	함수/공식	New 15분마다 쌓이는 데이터를 1시간 단위로 합산해서 정리하고싶어요.. (3) sj \| 2025.04.23 \| 추천 0 \| 조회 113	sj	2025.04.23	-	113
78327	VBA	New 엑셀 VBA 챌린지 2일차, 값바꾸기 버튼 클릭해도 안 바뀌는 이유 (8) Babelfish \| 2025.04.23 \| 추천 0 \| 조회 65	Babelfish	2025.04.23	-	65
78326	함수/공식	New 여러 열의 데이터가 중복될때 표시되는 조건부서식을 할때요 (2) 답변완료 윷즈 \| 2025.04.23 \| 추천 0 \| 조회 75	윷즈	2025.04.23	-	75