Excel & VBA---Brain Training
PivotTable|
페이지휠드를 추가하자
피봇테이블은 복잡하게 생각할 것이 없다
4개의 피벗휠드
하나는 행쪽에 가서 붙는 행필드
하나는 열쪽에 가서 붙는 열필드
그리고 좀더 분석을 입체적으로 하기 위하여 페이지를 나누는 페이지휠드
그리고 분석대상이 되는 휠드 가장 중요한 값휠드
행이나 열이나 페이지에 의하여 분석되는 즉 값필드
이 4개의 휠드에 갖고 있는 원시테이블의 내용을 분석하고 싶은데로
끌어서 놓으면 되는 것이다
이전페이지에서 만든 쌤플테이블의 구성이 피벗테이블의 페이지필드로
사용할 만한 휱드가 없었다..
페이지휠드를 구성할 필드를 하나더 삽입하는 구문이니 실행시켜보시기 바란다
<![CDATA[
Sub CreateDummyDatas()
Dim shtX As Worksheet, iX As Integer
With ActiveSheet.Range("A1")
.Resize(, 4) = Array("품목", "고객명", "판매갯수", "품질")
For iX = 1 To 1000
.Offset(iX) _
= Choose(Int(Rnd() * 8) + 1, "사과", "배", "귤", _
"바나나", "오렌지", "키위", "포도", "참외")
.Offset(iX, 1) _
= Choose(Int(Rnd() * 6) + 1, _
"오징어", "낙지", "쭈꾸미", "고등어", "꼴뚜기", "문어")
.Offset(iX, 3) _
= Choose(Int(Rnd() * 3) + 1, "상", "중", "하")
With .Offset(iX, 2)
.Value = Int(Rnd() * 10) + 1
End With
Next
.CurrentRegion.Columns.AutoFit
End With
End Sub
]]>
우선 자동이 아닌 손으로 ..
만들어진 원시테이블의 [품질]휠드를 피벗휠드의 [페이지]휠드로
끌어내어서 아래의 그림과 같이 피벗테이블을 만들어 보시고
피벗휠드의 [페이지휠드]는 피벗테이블의 어떤 개체를 움직이면
되는지 VBA로 피벗테이블을 만들어 보시기 바란다
아래의 그림과 같이 별도의 보고서를 만든다
BrainTraining_Pivot_6.
