Excel & VBA---Brain Training

PivotTable|
피벗개체를 사용하지 말고, 피벗효과

아래의 프로시져를 실행하면
연습용테이블이 나타난다

Sub createDummyDatas()
Const DATA_C As String = "TV,세탁기,에어컨,냉장고,청소기"
Dim iRow As Integer
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("DummyDatas").Delete
Application.DisplayAlerts = True
With Worksheets.Add
    .Name = "DummyDatas"
    .Cells(1).Resize(, 5) = Array("지역", "품명", "모델", "담당", "금액")
    For iRow = 2 To 1001
	    With .Rows(iRow)
	        .Cells(1) = Choose(Int(Rnd() * 4) + 1, _
	            "EAST", "WEST", "NORTH", "SOUTH")
	        .Cells(2) = Choose(Int(Rnd() * 5) + 1, _
	            "TV", "세탁기", "에어컨", "냉장고", "청소기")
	        .Cells(3) = Choose(Application.Match(.Cells(2), _
	            Array(Split(DATA_C, ",")), 0), "A", "B", "C", "D", "E") & _
	            "_" & Format(Int(Rnd() * 10) + 1, "000")
	        .Cells(4) = Choose(Int(Rnd() * 5) + 1, _
	        "AAA", "BBB", "CCC", "DDD", "EEE", "FFF")
	        .Cells(5) = Int(Rnd() * 1000) + 500
	        .Cells(5).NumberFormat = "###,###"
	    End With
    Next
    With .Cells
        .Font.Name = "맑은 고딕"
        .Font.Size = 10
        With .CurrentRegion.Rows(1)
            .Interior.ColorIndex = 6
            .Font.Bold = True
        End With
    End With
End With
End Sub

피벗테이블 개체로 풀어도 좋고
피벗테이블 개체를 사용하지 않고 풀어도 좋고..
여기에서는 피벗테이블을 사용하지 않고 순환문으로
처리 해보도록 한다
물론 서식도 하여야 한다
일부러 까다롭게 테두리 중간을 끊고 하였으니 그림과
똑같이 하시기 바란다
그래야 테두리서식의 내공이 쌓이니까!!