[📌4주차] 스터디 멤버를 위한 다시보기 편집 영상 ( ~07.30 까지 )

@오빠두엑셀 님 시간은 늦었지만, 꼭 미션들 제출하고 싶어서 여기에라도 남깁니다.

4주동안 너무도 감사했습니다.

미국서부에서 토요일 새벽 5시마다, 너무도 즐거운 시간이었습니다.

감사하고, 결혼도 너무너무 축하드려요 ^^

감사합니다.

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

[3주차 이미지]

[4주차 이미지]

 

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

[3주차]

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

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

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

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

 

[4주차]

(1) Local에서 실행하는 순서들의 각 단계의 값들 앎으로 이를 이용한다.

(2) 코팅 작성시 소문자로 작성하여 오탈자 찾는 법

(3) 고유값을 만들기 위한 On Error Resume Next / On Error GoTo 0의 사용법

(4) 명령문을 테스트하고 잘 동작하면 함수화 하여, 다음에도 다시 사용할 수 있도록 한다.

(단, 함수를 만들면, 변수를 인수로 받아오기 때문에, Dim과 Set의 없애준다.)

(5) With 문을 이용하여 코팅의 가독성을 높인다.

 

 

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

Los Angeles에 살고 있는 엑린이 입니다. ^^
지난 4주간 너무도 행복했습니다.

다시금 앎의 즐거움을 샘솟게 해주셔서 감사합니다.

한국 토요일 오후9시면, 미국 서부는 토요일 새벽 5시 입니다.

너무도 즐거운 맘으로 새벽에 일어나 수업을 들었습니다.

VBA의 기초가 부족한 상태로 Macro 녹화기의 기능을 이용하다가, 기초를 알게 되면서,

그동안 사용하던 Macro들을 거의 다 수정하여 잘 쓰고 있습니다. 너무도 감사드려요 ^^

앞으로도 열심히 배우고 실행해 보겠습니다.

오빠두님 결혼을 축하드려요 ^^

늘 배려하는 마음으로 서로를 위해주면 좋은 결혼생활을 이어가실거라 소망합니다.

 

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

[3주차]

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

 

[4주차]

(미션 1 - 고유값을 자동으로 등록하는 목록상자 만들기)

Function UniqueTextJoin(Rng As Range, Optional Delimiter As String = ",")

Dim R As Range

Dim Coll As Collection

Dim v As Variant

Dim Result As String

 

Set Coll = New Collection

 

On Error Resume Next

For Each R In Rng

Coll.Add R.Value, R.Value

Next

On Error GoTo 0

 

For Each v In Coll

Result = Result & v & Delimiter

Next

 

Result = Left(Result, Len(Result) - Len(Delimiter))

 

 

UniqueTextJoin = Result

 

End Function

 

 

 

Sub AddValidation()

 

Dim Rng As Range

Dim UniqueRng As Range

 

Set Rng = Sheet1.Range("E2")

Set UniqueRng = DynamicRange(Sheet1, "A", 2)

 

 

Rng.Validation.Delete

Rng.Validation.Add xlValidateList, , , UniqueTextJoin(UniqueRng)

 

End Sub

 

 

[미션2 - 나만의 제품 등록 엑셀 프로그램 만들기]

Private Sub btnSubmit_Click()

 

Dim i As Long

i = Sheet1.Range("A1048576").End(xlUp).Row + 1

 

Sheet1.Range("A" & i).Value = Me.txtCategory.Value

Sheet1.Range("B" & i).Value = Me.txtProduct.Value

Sheet1.Range("C" & i).Value = Me.txtPrice.Value

 

MsgBox "제품을 등록하였습니다!"

 

Me.txtCategory.Value = ""

Me.txtProduct.Value = ""

Me.txtPrice.Value = ""

 

End Sub

 

Sub ShowForm()

 

frmAddProduct.Show

 

End Sub