로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
숨겨진 부분 빼고 보이는데로 복사는 알겠는데, 숨겨진 부분이 다른곳에 보이는데로 붙여넣기는 어떻게 하나요 [2]
엑셀파일 새창에서 열기 [2]
엑셀일반 주소 텍스트 나누기 [3]
엑셀수식 안녕하세요 질문 좀 드리겠습니다 [2]
엑셀일반 이중 데이터 유효성 검사에서 궁금한게 있습니다~
VBA .Find 랜덤 컨틀로바질문입니다.. [3]
기타 요청한 항목을 찾을 수 없습니다. (hhttp/1.0 404) _ 외부 연결 끊기, 업데이트하지 않도록 옵션 설정하기 [6]
VLookup 자동차세계산법 _ 등급이 있는 기준표를 VLOOKUP으로 참조하는 방법.. 00이상~00미만 : A [6]
엑셀일반 하이퍼 링크 추가 질문 [1]
현원자동표시 [1]
엑셀수식 여러가지 조건을 고려한 수식을 한 셀 안에 표시하기 [3]
엑셀일반 한셀에 값 [9]
배열수식 데이타 정열관련 질문 드립니다. _ offset과 배열 수식을 이용하여 최근 값을 순차적으로 갖고 오는 방법.. [3]
엑셀수식 (1년 전 당월~올해 전월 사용량) 합계의 월평균 구하기 [3]
아별님 질문이 있습니다. [2]
엑셀일반 중복 IF문 개념잡는법에 대한 질문 [4]
엑셀일반 경력 합산 [4]
VBA .Find find 문을 공부하던도중 문제하가잇어서 질문올립니다. [2]
엑셀에서 선을 연장하고 싶어요.. [4]
엑셀일반 한가지 질문요
![[레벨: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 "포인트:142053point, 레벨: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