| 날짜 | 2008-01-02 |
| ||
| 취급일 | 2008-01-02 | 취급월 | 200801 | |
| 담당자 | 영업실적 | 담당자 | 영업실적 | |
| 강수경 | 5,000,000 | 강수경 | 5,000,000 | |
| 구민주 | 20,000,000 | 구민주 | 20,000,000 | |
| 김남수 | 10,000,000 | 권민수 | 15,000,000 | |
| 김지영 | 25,000,000 | 김남수 | 10,000,000 | |
| 서경애 | 15,000,000 | 김대식 | 30,000,000 | |
| 손종수 | 30,000,000 | 김지영 | 25,000,000 | |
| 손지현 | 15,000,000 | 박진수 | 5,000,000 | |
| 양민수 | 15,000,000 | 서경애 | 15,000,000 | |
| 이희문 | 7,000,000 | 손경민 | 70,000,000 | |
| 정순임 | 20,000,000 | 손종수 | 30,000,000 | |
| 최지애 | 10,000,000 | 손지현 | 15,000,000 | |
| 함정식 | 30,000,000 | 양민수 | 15,000,000 | |
| 총합계 | 202,000,000 | 이희문 | 7,000,000 | |
| 정순임 | 20,000,000 | |||
| 최지애 | 10,000,000 | |||
| 함정식 | 30,000,000 | |||
| 총합계 | 322,000,000 |
위와같이 엑셀로 두개의 피벗테이블을 만들었는데요~
날짜라는 부분을 눌르면 자동으로 피벗테이블이 날짜에 맞춰서 변경되게 매크로를 작성하고 싶은데요~
예를 들어 검색날짜가 2008-1-2일이면 첫번째 피벗은 2008/1/2일의 날짜 데이터로 변경되고
두번째 피벗은 해당월인 1월로 변경되고~이런식으로 매크로를 작성하고 싶습니다
고수님들 좀 부탁드립니당^^ 내공있음
답변자님,
정보를 공유해 주세요.
원본데이타에
1) "년월" 열을 을 추가하고
2 ) 페이지(또는 필터)에 년도 > 월도 > 일도 를 추가하여 만들면 가능합니다.
| A | B | C | D |
| 1 | 날짜 | 성명 | 판매 | 년월 |
| 2 | 2008-01-04 | 강수경 | 5,000,000 | 2008-01 |
| 3 | 2008-01-10 | 구민주 | 20,000,000 | 2008-01 |
| 4 | 2008-01-16 | 김남수 | 10,000,000 | 2008-01 |
| 5 | 2008-01-22 | 김지영 | 25,000,000 | 2008-01 |
| 6 | 2008-01-28 | 서경애 | 15,000,000 | 2008-01 |
| 7 | 2008-02-03 | 손종수 | 30,000,000 | 2008-02 |
| 8 | 2008-02-09 | 김지영 | 25,000,000 | 2008-02 |
| 9 | 2008-02-15 | 서경애 | 15,000,000 | 2008-02 |
| 10 | 2008-02-21 | 손종수 | 30,000,000 | 2008-02 |
D2=TEXT(A1,"YYYY-MM") 후 아래로 복사
3)
Sub Macro1()
Dim strDate, strYYMM As String
Dim datDate As Date
Application.ScreenUpdating = False
datDate = Range("h1").Value
strDate = Format(datDate, "yyyy-mm-dd")
strYYMM = Format(datDate, "yyyy-mm")
Range("A1").Select
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("날짜").ClearAllFilters
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("날짜").CurrentPage = strDate
ActiveSheet.PivotTables("피벗 테이블2").PivotFields("년월").ClearAllFilters
ActiveSheet.PivotTables("피벗 테이블2").PivotFields("년월").CurrentPage = strYYMM
Application.ScreenUpdating = True
End Sub
2008.01.16.
-
채택
질문자가 채택한 답변입니다.
UP이 많은 답변일수록 사용자들에게 더 많이 노출됩니다.
