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

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

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

[레벨:30]아별

2014.02.20 01:06

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



문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)