[3주] VBA 4주 완성 스터디 노트

1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!
(위쪽 카메라 버튼을 클릭해서 이미지를 삽입할 수 있습니다)

2. 이번 스터디에서 새롭게 알게되거나 유익했던 내용을 3가지로 요약해주세요!

가. 셀 값을 초기화하는 ClearRange 함수
나. 동적범위를 가져오는 DynamicRange 함수
다. Filter 함수를 VBA로 구현

3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.

강의 집중하랴, 코드 보고 따라 작성하랴 많이 힘들었지만, 하나씩 배우는 것에 대한 보람을 느낍니다.
강사님께서 말씀해주셨듯, VBA에 대한 초기학습은 당분간 반복적으로 따라하는 방법이 최선일 듯 합니다.

4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.

++미션 1. MyTextJoin 함수 만들기
Function MyTextJoin(Rng As Range, _ Optional Delimiter As String = ",")
Dim r As Range Dim Result As String For Each r In Rng If r.Value <> "" Then Result = Result & r.Value & Delimiter
End If Next MyTextJoin = Left(Result, Len(Result) - 1)

++미션 2. 동적범위 DynamicRange 함수 만들기
Function DynamicRange(WS As Worksheet, Column As String, Initrow As Long) As Range
Dim i As Long Dim Address As String i = WS.Range(Column & "1048576").End(xlUp).Row If i < Initrow Then i = Initrow Address = Column & Initrow & ":" & Column & i
Set DynamicRange = WS.Range(Address)
End Function

++미션 3. 필터링 함수 만들기
Sub FilterItems()
Dim GroupRng As Range Dim r As Range Dim FilterVal As String Dim i As Long Set GroupRng = DynamicRange(Sheet1, "A", 2) FilterVal = Sheet1.Range("E2").Value i = 2 For Each r In GroupRng If r.Value = FilterVal Then Sheet1.Range("G" & i).Value = r.Offset(0, 1).Value Sheet1.Range("H" & i).Value = r.Offset(0, 2).Value i = i + 1
End If Next
End Sub