Excel & VBA---Brain Training

UserForm을 테이블의 상태를 보고 만들고,지능을 심어주기

우선 쌤플 테이블을 하나 만들자.. 아래의 프로시져를 실행하면..

Sub makeProblems()
Dim iRow As Integer
With Worksheets.Add
    .Range("A1").Resize(, 6) = _
		Array("일자", "상품", "분류", "단가", "판매수량", "금액")
    For iRow = 2 To 1000
        .Range("A" & iRow).Resize(, 6) = _
				Array(DateSerial(2014, Int(Rnd() * 12) + 1, _
				Int(Rnd() * 30) + 1), _
				String(3, Chr(Int(Rnd() * 10) + 65)), _
				(Chr(Int(Rnd() * 5) + 65)), _
				Application.Round(Int(Rnd() * 100000) + 10000, -2), _
				Int(Rnd() * 100) + 10, _
				 "=RC[-2]*RC[-1]")
                                             
                                    

    Next
    .UsedRange.Columns.AutoFit
End With
End Sub

와 같이 만들어진다
위의 수식에서 RC타입의 주소를 사용하면 문자열속에서 수식을 작성할때
편리하다는 점을 챙기시고..
같은 열내에서 현재 수식이 입력되는 셀에서 열방향으로 -2 오프셋 한셀값과
-1 오프셋한 셀값을 곱하기

이것을 UserForm을 사용하기전에 1월 부터 12월까지 집계표를 만들어 보시기 바란다
물론 형식은 마음대로..
회사의 부장이나 과장이 형식주고 해오라고 하면 여러분은 초급사원
형식은 알아서 해오라고하면 상사가 이미 당신을 신뢰하는 것..
그러니 양식을 주셔야지??!라고 하면 인턴사원인 셈
엑셀은 단순한 표나 주어진대로 만들라고 제공된 것이 아니다
창의적으로 활용하라고 있는것!!

어떤 분석을 하던 정렬은 기본이다
주어진 테이블에서 정렬을 먼저 작업으로 한다
물론 주어진 테이블의 유효성의 검사가 기본 첫 단계이지만
이것은 생략하고..
정렬을 첫작업으로 삼아라
언젠가 ERP에서 나온 원본이라고 믿거라하고 정렬을 하지 않고 했다가..
날짜가 뭉텅이로 분석대상에서 빠진 것을 알게 된 적이 있다