[4주차] VBA 4주 완성
1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!
(위쪽 카메라 버튼을 클릭해서 이미지를 삽입할 수 있습니다)
2. 이번 스터디에서 새롭게 알게되거나 유익했던 내용을 3가지로 요약해주세요!
유저 폼 만들기
collection
collection key 에러를 이용한 리스트 만들기
3. 이번 스터디를 진행하면서 특별히 좋았던 점이나 부족했던 점이 있다면 자유롭게 남겨주세요.
최종목적에 필요한 항목을 순차적으로 진행하여 완전한 스토리를 만듦으로 이해도 상승
4. 열심히 학습한 결과파일이나 스크린샷, 코드가 있다면 자유롭게 올려주세요.
Sub test()
'collection 테스트
Dim Coll As Collection
Set Coll = New Collection
'# collection 에 값을 추가
'Collection.Add "값", "Key"
Coll.Add "사과", "Fruit1"
Coll.Add "배", "Fruit2"
Coll.Add "포도", "Fruit3"
'collection 값 지우기
Coll.Remove ("Fruit3")
'collection 조회하기
Dim v As Variant
For Each v In Coll
MsgBox v
Next
End Sub
Function UniqueTextJoin(Rng As Range, Optional Delimeter As String = ",")
'------------------------------------
'■ Rng 범위의 고유값으로 이루어진 문자열을 만듭니다.
'■ 예) 사과, 배, 배, 귤, 사과 -> 사과, 배, 귤
'------------------------------------
'① 변수 선언 및 할당하기
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
Next
On Error GoTo 0
'③ 고유값으로 이루어진 문자열 만들기
For Each v In Coll
Result = Result & v & Delimeter
Next
Result = Left(Result, Len(Result) - Len(Delimiter))
'④ 결과값 확인하기
UniqueTextJoin = Result
End Function
Sub AddValidation()
'------------------------------------
'■ Rng 셀에 데이터유효성 목록상자를 추가합니다.
'Range.Validation.Add
'① xlDVType : 데이터유효성검사 형식입니다. xlValidateList
'② AlterStype : 오류메시지 형식입니다. (기본값은 중지(Stop)입니다. 선택인수)
'③ Operator : 연산방식입니다. (목록에서는 사용하지 않습니다. 선택인수)
'④ Formula1 : 데이터 유효성검사로 작성할 수식또는 목록입니다.
'⑤ Formula2 : 연산방식이 포함 또는 포함하지 않음일 경우, 두번째로 작성하는 수식입니다.
'상세설명 링크
'오류메시지 형식 : https://docs.microsoft.com/en-us/office/vba/api/excel.xldvalertstyle
'연산방식 : https://docs.microsoft.com/en-us/office/vba/api/excel.xlformatconditionoperator
'Validation Add 상세 설명 : https://docs.microsoft.com/en-us/office/vba/api/excel.validation.add
'------------------------------------
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
Sub ShowForm()
frmAddProduct.Show
End Sub
번호 | 카테고리 | 제목 | 작성자 | 작성일 | 추천 | 조회 |
[🏆 VBA 4주 완성 특별 스터디] 1기 - 우수 졸업생 및 후기, 축하합니다! (5)
![]() ![]() |
![]() ![]() |
2022.07.31 | 8 | 1160 | ||
40636 | VBA 4주 완성 |
4주차 VBA강의 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 142 |
40631 | VBA 4주 완성 |
[4주차]VBA 4주 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 50 |
40630 | VBA 4주 완성 |
[3주차]VBA 4주 교육
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 41 |
40627 | VBA 4주 완성 |
[2주차]VBA 4주 완성 학습
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 39 |
40622 | VBA 4주 완성 |
[4주차] VBA 4주차 스터디 노트
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 43 |
40621 | VBA 4주 완성 |
[4주차]엑셀 VBA 4주완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 31 |
40618 | VBA 4주 완성 |
[4주차] 스터디 노트, 미션
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 37 |
40616 | VBA 4주 완성 |
[4주차] VBA 4주 완성 특별스터디 4강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 42 |
40615 | VBA 4주 완성 |
[3주차] VBA 4주 완성 특별스터디 3강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 30 |
40614 | VBA 4주 완성 |
[2주차] VBA 4주 완성 특별스터디 2강
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 36 |
40612 | VBA 4주 완성 |
[1주차] VBA 4주 완성 특별스터디 1강
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 56 |
40609 | VBA 4주 완성 |
[4주차] VBA 4주 완성 스터디노트
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 34 |
40607 | VBA 4주 완성 |
[4주차] 스터디
![]() ![]() ![]() |
![]() ![]() |
2022.07.30 | - | 33 |
40596 | VBA 4주 완성 |
[3주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 32 |
40595 | VBA 4주 완성 |
[3주차] VBA 4주 완성
![]() ![]() |
![]() |
2022.07.29 | - | 32 |
40592 | VBA 4주 완성 |
[4주차] VBA 4주 완성
![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 30 |
40591 | VBA 4주 완성 |
[2주차] 스터디 및 미션
![]() ![]() |
![]() |
2022.07.29 | - | 40 |
40589 | VBA 4주 완성 |
콜렉션및 배열등
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 32 |
40588 | VBA 4주 완성 |
[3주차] VBA 4주 완성 노트 및 과제
![]() ![]() ![]() |
![]() |
2022.07.29 | - | 35 |
40586 | VBA 4주 완성 |
[4주차]VBA 4주 완성
![]() ![]() ![]() ![]() |
![]() ![]() |
2022.07.29 | - | 36 |