VBA 유튜브 학습기 3 - For, For each반복문 (feat. 파워 문과 기획자)
유튜버 엑사남 님 강의 3강 듣고 왔습니다!
걱정했던 것과 달리 아직은 할 만합니다.
따라서 코드를 작성할 때는 파워 납득인데, 막상 혼자 작성하려면 108 번뇌가 찾아오긴 하지만...
저는 아직 쪼렙이니까 일단 따라서 작성하고 이해하는 것만 해도 잘하는 거라고 정신 승리하고 있어요.🙄
3강에서 공부한 내용은 For~Next와 For Each ~ Next 반복문입니다.
코드를 작성하기에 앞서 짤막한 VBA 기본 지식 하나.
셀을 지정하는 방식은 두 가지입니다.(몇 개 더 있을지도 몰라요. 제가 아는 게 두 가지.....)
- Range("셀 주소")
- Cells(행 번호, 열 번호)
이 내용을 알아야 아래 내용이 손톱만큼이나마 더 이해가 빨리 되더라고요.
For ~ Next
1. 먼저 A열의 1행부터 9행까지. 즉, A1 셀부터 A9 셀까지를 1부터 9까지 숫자로 채우는 명령문입니다.
Sub V_number()
Dim i As Long
For i = 1 To 9
Cells(i,1) = i
Next
End Sub
Cells(i,1) = i 가 이 반복문의 핵심인데요. (제 마음대로 뽑은 핵심)
i 값. 즉, 행 번호는 For문을 돌 때마다 1부터 9까지 증가하고, 열 번호는 1로 고정됩니다.
열을 1열(A열)에 고정해 두고 행 번호만 하나씩 늘려가는 거죠.
언제까지?
행 번호가 9가 될 때까지.
그 상태에서 셀 안에 값은 뭘로 채우느냐? i 값으로 채웁니다.
즉, 그 셀의 행 번호로 채우는 거죠.
저렇게 코드를 작성하고 실행해 보면 이렇게 셀이 채워집니다.
신기하잖아....😍
2. 이번엔 행을 1행으로 고정해 두고, 열만 9번째 열까지 늘려가면서 값을 채웁니다.
Sub H_number()
Dim i As Long
For i = 1 To 9
Cells(1,i) = i
Next
End Sub
동작 원리는 위의 1번과 동일합니다.
다만 이번엔 행은 1행으로 고정해 두고, 열 값만 1부터 9까지 반복문을 도는 거죠.
코드를 작성하고 실행하면 아래와 같이 셀이 채워집니다.
중간에 과제를 내 주셔서 과제도 해 봤습니다.
[과제]
B2 셀부터 I9 셀까지 각각 각 행과 열의 값을 곱한 값이 계산돼 들어가게 하시오.(100점)
사실 이렇게만 내주셨으면 사경을 헤맬 뻔했는데, 힌트를 주시더라고요. 감사🙏
힌트를 듣고 작성해 봤습니다.
Sub gugudan_()
Dim i As Long
Dim j As Long
For i = 1 To 9
For j = 1 To 9
Cells(i, j) = i * j
Next
Next
End Sub
For i = 1 To 9 'i는 1부터 9까지 순환합니다.
For j = 1 To 9 'j는 1부터 9까지 순환합니다.
Cells(i,j) = i * j 'i는 행 번호가 되고, j는 열 번호가 됩니다. 셀 안의 값은 i와 j를 곱한 값으로 채웁니다.
대충 이렇게 코드를 작성하고 확신없이 긴가민가하면서 실행해 보니까
휴ㅋㅋㅋ
제대로 들어갔네요🤩
이게 뭐라고 너무 뿌듯하더라고요.
이미 머리에 약간 과부하가 온 것 같지만 For Each ~ Next 반복문도 마저 배워 봅니다.
For each
이렇게 대충 도형이 널부러져 있고, 이 도형들을 B1 셀의 왼쪽에 맞춰 정렬한 후에 도형의 컬러를 각각 다른 컬러로 바꿔 보는 예제입니다.
여기까지 들었을 때 두 가지 감정이 들었어요.
"와.........개어려워."
"엑셀에서 이게 된다고?"
궁금하니까 얼른 코드를 따라서 써 봅니다.
음... For ~ Next까지는 그래도 대애애애애충이라도 이해하면서 따라 적었는데 여기서는 그냥 눈이 휘둥그레져서 일단 따라 적기 바빴습니다.
지구에 선생님과 저 둘만 남겨진 기분.
중간에 멘붕 올 뻔했는데 For Each ~ Next만 기억하면 된다고 하셔서 다시 정신줄 잡고 진행해 봅니다.
Sub Shape_color()
Dim sh As Object
Dim lngC As Long '색상 값 변수
For Each sh In ActiveSheet.Shapes '현재 시트에 있는 도형들을 순환하라
lngC = lngC + 1 'For문을 돌 때마다 색상 값이 1씩 증가해 각 도형은 각기 다른 색상을 띈다
sh.Left = Range("B1").Left 'sh의 왼쪽의 위치는 B1 셀의 왼쪽의 위치와 같다
sh.fill.ForeColor.SchemeColor = lngC
Next
End Sub
네....
코드 옆에 주석 달아 놓은 대로 저런 내용의 코드라고 합니다.
핵심은 For Each ~ Next니까 대강 이해하고 실행해 봅니다.
짜라란
헐... 너무 신기해.👀
이런 엑셀의 신박한 기능들은 여직까지 모르고 살았다니 억울하기도 하고....(아직도 잘은 모름)
이제라도 알게 해 주신 엑사남 님께 감사한 마음도 들고 그랬습니다.
For Each ~ Next 구문에 대한 과제도 내주셨어요.
[과제]
위의 도형 정렬 및 컬러 채우기 결과값에 정렬된 도형들을 다시 G1 셀의 왼쪽에 맞춰 정렬하면서 각각이 가진 컬러값을 역순으로 바꾸시오. (500점)
이건 오히려 구구단보단 쉽게 느껴지더라고요.
잔머리로 살아온 짬이 있어서인지 글자 몇 개만 바꾸면 되겠구나 딱 감이 왔습니다.
컬러를 어떻게 다시 역순으로 바꾸는지에 대해서는 엑사남 님께서 힌트를 주셨어요.
힌트 없었으면 못 풀었음......
Sub Shape_Color()
Dim sh As Object
Dim lngC As Long
lngC = 6
For Each sh In ActiveSheet.Shapes
lngC = lngC - 1
sh.Left = Range("G1").Left
sh.Fill.ForeColor.SchemeColor = lngC
Next
End Sub
이렇게 코드를 약간 수정해 작성하고.
이번에도 확신 없이 떨리는 마음으로 실행해 봤습니다.
!!!!!!!!!!!!!!!!!!!!!!!
뿌듯
그 어떤 때보다 뿌듯했습니다.
이제 3강 들었는데 내일이면 세상에서 제일 복잡한 명령문을 작성할 수 있을 거 같고 그렇네요.
자존감 회복에 큰 도움이 되는 공부인듯?
저는 4강 들으러 가겠습니다.