[3주차] VBA 4주 완성 노트 및 과제

VBA 4주 완성
작성자
토토니
작성일
2022-07-29 23:22
조회
66

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

 

 

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

  1. DynamicRange를 Function으로 설정하여 활용할 수 있다.
  2. Filer를 사용할 경우, Worksheet_Change를 사용하여 버튼을 사용하지 않고, Cell 값의 변경만으로 MACRO가 실행되게 할 수 있다.
  3. 값을 Clear하는 방법은 다양하고, MACRO 적용 순서를 잘 활용하여 원하는 실행을 시킬 수 있다.

 

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

동적 범위를 선택함에 있어서, Range을 매번 넓게 선택했었는데, DynamicRange 활용법을 배울 수 있어서 현업에서 잘 활용할 수 있을 것 같습니다.

 

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

Function DynamicRange(WS As Worksheet, Column As String, InitRow As Long) As Range

'Function으로 사용하면, 함수로 만들어서 인수를 받아와서 사용이 가능
'함수의 인수로 받아옴

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 ClearRange()

'2번 실행할 경우, 머릿글도 삭제됨
'DynamicRange(Sheet1, "G", 2).ClearContents
'DynamicRange(Sheet1, "H", 2).ClearContents

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

 

'## Worksheet, Change로 적용

Private Sub Worksheet_Change(ByVal Target As Range)

'오른쪽 상단의 Change를 선택
'Cell이 변경되었을 때 반응한다

'MsgBox Target.Address

'Event 명령문을 사용할 때, 변경이 무한 loop로 될 수 있음

'화면의 Update를 Disable로 해서 속도가 빨라짐
Application.ScreenUpdating = False
'이벤트가 동작하는 것을 끔
Application.EnableEvents = False

'셀주소 입력
If Not Intersect(Target, Range("E2")) Is Nothing Then
'실행할 명령문
ClearRange

FilterItems
' MsgBox Target.Value
End If

'화면 Update와 이벤트를 다시 동작
'화면은 Update를 하지 않아도 되지만, 빨라짐
Application.ScreenUpdating = True
Application.EnableEvents = True

End Sub

 

 

 

 

 

스크랩
공유
전체 0

전체 1,208
번호 카테고리 제목 작성자 작성일 추천 조회
알림
🎉다양한 이벤트와 함께 진행하는, PPT 보고서 디자인 특강 안내 - 9/24 (토) 오후 9시~ (14)
오빠두엑셀 | 2022.09.08 | 추천 8 | 조회 2236
오빠두엑셀 2022.09.08 8 2236
40636 VBA 4주 완성
4주차 VBA강의 노트 엑셀파일첨부파일
이명환 | 2022.07.30 | 추천 0 | 조회 306
이명환 2022.07.30 - 306
40631 VBA 4주 완성
[4주차]VBA 4주 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 94
이상민 2022.07.30 - 94
40630 VBA 4주 완성
[3주차]VBA 4주 교육 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 74
이상민 2022.07.30 - 74
40627 VBA 4주 완성
[2주차]VBA 4주 완성 학습 첨부파일
이상민 | 2022.07.30 | 추천 0 | 조회 75
이상민 2022.07.30 - 75
40622 VBA 4주 완성
[4주차] VBA 4주차 스터디 노트 엑셀파일첨부파일 (1)
사랑2 | 2022.07.30 | 추천 0 | 조회 72
사랑2 2022.07.30 - 72
40621 VBA 4주 완성
[4주차]엑셀 VBA 4주완성 엑셀파일첨부파일
최동국 | 2022.07.30 | 추천 0 | 조회 66
최동국 2022.07.30 - 66
40618 VBA 4주 완성
[4주차] 스터디 노트, 미션 첨부파일
달구름 | 2022.07.30 | 추천 0 | 조회 77
달구름 2022.07.30 - 77
40616 VBA 4주 완성
[4주차] VBA 4주 완성 특별스터디 4강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 65
Gladiolus 2022.07.30 - 65
40615 VBA 4주 완성
[3주차] VBA 4주 완성 특별스터디 3강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 54
Gladiolus 2022.07.30 - 54
40614 VBA 4주 완성
[2주차] VBA 4주 완성 특별스터디 2강 엑셀파일첨부파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 63
Gladiolus 2022.07.30 - 63
40612 VBA 4주 완성
[1주차] VBA 4주 완성 특별스터디 1강 엑셀파일
Gladiolus | 2022.07.30 | 추천 0 | 조회 90
Gladiolus 2022.07.30 - 90
40609 VBA 4주 완성
[4주차] VBA 4주 완성 스터디노트 첨부파일
ㅊH 운ㅓ | 2022.07.30 | 추천 0 | 조회 56
ㅊH 운ㅓ 2022.07.30 - 56
40607 VBA 4주 완성
[4주차] 스터디 첨부파일
girls**** | 2022.07.30 | 추천 0 | 조회 60
girls**** 2022.07.30 - 60
40596 VBA 4주 완성
[3주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 58
DanP 2022.07.29 - 58
40595 VBA 4주 완성
[3주차] VBA 4주 완성 첨부파일
| 2022.07.29 | 추천 0 | 조회 52
2022.07.29 - 52
40592 VBA 4주 완성
[4주차] VBA 4주 완성 첨부파일
익명 | 2022.07.29 | 추천 0 | 조회 62
익명 2022.07.29 - 62
40591 VBA 4주 완성
[2주차] 스터디 및 미션 첨부파일
DanP | 2022.07.29 | 추천 0 | 조회 84
DanP 2022.07.29 - 84
40589 VBA 4주 완성
콜렉션및 배열등 엑셀파일첨부파일
브랑카 | 2022.07.29 | 추천 0 | 조회 57
브랑카 2022.07.29 - 57
40588 VBA 4주 완성
[3주차] VBA 4주 완성 노트 및 과제 엑셀파일첨부파일
토토니 | 2022.07.29 | 추천 0 | 조회 66
토토니 2022.07.29 - 66
40586 VBA 4주 완성
[4주차]VBA 4주 완성 엑셀파일첨부파일
ㅇㅇ나두 | 2022.07.29 | 추천 0 | 조회 61
ㅇㅇ나두 2022.07.29 - 61
글쓰기