Excel & VBA---Brain Training
아래의 프로시져를 실행하면
<![CDATA[
Sub createGrids()
Dim iRow As Integer, iCol As Integer
Const ROW_NUM As Integer = 10
Const COL_NUM As Integer = 10
With Range("B2")
For iRow = 1 To ROW_NUM
For iCol = 1 To COL_NUM
With .Cells(iRow, iCol)
.Value = Int(Rnd() * 100) + 1
.Font.Name = "맑은 고딕"
.Font.ColorIndex = 15
End With
Next
Next
.CurrentRegion.Columns.ColumnWidth = 3
End With
End Sub
]]>
와 같이 난수가 발생한 메트릭스가 생기고 이것을 읽어서
아래의 그림과 같이 만들기
즉 매크릭스의 각 열을 순환하면서 합계를 내고
합계를 낸후 평균값을 찾고
평균값과 각열의 합의 차이를
직선도형을 하나 그린후 평균보다 작은 것은 직선의 위쪽에
원도형을 하나씩 표현하고 직선을 원과 중간 일직선과 연결한다
이런 것을 잘 해야
엑셀의 챠트가 표현못하는 것을 스스로 만들어서 표현할수 있는
내공이 쌓일것이다
어휴..날씨가 더워지네!@@!
Braintraining_047.
