104회
엑셀 VBA 4주 완성 특별 스터디 4강 | 스터디 완결! 나만의 엑셀 프로그램 만들기
강의노트
커리큘럼
댓글(5)
강의 자료
- [라이브강의] 엑셀 VBA 4주 완성 특별 스터디 - 4강예제파일완성파일은 영상 하단 댓글 링크를 확인해주세요.
라이브 미션
미션 완성 코드는 영상 댓글의 완성파일을 확인하세요!
- [미션1] 고유값을 자동으로 등록하는 목록상자 만들기
- [미션2] 나만의 제품등록 유저폼 만들기
보충 자료
① CountIf / SumIf 함수 만들기 사전 미션코드
Function MyCountIf(Rng As Range, Criteria As Variant) As Long '--------------------------------- '■사전미션1 '나만의 CountIF 함수 만들기 'Rng 범위에서 Criteria와 같은 값의 개수를 반환합니다. '--------------------------------- Dim R As Range Dim i As Long '힌트1) Rng의 셀을 하나씩 돌아가며.. 'For Each R In Rng '힌트2) R의 값이 Criteria와 같을 경우, i에서 1을 더합니다. 'If R.Value = Criteria Then.. '힌트3) MyCountIf 함수의 결과값으로 i를 반환합니다. 'MyCountIf = i End Function Function MySumIf(Rng As Range, Criteria As Variant, Sum_Range As Range) As Long '--------------------------------- '■사전미션2 '나만의 SumIF 함수 만들기 'Rng 범위의 값이 Criteria와 같을 경우, Sum_Range의 합계를 반환합니다. '--------------------------------- Dim i As Long Dim Result As Long '힌트1) Rng.Count 속성을 사용하면 조건범위의 개수를 확인할 수 있습니다. '힌트2) i = 1 부터 Rng.Count 까지 돌아가며.. '힌트3) Rng(i)을 사용하면 범위에서 i번째 위치한 값을 반환합니다. '힌트4) Rng에서 i번째 위치한 값이 Criteria와 동일할 경우.. 'If Rng(i) = Criteria Then.. '힌트5) 기존 Result 에 Sum_Range(i) 번째 값을 더합니다. 'Result = Result + Sum_range(i) '힌트3) MySumIF 함수의 결과값으로 Result를 반환합니다. 'MySumIf = Result End Function
② 시트 이벤트 매크로 마스터 코드
Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("셀주소")) Is Nothing Then '실행할 명령문 End If Application.ScreenUpdating = True Application.EnableEvents = True
시간대별 목차
- ----- 1교시 -----
- VBA를 공부하는 가장 좋은 방법?00:00
- 매크로포함 파일 실행시 주의사항02:34
- 사전미션1 - CountIF 함수 만들기03:13
- 사전미션2 - SumIF 함수 만들기05:30
- Collection 개체를 사용하는 이유09:19
- Collection 과 Array의 차이점11:33
- Q&AArray가 Collection보다 빠른 이유는?15:19
- Collection 만들고 값 추가하기17:17
- Collection 값과 Key의 차이20:23
- Collection 값을 돌아가며 확인하기23:09
- 고유값을 취합하는 함수 만들기 #124:55
- 오탈자를 줄이는 유용한 Tip26:47
- 고유값을 취합하는 함수 만들기 #228:05
- 오류를 활용해 고유값 목록을 만드는 방법29:56
- ----- 2교시 -----
- UniqueTextJoin 함수 만들기34:24
- 매크로 기록으로 목록상자 기능 살펴보기36:08
- 코드를 깔끔하게 작성하는 With 문40:27
- 목록상자 자동화 매크로 만들기41:25
- 목록상자에 고유값만 추가하기45:37
- 시트 이벤트로 목록상자 실시간 갱신하기50:04
- 제품 등록 사용자 정의 폼 만들기53:25
- 제품 등록 매크로 추가하기1:00:30
- 유저폼 초기화 매크로 추가하기1:04:41
- 유저폼 실행 매크로 만들기1:05:59
- Q&A정적 / 가변 Array 차이점1:08:37
- [미션1] 고유값을 자동으로 등록하는 목록상자 만들기
로그인
로그인 후 댓글을 남길 수 있습니다.
5 댓글
강의노트
커리큘럼
강의 자료
- [라이브강의] 엑셀 VBA 4주 완성 특별 스터디 - 4강예제파일완성파일은 영상 하단 댓글 링크를 확인해주세요.
라이브 미션
미션 완성 코드는 영상 댓글의 완성파일을 확인하세요!
- [미션1] 고유값을 자동으로 등록하는 목록상자 만들기
- [미션2] 나만의 제품등록 유저폼 만들기
보충 자료
① CountIf / SumIf 함수 만들기 사전 미션코드
Function MyCountIf(Rng As Range, Criteria As Variant) As Long '--------------------------------- '■사전미션1 '나만의 CountIF 함수 만들기 'Rng 범위에서 Criteria와 같은 값의 개수를 반환합니다. '--------------------------------- Dim R As Range Dim i As Long '힌트1) Rng의 셀을 하나씩 돌아가며.. 'For Each R In Rng '힌트2) R의 값이 Criteria와 같을 경우, i에서 1을 더합니다. 'If R.Value = Criteria Then.. '힌트3) MyCountIf 함수의 결과값으로 i를 반환합니다. 'MyCountIf = i End Function Function MySumIf(Rng As Range, Criteria As Variant, Sum_Range As Range) As Long '--------------------------------- '■사전미션2 '나만의 SumIF 함수 만들기 'Rng 범위의 값이 Criteria와 같을 경우, Sum_Range의 합계를 반환합니다. '--------------------------------- Dim i As Long Dim Result As Long '힌트1) Rng.Count 속성을 사용하면 조건범위의 개수를 확인할 수 있습니다. '힌트2) i = 1 부터 Rng.Count 까지 돌아가며.. '힌트3) Rng(i)을 사용하면 범위에서 i번째 위치한 값을 반환합니다. '힌트4) Rng에서 i번째 위치한 값이 Criteria와 동일할 경우.. 'If Rng(i) = Criteria Then.. '힌트5) 기존 Result 에 Sum_Range(i) 번째 값을 더합니다. 'Result = Result + Sum_range(i) '힌트3) MySumIF 함수의 결과값으로 Result를 반환합니다. 'MySumIf = Result End Function
② 시트 이벤트 매크로 마스터 코드
Application.ScreenUpdating = False Application.EnableEvents = False If Not Intersect(Target, Range("셀주소")) Is Nothing Then '실행할 명령문 End If Application.ScreenUpdating = True Application.EnableEvents = True
시간대별 목차
- ----- 1교시 -----
- VBA를 공부하는 가장 좋은 방법?00:00
- 매크로포함 파일 실행시 주의사항02:34
- 사전미션1 - CountIF 함수 만들기03:13
- 사전미션2 - SumIF 함수 만들기05:30
- Collection 개체를 사용하는 이유09:19
- Collection 과 Array의 차이점11:33
- Q&AArray가 Collection보다 빠른 이유는?15:19
- Collection 만들고 값 추가하기17:17
- Collection 값과 Key의 차이20:23
- Collection 값을 돌아가며 확인하기23:09
- 고유값을 취합하는 함수 만들기 #124:55
- 오탈자를 줄이는 유용한 Tip26:47
- 고유값을 취합하는 함수 만들기 #228:05
- 오류를 활용해 고유값 목록을 만드는 방법29:56
- ----- 2교시 -----
- UniqueTextJoin 함수 만들기34:24
- 매크로 기록으로 목록상자 기능 살펴보기36:08
- 코드를 깔끔하게 작성하는 With 문40:27
- 목록상자 자동화 매크로 만들기41:25
- 목록상자에 고유값만 추가하기45:37
- 시트 이벤트로 목록상자 실시간 갱신하기50:04
- 제품 등록 사용자 정의 폼 만들기53:25
- 제품 등록 매크로 추가하기1:00:30
- 유저폼 초기화 매크로 추가하기1:04:41
- 유저폼 실행 매크로 만들기1:05:59
- Q&A정적 / 가변 Array 차이점1:08:37
- [미션1] 고유값을 자동으로 등록하는 목록상자 만들기