로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
버젼이 만료 되었네요.ㅡㅡ [1]
엑셀에서 컴퓨터시간 자동변경하기 [2]
엑셀에서 선을 연장하고 싶어요.. [4]
엑셀에서 복사할 때 행 및 열넓이까지 그대로 복사하는 방법 [7]
아별님 헬프요~ 조건가져오기 및 정렬 [3]
다량데이터 일부분씩 저장하기 [1]
도형회전각도 메크로 조정 [3]
엑셀2010 상태표시줄 클릭하면 [1]
이거 왜 안될까여?? ㅠㅠ(메크로관련) [2]
자동 필터의 기능을 사용하여 제작한 메크로를 대체 가능한가요? [2]
아별님, 데이터 통합방법을 모르겠습니다~ [2]
인쇄 미리보기후 생기는 점선 사라지게 하는방법 [7]
아별툴 감사히 잘 쓰고 있습니다.~~ [2]
행열 바꿈 질문좀 드릴께요~ [1]
일별 구매 현황에서 품목별 최근,최고,최저 단가구하기 [1]
엑셀왕초보 [1]
매크로 질문입니다. [2]
체크하면 돈이 자동으로 옆에 써지는 함수 [2]
재미난 엑셀 기능구연 가능?? [1]
[엑셀초보]질문 올립니다... [2]
![[레벨: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 "포인트:142726point, 레벨: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