로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
VBA 사진 매크로 질문입니다 ^^ [5]
UDF사용자정의함수 일괄 숫자 더하기에 대해 질문합니다. [8]
피벗테이블 피벗테이블 정렬 문의입니다 [4]
VBA 선택한 영역 랜덤 색 대해서 질문하겟습니다. [4]
VBA .Find find 문을 공부하던도중 문제하가잇어서 질문올립니다. [2]
VLookup 자동차세계산법 _ 등급이 있는 기준표를 VLOOKUP으로 참조하는 방법.. 00이상~00미만 : A [6]
엑셀일반 엑셀시트 암호 관련 질문입니다 [2]
아별님~~도와주세용... [2]
VBA 몇가지 질문들 [8]
엑셀일반 주소 텍스트 나누기 [3]
엑셀일반 사실 물어보기도 뭐한 질문이긴 한데요. 혹시나 같은 고민을 해보신 분이... [3]
엑셀일반 부분합 질문있습니다. [2]
함수 질문드립니다. (크거나 같은 값 중 가장 근접한 값 찾기) [2]
아뵬님 질문있습니다. [1]
엑셀일반 2010 엑셀로 작업 2003엑셀 시트 복사가 안되요 [1]
배열수식 배열수식_rank 질문 _ 2가지 조건으로 순위 정하기 [4]
VBA 엑셀 질문드립니다. [2]
배열수식 수식에 대해 문의드려요! [2]
엑셀일반 일정표를 하나 만들었는데 도와주세요(긴급)ㅠㅠ [1]
엑셀수식 OFFSET함수 수식 오류 문의 드립니다. [3]
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