로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
배열수식 배열수식_rank 질문 _ 2가지 조건으로 순위 정하기 [4]
VLookup 안녕하세요 아별님~ _ 환율 시트에서 특정일 환율 불러오기, 휴일을 고려 [2]
엑셀일반 중복값제거 [1]
엑셀일반 정렬2차 문의 [2]
엑셀일반 안녕하세요 아별님 질문 드립니다 [2]
엑셀일반 정렬에 대해 문의 드립니다. [2]
엑셀일반 허...날라갔네요...ㅠㅠㅠ색깔이 날아갔어요...ㅠㅠㅠ [1]
엑셀일반 액셀 표시 질문이요~~ [2]
셀서식(표시형식) 서식이 걸려있는곳에 셀병합시 서식값 나올수 있는 방법. [4]
엑셀일반 데이터 유효성 검사질문입니다. [4]
아별툴관련질문 숫자서식 설정 단축키 [1]
엑셀일반 줄바꿈을 나누기 [1]
셀서식(표시형식) 엑셀 형식 전환 [2]
셀서식(표시형식) 서식 질문욤 [1]
VBA 숫자 문자 비교검색 [2]
엑셀일반 countifs 관련 질문 [6]
아별툴관련질문 안녕하세요.. abyul툴 옆에 이상한 버튼이 하나 생겼어요... [1]
엑셀일반 셀 선택 시, 행 전체 하이라이트 [3]
VBA api에 대해서 [2]
엑셀일반 2교대 근무표 엑셀로 작성하려고 하는데 도와주세요
![[레벨: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