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

VBA 4주 완성
작성자
yun6782
작성일
2022-07-24 18:42
조회
40

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

 

 

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

1) For문, IF문, with문 등의 활용

2) 동적범위의 활용 DynamicRange

3)용어설명

① xlDVType : 데이터유효성검사 형식입니다. xlValidateList
② AlterStype : 오류메시지 형식입니다. (기본값은 중지(Stop)입니다. 선택인수)
③ Operator : 연산방식입니다. (목록에서는 사용하지 않습니다. 선택인수)
④ Formula1 : 데이터 유효성검사로 작성할 수식또는 목록입니다.
⑤ Formula2 : 연산방식이 포함 또는 포함하지 않음일 경우, 두번째로 작성하는 수식입니다

 

 

 

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

그동안 배워왔던 것을 활용해 마지막 엑셀 강의에 모여서 보여 주어서 참 좋았습니다.

앞으로도 많은 걸 연결해 알려 주셨으면 좋겠네요.

꾸준히 배워 보도록 하겠습니다.

이상하게 엑셀에서 한글이 먹히지 않아 실습이 늦었는데, 암튼 많은 걸 배워갑니다.

 

 

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

Function UniqueTextJoin(Rng As Range, Optional Delimiter As String = ",")
'------------------------------------
'■UniqueTextJoin(범위,선택인로 구분자를 넣는데, 없으면 기본값으로 ","넣는다)
'------------------------------------
Dim R As Range 'Rng 를 For Each로 하나씩 참조할 셀
Dim Coll As Collection
Dim v As Variant 'Coll 을 For Each로 하나씩 참조할 값
Dim Result As String '출력 문자열

'오타확인 방법 = 변수선언에 대문자를 앞에 사용하고, 코딩작업에서는 소문자로만 쓰면 자동바뀐다. 틀리면 안바뀐다.

Set Coll = New Collection

'② Coll 을 하나씩 돌아가며 고유값만 추가하기
On Error Resume Next '오류작 발생하면 그냥 다음단계로 넘어가도록 만든다.
For Each R In Rng
Coll.Add R.Value, R.Value 'Key이 중복되면 오류가 발생된다.
Next '콜랙션에 고유값만 뽑아야 하니까, 중복값은 제외 시키는 방법이다.
On Error GoTo 0 '오류가 발생하면 오류창을 띄우는거다.

'③ 고유값으로 이루어진 문자열 만들기
For Each v In Coll
Result = Result & v & Delimiter
Next
'※Result = Left(Result, Len(Result) - 1) '결과값 끝에 쉼표"," 제거= 리절트-전체리절트개수(Len)에서 1를 뺀다.
'여기서 1은 구분자 글자수가 한글자라는 가정에서 이루진 거고, 구분자 글자수가 두개,세개이면 1이아닌 2,3이어야 한다. 그래서 아래와 같이 한다.
Result = Left(Result, Len(Result) - Len(Delimiter)) '결과값 끝에 구분자 글자만큼 뺀다.

'④ 결과값 확인하기
'MsgBox Result '"과일,채소,육류," -> ※의 코딩이 없으며, 넣으면 "과일,채소,육류"
UniqueTextJoin = Result

End Function

 

 

 

 

전체 0

전체 1,208
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (6)
오빠두엑셀 | 2022.07.31 | 추천 8 | 조회 1336
오빠두엑셀 2022.07.31 8 1336
40636 VBA 4주 완성
4주차 VBA강의 노트 엑셀파일첨부파일
이명환 | 2022.07.30 | 추천 0 | 조회 154
이명환 2022.07.30 - 154
40631 VBA 4주 완성
[4주차]VBA 4주 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 53
이상민 2022.07.30 - 53
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 | 조회 41
이상민 2022.07.30 - 41
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 | 조회 33
최동국 2022.07.30 - 33
40618 VBA 4주 완성
[4주차] 스터디 노트, 미션 첨부파일
달구름 | 2022.07.30 | 추천 0 | 조회 39
달구름 2022.07.30 - 39
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 | 조회 37
Gladiolus 2022.07.30 - 37
40612 VBA 4주 완성
[1주차] VBA 4주 완성 특별스터디 1강 엑셀파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 57
Gladiolus 2022.07.30 - 57
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 | 조회 34
girls**** 2022.07.30 - 34
40596 VBA 4주 완성
[3주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 33
DanP 2022.07.29 - 33
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 | 조회 33
익명 2022.07.29 - 33
40591 VBA 4주 완성
[2주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 46
DanP 2022.07.29 - 46
40589 VBA 4주 완성
콜렉션및 배열등 엑셀파일첨부파일
브랑카 | 2022.07.29 | 추천 0 | 조회 32
브랑카 2022.07.29 - 32
40588 VBA 4주 완성
[3주차] VBA 4주 완성 노트 및 과제 엑셀파일첨부파일
토토니 | 2022.07.29 | 추천 0 | 조회 36
토토니 2022.07.29 - 36
40586 VBA 4주 완성
[4주차]VBA 4주 완성 엑셀파일첨부파일
ㅇㅇ나두 | 2022.07.29 | 추천 0 | 조회 37
ㅇㅇ나두 2022.07.29 - 37
글쓰기