로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
셀서식(표시형식) 아별님 복사관련해서 문의 사항이 있습니다 [7]
아별님 헬프요~ 조건가져오기 및 정렬 [3]
엑셀일반 아별님 큰일 났습니다.ㅠㅠ [1]
아별툴관련질문 안녕하세요.. abyul툴 옆에 이상한 버튼이 하나 생겼어요... [1]
엑셀왕초보 [1]
체크하면 돈이 자동으로 옆에 써지는 함수 [2]
배열수식 엑셀의 신님께 질문드립니다. _ 배열수식으로 데이터 왼쪽 정렬로 표시하기 [3]
VBA sub과function차이 [4]
도움 요청합니다 [2]
엑셀일반 데이터 유효성 검사질문입니다. [4]
엑셀일반 엑셀 숨겨진데이터에 맞춰서 내용붙여넣기 방법문의요^^ [3]
안녕하세요 엑셀 기능 중에..
엑셀수식 기본적인 질문인데 답변부탁드립니다. - 십원(10원) 단위 절사 방법 [1]
기타 이건 그냥 도서에 관한 질문입니다. [3]
차트에서 레이블의 숫자를 교체하는 법 [2]
엑셀에서 혹시 이런 황당한 경험 있으신지요;; [3]
컴퓨터를 바꿨습니다. 기존 데이터를 new pc로 옮겼는데 [3]
엑셀일반 일일단위로 순위갱신되는 인터넷 참조 시트 만들기 질문입니다. [2]
아별님, 데이터 통합방법을 모르겠습니다~ [2]
엑셀수식 어떤 함수를 써야할 지 모르겠어요, 도와주세요! [1]
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