로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
SUMIF에 범위를 주고 싶습니다. [1]
엑셀일반 혹시 입력된 데이터숫자 사이에 - << 이걸 집어 넣을수 잇나요? [1]
엑셀일반 빠른실행도구모음 자동숨김 해제 [2]
엑셀 문의드립니다. [2]
엑셀일반 일련번호의 중간 값만 올리는 함수가 궁금합니다. [2]
여러 시트가 있는 파일을 작업하다보면 옆 시트에 맘대로 셀에 색깔이 들어감. [1]
기타 vlookup 관련하여 질문드립니다. [1]
차트 막대 그래프에서 질문드립니다. [1]
VLookup Vlookup으로 하이퍼링크를 땡겨오고 싶습니다. [2]
power 공식 관련 [5]
엑셀수식 조건에 맞는 값들을 한 셀 안에 ,(콤마) 붙이면서 나열하는 방법은? [3]
엑셀일반 줄바꿈을 나누기 [1]
SUMIF 해당조건에 맞는 월사용액 구하기 [2]
피벗테이블 피벗테이블 날짜 버튼 생성에 대한 문의 [2]
VBA 오늘도 질문!^^있습니다.
엑셀에서 뒤에 있는 숫자로 정렬하는 방법좀..ㅠㅠ [1]
엑셀일반 도대체 외부연결 값은 통합문서 어디에 저장이 될까요? [2]
엑셀수식 해당범위내의 소문자 개수 세기! [2]
질문입니다. 아별툴하고는 상관없다능. [2]
pivot 기본 피벗보고서에 있는 데이터 가져오기 [3]
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