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

피벗테이블

작성자

칭구

작성일

2021-05-17 14:14

조회

2797

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,476

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

공지사항	문서서식	⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (197) 오빠두엑셀 \| 2021.10.28 \| 추천 310 \| 조회 34977	오빠두엑셀	2021.10.28	310	34977
78431	VBA	New IF 조건문 기초 질문 드립니다. (4) 답변완료 neoburi \| 00:46 \| 추천 0 \| 조회 73	neoburi	00:46	-	73
78428	기능/도구	New 보이는 범위의 셀로만 붙여넣기하는 법 (2) 유도연 \| 2025.04.29 \| 추천 0 \| 조회 90	유도연	2025.04.29	-	90
78424	함수/공식	New 생년월일 6자리로 나이 계산 어떻게 하나요? (7) 망나 \| 2025.04.29 \| 추천 0 \| 조회 98	망나	2025.04.29	-	98
78421	함수/공식	New INDEX + MATCH 함수 문의 (2) 박상선 \| 2025.04.29 \| 추천 0 \| 조회 93	박상선	2025.04.29	-	93
78420	함수/공식	New 여러시트 중에 같은내용을 찾기 (1) 박석철 \| 2025.04.29 \| 추천 0 \| 조회 76	박석철	2025.04.29	-	76
78419	문서서식	New 크기가 다른 셀에서의 필터 걸기 부탁드립니다 ! (3) 답변완료 Aberdeen \| 2025.04.29 \| 추천 0 \| 조회 64	Aberdeen	2025.04.29	-	64
78418	함수/공식	New [퀴즈] 텍스트 압축/변형하기 (8) 마법의손 \| 2025.04.29 \| 추천 0 \| 조회 123	마법의손	2025.04.29	-	123
78416	VBA	New 시트보호된 상태에서 매크로 작동시 Range 클래스 중 Insert 메서드에 오류가 있습니다. (1) jihye**** \| 2025.04.29 \| 추천 0 \| 조회 54	jihye****	2025.04.29	-	54
78414	파워쿼리/피벗	New 다른 엑셀 파일에서 필요한 값만 불러오는 방법 망그러진나나 \| 2025.04.29 \| 추천 0 \| 조회 63	망그러진나나	2025.04.29	-	63
78413	함수/공식	New 경과주 구하는 수식 문의 (1) 엑셀렙업용 \| 2025.04.29 \| 추천 0 \| 조회 63	엑셀렙업용	2025.04.29	-	63
78411	문서서식	New 숫자 문자인식 숫자변환하는 법 (5) 패션피플 \| 2025.04.29 \| 추천 0 \| 조회 75	패션피플	2025.04.29	-	75
78410	VBA	New [매크로관련] 특정셀 자동증가하며, 연속출력할수 있을까요? (5) 답변완료 박병호 \| 2025.04.29 \| 추천 0 \| 조회 88	박병호	2025.04.29	-	88
78408	문서서식	New 숫자 서식 변경하기 (3) 답변완료 에그셀 \| 2025.04.29 \| 추천 0 \| 조회 65	에그셀	2025.04.29	-	65
78407	기능/도구	New 원드라이브 MICROSOFT 365 사용중 공동작업시 필터 (1) 록키발보아 \| 2025.04.29 \| 추천 0 \| 조회 58	록키발보아	2025.04.29	-	58
78402	함수/공식	New 괄호안의 시간:분 데이터를 분으로 합산하는 방법 질문드립니다. (1) 답변완료 nams \| 2025.04.28 \| 추천 0 \| 조회 69	nams	2025.04.28	-	69
78400	함수/공식	New 2차배열에서 countif (9) 답변완료 라면이가좋아 \| 2025.04.28 \| 추천 0 \| 조회 92	라면이가좋아	2025.04.28	-	92
78399	함수/공식	New 한달의 마지막주 스케쥴 작성시 전주까지의 휴무 누적 합계 구하는 방법이 궁금합니다. (3) 쭈누 바라기 \| 2025.04.28 \| 추천 0 \| 조회 55	쭈누 바라기	2025.04.28	-	55
78398	VBA	New VBA 매크로 여러 엑셀 파일에서 사용 (1) shhhha \| 2025.04.28 \| 추천 0 \| 조회 86	shhhha	2025.04.28	-	86
78396	함수/공식	New 직원별로 근태 합계를 확인하고 싶어요 (12) 답변완료 배진희 \| 2025.04.28 \| 추천 0 \| 조회 118	배진희	2025.04.28	-	118
78395	함수/공식	New 특정 단어를 포함한 행 골라내는 방법에 대해 문의드립니다. (3) 답변완료 mmm1010 \| 2025.04.28 \| 추천 0 \| 조회 78	mmm1010	2025.04.28	-	78
78392	함수/공식	New 도와주세요... ( 특정값에 해당하는 반 번호 찾아 목록만들기) (6) 김동생 \| 2025.04.28 \| 추천 0 \| 조회 84	김동생	2025.04.28	-	84
78389	기능/도구	New 오빠두LIVE 196회 - 엑셀 프로젝트 관리 _ 일,주 바꾸는법 (1) 일류 \| 2025.04.28 \| 추천 0 \| 조회 73	일류	2025.04.28	-	73
78387	함수/공식	New 엑셀 관련 질문입니다. SUM과 IFERROR 입니다 ㅠ (6) 류 \| 2025.04.27 \| 추천 0 \| 조회 119	류	2025.04.27	-	119
78382		New Excel 추세선 이상 (2) eagle \| 2025.04.27 \| 추천 0 \| 조회 89	eagle	2025.04.27	-	89
78381	함수/공식	New 같은 이름 N 번째 데이터 (14) 답변완료 박정호 \| 2025.04.27 \| 추천 1 \| 조회 124	박정호	2025.04.27	1	124
78380	함수/공식	New On Error Resume Next 문구를 삽입하는 위치는? (2) 답변완료 GEEM \| 2025.04.27 \| 추천 0 \| 조회 94	GEEM	2025.04.27	-	94
78376	함수/공식	New 지역별 증감금액 확인 (3) 답변완료 충무공 \| 2025.04.26 \| 추천 0 \| 조회 86	충무공	2025.04.26	-	86
78374	함수/공식	New index를 활용한 조건에 맞는 금액을 찾는 방법 (4) 뚜둥뚜둥 \| 2025.04.26 \| 추천 0 \| 조회 106	뚜둥뚜둥	2025.04.26	-	106
78372	기능/도구	New 표서식 차이 문의 (2) 답변완료 hossang**** \| 2025.04.25 \| 추천 0 \| 조회 74	hossang****	2025.04.25	-	74
78370	피벗테이블	New (피벗테이블) 2024년 2025년 판매 TOP10 비교데이터 (13) 패션피플 \| 2025.04.25 \| 추천 0 \| 조회 109	패션피플	2025.04.25	-	109