1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

안녕하세요 아별님!

 

항상 아별툴 감사히 사용하고있습니다.

 

다름이 아니라

피벗테이블 사용시 "수주일"(날짜 항목)에서 날짜 필터의

이번달, 오늘 필터를

첨부파일처럼 버튼을 만들어서 띄워 두고싶은데...

 

방법 없을까요?

 

혹시 날짜 필터의 이번달, 오늘의 단축키가 있다면

알려주신다면 감사하겠습니다. ㅠㅠ

 

감사합니다.


댓글 '2'

profile

[레벨:30]아별

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

    '### 오늘 날짜로 필터링

    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



첨부

[레벨:4]thoi

2014.03.20 12:06:43
*.215.237.242

기록으로 해볼 생각을 못했네요!

답변 감사드립니다^^


잘 사용하겠습니다~~

문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)
List of Articles
번호 제목 글쓴이 날짜 조회 수
공지 공지 [공지] 아별닷컴의 엑셀 질문방 폐쇄합니다. 카페 질문방 이용하세요.. imagefile [레벨:30]아별 2015-04-23 41674