[3주차] 스터디 및 미션

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

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

- DynamicRange를 통해 sheets 사이에서 먼저 sheet를 지정하고 그 마지막 값만을 불러와,

다른 시트에서 이를 사용한다.

- 자신의 함수을 만들 수 있고, 지정가능한다는 것을 처음 알았다.

- clear function이 어디에 사용되고 왜 필요한지 알게 되었다.

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

VBA의 기초를 제대로 익히고 있다고 생각되어 너무 행복합니다. ^^ 감사합니다.

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

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)

End Function

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

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