로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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개이상 조건값이 같을 때 해당값을 찾는 함수??? [1]
자동으로 계산할 수 있는 방법이 있나요? [2]
차트안의 데이타 자동 변경방법 알려주세요^^ [3]
이미지,도형 등 이미지 밀림 현상... [2]
작업 완료일 구하는 함수 중 일요일만 제외할 수 있나요? [2]
VLookup Vlookup 사용 시 수식이 걸려 있는 데이터의 #N/A 표시 해결 [1]
VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결
VBA 병합효과 [3]
다른시트에 조건부 수식 넣어서 합계 내는 법 [2]
ISERROR 건 입니다. [4]
엑셀 차트(표식이 있는 꺾은선형)에서 특정 data 에 색깔 표시 [5]
'근무일수를 소수점 월단위표기' 관련 질문 두번째 입니다~^^ [2]
excel vba 질문 드려요. [1]
구간값에 있는 data 갯수 구하는 법 (countif) [3]
엑셀일반 안녕하세요? 엑셀 데이터 정렬 질문있습니다. [2]
동일한 셀 내용을 찾아서 개수를 세주는 방법이... [3]
엑셀에서 구름마크 [2]
도형색깔을 시간에 따라 자동으로 변화게 하는법 [3]
2007에서 그래프 사용시 [2]
엑셀 웹 쿼리 질문드립니다. [6]
![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1455point (1%), 레벨:4/30"){kind=icon}
thoi
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨: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