Excel & VBA---Brain Training
아래의 프로시져를 실행하면
<![CDATA[
Sub drawLines()
Const S_X As Single = 100
Const S_Y As Single = 200
Dim shtX As Worksheet
Set shtX = ActiveSheet
With shtX.Shapes
.AddLine _
S_X, S_Y, S_X + 50, S_Y
.AddLine _
S_X + 50, S_Y, S_X + 50 + 10, S_Y + 50
.AddLine _
S_X + 50 + 10, S_Y + 50, S_X + 50 + 10 + 50, S_Y + 50
.AddLine _
S_X + 50 + 10 + 50, S_Y + 50, S_X + 50 + 10 + 50 + 10, S_Y
.AddLine _
S_X + 50 + 10 + 50 + 10, S_Y, S_X + 50 + 10 + 50 + 10 + 50, S_Y
End With
End Sub
]]>
아래와 같이 선들이 연결된다
그냥 간단한 5개의 선을 연결한 것이다
문제는 이것을 아래와 같이 순환문을 사용하고
상하로 어떻게 하면 간단하게 위치를 바꿀수 있는지 연구해 보시기
바란다..
프로그래밍에서 이렇게 같은 패텬을 대칭으로 위치를 바꾸려면
간단하게 변수하나를 사용하면 되는 요령을 알아야 한다
프로그래밍은 주어진 하나의 패턴을 어떻게 반복하느냐를
연구하는 것이라고 생각하면 된다
위의 경우 반복을 하려면 ..어떤 선은 그냥 짤라버리는 것이
좋을 것이다
중복되는 선 하나를 일부러 표현 해 놓았다
고수님들이야 딱보면 알지만 초보님들은 궁리를 해야 할것이다
기본이 되는 패턴을 찾는것!!!
이런 선을 이용한 도형은 공정표를 그리던가,
정보를 도형으로 표현하고 싶을때
필수적으로 필요하니..관심있는 분들은 차근 차근 기초를
쌓아가는 것이 좋다
Braintraining_057.
