PivotTable...
Create PivotSheet With Class Module
피봇테이블 자동화를 10번에 걸쳐서 진행했다
피봇테이블의 자동화에 있어서 질문이 있으신분은 계속
질문하시기 바란다
피봇테이블은 우선 일단락짓고 나중에 또 기회나면 다시
다루도록 하자
이것만 계속하니까..피봇에 별로 관심이 없는 분들이 지루해한다
이번회에는 Pivot Sheet를 준비하지 않은 상태에서
Pivot Sheet를 자체도 같이 생성하는것을 같이 한다
이말은 Pivot Sheet는 시트상의 CheckBox등 UserForm의 콘트롤을
RunTime으로 생성하는 작업도 같이 하는셈이다
그리고 워크시트의 이벤트프로시져와 CheckBox콘트롤등의
이벤트프로시져를 어떻게 크래스모듈상에서 구현하는지를
살펴본다
다른 부서에 있는 꺽정이가 길동이가 사용하는 것을 보니
Pivot테이블 자동화시트를 잘 사용하고 있다..
나도 분석할 데이타시트가 있는데 방법이 없냐고 한다
이때 간단하게 전달하는 방법을 만들어 본다
꺽정이가 분석할 데이타시트를 갖고 있는 통합문서에
길동이가 사용하고 있던 크래스모듈시트를 하나만 옮기면
데이타테이블의 내용을 피봇테이블로 분석할수 있게 된다
꺽정이는 통합문서상에 분석하고자 하는
한장의 Datas시트만 있으면 된다
데이타시트의 내용은 열머리의 휠드명이 반드시 있어야 하고..
그리고 갖고 있는 분석하고자 하는 데이타시트의 이름을 Datas라고 짓고
일반 모듈시트에 아래의 구문만 입력하고 사용하면 된다
<![CDATA[
Public oPVT As clsPivot
Sub CreatePivot_New()
Set oPVT = New clsPivot
Set oPVT.DataSheet = Worksheets("Datas")
oPVT.CreatePivot
End Sub
]]>
다음 시간에는 좀 재미있는것으로 주제를 바꿔서
계속 하도록 하자
PivotTable_010.
