Excel & VBA---Brain Training
아래의 코드를 실행하시면 아래의 그림과 같이 데이타가 만들어진다
각자 복사하여 실행시키시기 바란다
<![CDATA[
Sub CreateQSheet()
Dim rStart As Range
Dim iX As Integer, iY As Integer
Dim shtX As Worksheet
Dim iTemp As Integer
On Error Resume Next
Application.DisplayAlerts = False
Worksheets("Question").Delete
Application.DisplayAlerts = True
Set shtX = Worksheets.Add
ActiveWindow.DisplayGridlines = False
shtX.Name = "Question"
Set rStart = shtX.Range("A1")
For iX = 0 To 6
For iY = 0 To 9
If iX = 0 Then
If iY = 0 Then
rStart.Offset(iX, iY) = "이름"
Else
rStart.Offset(iX, iY) = iY
End If
Else
If iY = 0 Then
rStart.Offset(iX, iY) = _
Array("꼴뚜기", "문어", "낙지", "가물치", "넙치", "쭈꾸미")(iX - 1)
Else
iTemp = Int(Rnd() * 50) + 10
If iY = 1 Then
rStart.Offset(iX, iY) = _
iTemp & "/" & iTemp
Else
rStart.Offset(iX, iY) = _
iTemp & "/" & iTemp + Split(rStart.Offset(iX, iY - 1), "/")(1)
End If
End If
End If
Next
Next
With rStart.CurrentRegion
.Font.Name = "바탕체"
.Font.Size = 11
.ColumnWidth = 6
End With
End Sub
]]>
아래와 같은 문제의 데이타가 만들어진다
길동이에게 주어진 과제다
9번 데이타가 발생하였고
데이타는 999/3443 와 같이 되어있고 앞의 숫자는 당회에
발생한 숫자이고 뒤의 숫자는 매회발생에 대한 누계값이다
데이타를 이렇게 보아서는 뭐가 뭔지 알수가 없다
부장님이 빨리 분석하여 갖고 오란다..
아래와 같이 분석하여..
물론 계산기 옆에 놓고 두들기면서 수작업으로 하자는
소리가 아니다..
VBA코딩을 하여 해치운다
엑셀프로그래밍의 기본은 셀과 셀사이를 여하히
잘 돌아다니면서 작업을 하느냐 이다..
자꾸 실전을 하여야 하고 실전이 없으면 이런 시뮤레이션을
접해야 한다
그래야 졸지에 문제가 주어질때
거침없이 해 치운다
거뜬하게 풀수 있다고 하는 고참은 시간을 짧게 정해놓고
자판을 신나게 두들겨 보시면 스트레스 해소가 될것이다
무언가 빨리 자기것을 만들기 위하여서는
대상과 싸움을 해야 한다
도전정신으로 싸움을 하다보면 정이 들고 자기의 것이 된다
문제를 풀때는 전체의 윤곽을 어떻게 풀어나갈것인지
구상을 하는것이 중요하다
종이에 스케치를 해보면서 정리를 한번 한후
코딩에 들어가는 것이 좋다
Braintraining_032.
