로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
피벗테이블 피벗테이블에 매크로 이용해서 사진 삽입하기
피벗테이블 피벗테이블에서 (비어있음)을 보이지 않게 할 수 있나요?
피벗테이블 피벗테이블을 이용한 판매일보 관리
피벗테이블 피벗에서 중복값을 하나의 숫자로 판단하여 표기하는 방법 [3]
피벗테이블 피벗테이블 날짜 버튼 생성에 대한 문의 [2]
pivot 기본 수식 질문이요 _ 피벗테이블을 사용하면 간단히 해결되는 경우 [2]
피벗테이블 피벗테이블 정렬 문의입니다 [4]
피벗테이블 피벗테이블 계산 필드 계산문제ㅠㅠ [2]
pivot 기본 질문 드려요 [2]
pivot 기본 피벗보고서에 있는 데이터 가져오기 [3]
pivot 기본 피벗 기능 중 설문데이터 취합 [1]
피벗테이블 엑셀 문의 _ 교육 이수 현황 피벗테이블로 요약하기 [1]
피벗테이블 Vlookup 에서 혼동이 와 문의드려요~ [11]
피벗테이블 Pivot [11]
피벗테이블 피벗 통합 문의 드려요~~ [11]
피벗테이블 피벗테이블 옵션 [3]
피벗테이블 함수 관련 질문 드립니다. _ 피벗테이블로 요약하기 기초 [1]
pivot 다중범위통합 ㅠㅠ 할수없이 _ 피벗테이블 다중 통합 범위 [4]
피벗테이블 피벗테이블 질문입니다... [1]
피벗테이블 질문하나 더 올립니다 [6]
![[레벨:4]](http://abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1455point (1%), 레벨:4/30"){kind=icon}
thoi
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141779point, 레벨:30/30"){kind=icon}
아별
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