Live Replay
멤버쉽 라이브 강의
엑셀 VBA 4주 완성 특별 스터디 2강 | 본격, 업무 자동화의 시작! -핵심 구문 4가지
|
2022년07월09일
강의 소개
1. VBA 시작을 위한 핵심 구문 4가지
오늘 강의에서는 VBA 코딩 시작을 위한 핵심 구문 4가지의 사용법을 간단한 예제와 함께 알아봅니다.
이후 실무에서 자주 사용되는 핵심 데이터타입을 4가지로 나누어 알아봅니다.
2. 실무 핵심 개체 & 디버깅 실습
VBA에 사용되는 여러 개체 중, 실무에서 가장 자주 사용되는 핵심 개체 3가지를 선언하고 할당하는 방법을 알아봅니다.
이후 명령문 실행 시 오류가 발생했을 때, 상황별로 디버깅하는 방법에 대해 알아봅니다.
3. For 반복문 & IF 조건문 실습
모든 프로그래밍 언어 자동화의 핵심인 For 반복문 사용법을 간단한 예제를 통해 살펴봅니다.
이후 For 문과 함께 자동화 매크로에 빠지지 않고 사용되는 IF 조건문과 Select 문에 대해 알아봅니다.
4. 목차 만들기 & 찾기 및 바꾸기 매크로
지금까지 알아본 여러 VBA 코딩 기초를 활용하여, 시트 목차와 이동 링크를 자동으로 생성하는 매크로를 작성합니다.
마지막으로 찾기 및 바꾸기를 자동화하고 나만의 XLOOKUP 함수 제작 방법을 알아봅니다.
라이브 미션
미션 완성 코드는 영상 댓글의 완성파일을 확인하세요!
- [미션1] 목차 만들기 자동화 매크로 만들기
- [미션2] Find & Replace (찾기 및 바꾸기) 자동화 매크로
- [미션3] 나만의 Xlookup 함수 (MyXlooup) 만들기
보충 자료
XLOOKUP 함수 만들기 보너스 미션
Function MyXLookUp(lookup_value, lookup_range As Range, return_range As Range)
'=MyXLookup(찾을값, 찾을범위, 출력범위)
' 변수 선언
' i = 찾을범위 반복할 순번
Dim i As Long
' 찾을범위의 시작부터 끝까지 돌아가면서
For i = 1 To lookup_range.Rows.Count
'찾을범위의 i번째 값이 찾을값과 동일하면
'※힌트 : If ○○○.Cells(○).value = ○○ Then ... End If
'MyXLookup 함수의 결과값으로 반환범위의 i번째 값을 출력한 후 명령문을 강제로 종료한다.
'※힌트 : MyXLookup = ○○○.Cells(○).Value
'※힌트 : Exit Function
Next
End Function
VBA2주차수업복습중인데, 보너스미션의 코드는 어디서 받을 수 있나요? 아무리찾아봐도 없어서요
XLOOKUP 보너스 미션 코드가 빠져있어서 방금전 게시글을 수정하였습니다.
다시 확인해주시겠어요? :)
감사합니다!
정성이 담겨 있는 수업 진행해주셔서 감사합니다.
2주차 수업에서 찾을값 , 바꿀값 vba 작성을 아래와 같이 했는데
Sub FindReplace()
Dim WS As Worksheet
Dim FindValue As String
Dim ReplaceValue As String
Dim Rng As Range
Dim R As Range
Set WS = ThisWorkbook.Worksheets("확진자경로")
Set FindValue = WS.Range("J4").Value
Set ReplaceValue = WS.Range("J5").Value
Set Rng = Selection
For Each R In Range
If R.Value = FindValue Then R.Value = ReplaceValue
Next
End Sub
계속 "컴파일 오류입니다. 개체가 필요합니다." 라는 오류 팝업이 뜹니다 ㅠㅠ
왜 그러는지 이유 알 수 있을까요?? ㅠㅠ
아래와 같이 수정해보세요.
FindValue = WS.Range("J4").Value
ReplaceValue = WS.Range("J5").Value
Dim WS As Worksheet
Dim FindValue As String
Dim ReplaceValue As String
Dim Rng As Range
Dim R As Range
Set WS = ThisWorkbook.Worksheets("확진자경로")
FindValue = WS.Range("J4").Value
ReplaceValue = WS.Range("J5").Value
Set Rng = Selection
For Each R In Range
If R.Value = FindValue Then R.Value = ReplaceValue
Next
위와 같이 수정할 경우 선택적 인수가 아니라는 오류가 납니다 ㅠㅠ
로 바꿔보시겠어요?^^
감사합니다.
멤버쉽 영상은 멤버쉽으로 가입된 구글 계정으로 로그인 후
유튜브를 재생했을때만 보입니다.
로그인 한 계정이 멤버쉽으로 가입되어 있는지 한번 확인해보시겠어요? :)
감사합니다.
주변에 확인해보니 이번에 유튜브 업데이트 이후,
멤버쉽 계정으로 비즈니스 아이디 여러개를 생성할 경우 댓글이 안보이는 문제가 있다고 합니다.ㅜㅜ
https://www.dropbox.com/s/hmovx6bajnxaogx/?dl=1
위 링크를 클릭해서 예제파일을 우선 다운받아보시겠어요?
감사합니다.
혹시 따로 완성 파일과 코드를 게시판에 올려주시는 건 무리이신가요?
가입하신 이메일 계정으로 완성 파일을 전달해드렸으니 확인부탁드립니다.
감사합니다.
다른 시트를 참조하면 됩니다.
Youtube 회원인데요. 강의가 보이지 않네요. 볼 수 있는 방법이 있나요?
만약 유튜브에서 여러 계정을 사용하고 계실 경우,
영상을 재생하시기 전 멤버십을 가입한 계정으로 변경 후 재생해보시길 바랍니다. :)
관련 내용은 아래 링크에도 정리해드렸으니 한번 확인해보시겠어요?
https://www.oppadu.com/faq/member/inquiry/cant-play/
감사합니다.