로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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]
엑셀일반 엑셀값 중간에 : 삽입 _ 문자열 수식, 텍스트 가공하여 합치기 [3]
엑셀 질문드립니다. - 셀내용에서 한글은 모두 제거하는 방법- [6]
셀 크기에 맞게 그림 삽입 [2]
VBA vba질문하나 올리겟습니다.ㅠㅠ [3]
석차 등급을 구하는데요
석차구하기 [1]
엑셀일반 [엑셀 연결관련] 파일을 열때 "연결중:￦￦ ???￦ ???￦ ~ " 류의 메세지 [1]
엑셀2007에서 서식이 사라지는 에러 해결 방법 좀 알려주세요.ㅜㅜ [1]
한가지 더 질문!! 피벗테이블의 자동 데이터 영역 설정은??;; [4]
체크박스 클릭 시 자동 자료 입력관련 문의입니다. [1]
VBA 조건문을 변수화 하는 방법 [2]
왼쪽 정렬... 줄간격 질문 드립니다. [2]
조건값에따라 행추가(복사) 작업 [2]
VBA 랜덤 출력 관련 짧고 간결(?)한 3가지 질문입니다. _ 중복 없는 랜덤 패스워드 생성하는 방법.. [4]
피벗테이블 팁부탁드립니다. [1]
엑셀일반 안녕하세요? 엑셀 데이터 정렬 질문있습니다. [2]
제 업무 좀 도와주세요...피벗테이블 중복항목 제외 데이터 개수구하기 [4]
VBA 하이퍼링크셀 선택시 셀값을 오토필터 값으로 연결
셀서식(표시형식) 사용자 정의 셀서식에 대해서 [1]
![[레벨: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 "포인트:142083point, 레벨: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