[3주차] 스터디 노트, 미션

VBA 4주 완성
작성자
달구름
작성일
2022-07-23 18:23
조회
20

1. 열심히 공부한 흔적이 담긴 사진을 남겨주세요!

 

 

 

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

1) 업무에서 쉽게 사용할 수 있도록 미리 만들어 놓은 자동화 매크로가 함수이고, 나만의 함수를 만들 수 있다.
2) "Column"으로 시작열을 지정하고, "Count"로 순번 개수를 지정하면 시작열의 1행부터 순번을 출력하는 매크로를 작성한다. 이를 통해 예를 들어 구구단 결과값을 내가 원하는 위치에 출력하는 Sequence 매크로를 만들 수 있다.
3) DynamicRange 함수를 적용하여 FilterItems 매크로를 활용하여 나만의 filtering 매크로를 만들 수 있다.

 

 

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

응용해 보기 위해 공공데이터포털에서 **시 도서관의 도서목록을 받아서 내가 좋아하는 작가의 책을 몇 권이나 보유하고 있고, 그 책들을 대출할 수 있는지를 알려주는 코드를 만들어 보고 있습니다.(아직도 시행착오를 겪고 있습니다.) 서지번호, 청구기호, 서명, 저자, 발행처, 발행년도, 대출상태, ISBN 등 21개 변수로 구성된 대규모 데이터(1,043,205권)를 받아서 도전해 보고 있습니다. 첫 주 강의 이전에는 전혀 생각하지 못했던 도전입니다. 4주 강의가 모두 마무리 되면, 저는 엑셀을 이제 좀더 편안하게 구동할 수 있을 것 같습니다. 감사합니다.

 

 

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

'미션1) 나만의 Sequence 매크로 만들기
 
Sub SequenceNumber()
 
Dim Column As String
Dim Count As Long
Dim i As Long
 
Column = "A"
Count = 10
 
For i = 1 To Count
    Range(Column & i).Value = i * 7
Next
 
End Sub
 
 
'미션2) 나만의 Sequence 매크로를 동적으로 만들기
 
Sub DynamicSequence()
 
Dim InitCell As Range
Dim Count As Long
Dim i As Long
 
Set InitCell = Range("B2")
Count = 10
 
For i = 1 To Count
    InitCell.Offset(i - 1).Value = i * 8
Next
 
End Sub
 
 
 
'미션3) 나만의 TextJoin 함수 만들기
 
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
 
Sub ClearRange()
 
Dim i As Long
 
i = Sheet1.Range("G1048576").End(xlUp).Row
 
If i > 1 Then
    Sheet1.Range("G2:H" & i).ClearContents
End If
 
End Sub
 
 
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
 
 
'미션4) 나만의 필터함수 만들기: GroupRng(구분)의 조건을 비교해서, 구분에 해당하는 제품과 가격을 표시
 
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
 
Sub UniqueList()
 
Dim Rng As Range
Dim r As Range
Dim Items As Collection
Dim item As Variant
Dim itemList As String
 
End Sub

 

 

 

 

회원등급 : 4레벨
포인트 : 202 EP
전체 0

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