[4주차] 엑셀 VBA 기초 4주 완성 스터디 노트

VBA 4주 완성
작성자
은혜사랑
작성일
2022-07-29 22:32
조회
27

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

 

 

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

1) Collection 함수로 고유값 저장하기
2) DynamicRange 및 UniqueTextJoin 함수로 유효성검사(목록) 매크로 만들기
3) Event 매크로로 유효성검사(목록) 매크로 실행하기

 

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

엑셀을 활용한 업무자동화에 대한 추상적인 생각에서 강의를 들으며 조금씩 미션을 수행해 나가면서 구체적으로 VBA를 어떻게 공부해야 하는지를 알게 되었습니다. 4주 동안 좋은 강의 해 주셔서 넘 감사하고 앞으로도 멋진 모습 기대하겠습니다~^^v

 

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

(사전미션1) 나만의 MyCountIF 함수 만들기

Function MyCountIf(Rng As Range, Criteria As Variant) As Long
Dim R As Range
Dim i As Long

For Each R In Rng
If R.Value = Criteria Then
i = i + 1
End If
Next

MyCountIf = i

End Function

(사전미션2) 나만의 MySumIF 함수 만들기

Function MySumIf(Rng As Range, Criteria As Variant, Sum_Range As Range) As Long

Dim i As Long
Dim Result As Double

For i = 1 To Rng.Count
If Rng(i) = Criteria Then
Result = Result + Sum_Range(i)

MySumIf = Result
End If

Next

End Function

1. Collection 만들기

Sub test()
'# 새로운 Collection만들기

Dim Coll As Collection
Set Coll = New Collection

Coll.Add "사과", "Fruit1"
Coll.Add "배", "Fruit2"
Coll.Add "포도", "Fruit3"

Coll.Remove ("Fruit3")
Dim v As Variant
For Each v In Coll
MsgBox v
Next

End Sub

2. UniqueTextJoin 함수 만들기

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

'Dim Rng As Range
'Dim 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

 

 

 

전체 0

전체 1,208
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1160
오빠두엑셀 2022.07.31 8 1160
40636 VBA 4주 완성
4주차 VBA강의 노트 엑셀파일첨부파일
이명환 | 2022.07.30 | 추천 0 | 조회 143
이명환 2022.07.30 - 143
40631 VBA 4주 완성
[4주차]VBA 4주 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 50
이상민 2022.07.30 - 50
40630 VBA 4주 완성
[3주차]VBA 4주 교육 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 41
이상민 2022.07.30 - 41
40627 VBA 4주 완성
[2주차]VBA 4주 완성 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 39
이상민 2022.07.30 - 39
40622 VBA 4주 완성
[4주차] VBA 4주차 스터디 노트 엑셀파일첨부파일 (1)
사랑2 | 2022.07.30 | 추천 0 | 조회 43
사랑2 2022.07.30 - 43
40621 VBA 4주 완성
[4주차]엑셀 VBA 4주완성 엑셀파일첨부파일
최동국 | 2022.07.30 | 추천 0 | 조회 31
최동국 2022.07.30 - 31
40618 VBA 4주 완성
[4주차] 스터디 노트, 미션 첨부파일
달구름 | 2022.07.30 | 추천 0 | 조회 37
달구름 2022.07.30 - 37
40616 VBA 4주 완성
[4주차] VBA 4주 완성 특별스터디 4강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 42
Gladiolus 2022.07.30 - 42
40615 VBA 4주 완성
[3주차] VBA 4주 완성 특별스터디 3강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 30
Gladiolus 2022.07.30 - 30
40614 VBA 4주 완성
[2주차] VBA 4주 완성 특별스터디 2강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 36
Gladiolus 2022.07.30 - 36
40612 VBA 4주 완성
[1주차] VBA 4주 완성 특별스터디 1강 엑셀파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 56
Gladiolus 2022.07.30 - 56
40609 VBA 4주 완성
[4주차] VBA 4주 완성 스터디노트 첨부파일
ㅊH 운ㅓ | 2022.07.30 | 추천 0 | 조회 34
ㅊH 운ㅓ 2022.07.30 - 34
40607 VBA 4주 완성
[4주차] 스터디 첨부파일
girls**** | 2022.07.30 | 추천 0 | 조회 33
girls**** 2022.07.30 - 33
40596 VBA 4주 완성
[3주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 32
DanP 2022.07.29 - 32
40595 VBA 4주 완성
[3주차] VBA 4주 완성 첨부파일
| 2022.07.29 | 추천 0 | 조회 32
2022.07.29 - 32
40592 VBA 4주 완성
[4주차] VBA 4주 완성 첨부파일
익명 | 2022.07.29 | 추천 0 | 조회 30
익명 2022.07.29 - 30
40591 VBA 4주 완성
[2주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 40
DanP 2022.07.29 - 40
40589 VBA 4주 완성
콜렉션및 배열등 엑셀파일첨부파일
브랑카 | 2022.07.29 | 추천 0 | 조회 32
브랑카 2022.07.29 - 32
40588 VBA 4주 완성
[3주차] VBA 4주 완성 노트 및 과제 엑셀파일첨부파일
토토니 | 2022.07.29 | 추천 0 | 조회 35
토토니 2022.07.29 - 35
40586 VBA 4주 완성
[4주차]VBA 4주 완성 엑셀파일첨부파일
ㅇㅇ나두 | 2022.07.29 | 추천 0 | 조회 36
ㅇㅇ나두 2022.07.29 - 36
글쓰기