로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
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
새 창으로
선택한 기호
조건에 따른 if 함수 사용법 질문 [4]
아별 엑셀 툴에 대해 여쭙니다. [1]
VBA 몇가지 질문들 [8]
엑셀수식 엑셀 데이터 선택을 통한 차트 자동 업데이트 [1]
SUMIF 해당조건에 맞는 월사용액 구하기 [2]
서식을 복사하는데 있어서 질문입니다. [2]
VBA 오늘도 질문!^^있습니다.
엑셀수식 여러셀을 지정하여 다른 시트에서 같은 값 찾기 [3]
엑셀 문의사항 올립니다. [1]
피벗테이블 피벗테이블 날짜 버튼 생성에 대한 문의 [2]
차트 추세선 시작점, 그래프 시작과 맞추는 법 [2]
엑셀일반 부분합 질문있습니다. [2]
안녕하세요 ~ 전 생산관리를 그저께부터 갑자기 맡게 되었는데요..기존 담당자가 갑자기 그만두게 되었는데, 기존파일이 손상되서 뭐가 잘못되었는지 모르겠어요 ㅠㅠ 계속 데이타가 틀리구, 함수가 걸려있는데 이해가 안되네요..좀 도와주세요 ㅠㅠ [1]
엑셀일반 엑셀 -- 표시 외 n함수를 왜쓸까요?? [5]
VBA 엑셀 vba 함수 질문드릴게요. [4]
피벗테이블사용시 항목수 초과 메세지 [1]
VLookup Vlookup으로 하이퍼링크를 땡겨오고 싶습니다. [2]
한개의 시트에서 다른 시트로 옮기는 문서????? [1]
엑셀일반 바닥글에 & 기호 넣기 문의. [3]
엑셀에서 동작에 따른 이벤트를 발생시킬 때... [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