로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2014.02.20 01:06:31 *.130.73.21
thoi님..
안녕하세요?
이번달은 회계감사와 결산으로 정신이 없어 답변이 늦었습니다.
일단..
그런 단축키는 없습니다.
이단..
방법은.. VBA를 사용해야할것 같네요..
만들어드리기엔 제가 시간도 없고..
매크로 기록을 이용해서 코드를 생성해보세요..
제가 시간이 별로 없어서 못 만들어드릴뻔하다가..
매크로 기록을 해보니.. 워낙 코드가 간단해서 간단히 만들어봤습니다.
자세한건 첨부파일을 참고하세요..
다운받기 : abyul.com_20140220_VBA_PvFiltering_1.xlsm
[ 해당 코드 ]
Option Explicit
Sub pvFilterToday()
'### 기존 필터링 해제
ActiveSheet.PivotTables("abyulPivot20140213101421").PivotFields("수주일"). _
ClearAllFilters
'### 오늘 날짜로 필터링
PivotFilters.Add Type:=xlDateToday
End Sub
Sub pvFilterThisMonth()
'### 이번달로 필터링
PivotFilters.Add Type:=xlDateThisMonth
2014.03.20 12:06:43 *.215.237.242
새 창으로
선택한 기호
엑셀값 자동산출하고 싶은데 순환참조가 걸리네여...
문의드립니다~ _DB에서 원하는 목록만 불러오기(고급필터) [1]
엑셀일반 글자수 세는 방법 질문입니다. [4]
재고관리에 대해 아별님께 도움을 구합니다, [1]
[문의드릴께요]엑셀 창끼리 alt+tab으로 전환이 안됩니다. [1]
엑셀일반 엑셀시트 암호 관련 질문입니다 [2]
엑셀 수식중에 =+HY/D7와 같은 =+수식의 의미가 무엇인가요? [1]
엑셀일반 엑셀 2010 인쇄 질문 [3]
엑셀일반 도대체 외부연결 값은 통합문서 어디에 저장이 될까요? [2]
엑셀일반 아별툴 적용 안됨
선그래프에서 연장선을 값으로 나타내고 싶어요.. [2]
엑셀에서 구름마크 [2]
구간값에 있는 data 갯수 구하는 법 (countif) [3]
엑셀일반 회계형이나 콤마(조건) 추가한 숫자형 서식의 가운데 정렬법? [3]
문의 드립니다. [2]
엑셀 웹 쿼리 질문드립니다. [6]
도형색깔을 시간에 따라 자동으로 변화게 하는법 [3]
셀 곱하기 [3]
pivot 다중범위통합 ㅠㅠ 할수없이 _ 피벗테이블 다중 통합 범위 [4]
고급필터 판매 자료 정렬 관련 질문드려요 _ 피벗테이블과 고급필터를 이용한 데이터 추출방법 [4]
thoi님..
안녕하세요?
이번달은 회계감사와 결산으로 정신이 없어 답변이 늦었습니다.
일단..
그런 단축키는 없습니다.
이단..
방법은.. VBA를 사용해야할것 같네요..
만들어드리기엔 제가 시간도 없고..
매크로 기록을 이용해서 코드를 생성해보세요..
제가 시간이 별로 없어서 못 만들어드릴뻔하다가..
매크로 기록을 해보니.. 워낙 코드가 간단해서 간단히 만들어봤습니다.
자세한건 첨부파일을 참고하세요..
다운받기 : abyul.com_20140220_VBA_PvFiltering_1.xlsm
[ 해당 코드 ]
Option Explicit
Sub pvFilterToday()
'### 기존 필터링 해제
ActiveSheet.PivotTables("abyulPivot20140213101421").PivotFields("수주일"). _
ClearAllFilters
'### 오늘 날짜로 필터링
ActiveSheet.PivotTables("abyulPivot20140213101421").PivotFields("수주일"). _
PivotFilters.Add Type:=xlDateToday
End Sub
Sub pvFilterThisMonth()
'### 기존 필터링 해제
ActiveSheet.PivotTables("abyulPivot20140213101421").PivotFields("수주일"). _
ClearAllFilters
'### 이번달로 필터링
ActiveSheet.PivotTables("abyulPivot20140213101421").PivotFields("수주일"). _
PivotFilters.Add Type:=xlDateThisMonth
End Sub