엑셀 VBA 4주 완성 특별 스터디 2강 | 본격, 업무 자동화의 시작! -핵심 구문 4가지

이전 강의 다음 강의

4.8 (6개 평가)

@인사이트파인딩 2022.07.20 14:24

안녕하세요.
VBA2주차수업복습중인데, 보너스미션의 코드는 어디서 받을 수 있나요? 아무리찾아봐도 없어서요

오빠두엑셀 작성자 2022.07.21 00:42

안녕하세요!
XLOOKUP 보너스 미션 코드가 빠져있어서 방금전 게시글을 수정하였습니다.
다시 확인해주시겠어요? :)
감사합니다!

@인사이트파인딩 2022.07.22 10:43

보완해주신 내용 확인했습니다. 감사합니다.
정성이 담겨 있는 수업 진행해주셔서 감사합니다.

tndka**** 2022.08.24 00:03

안녕하세요
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

계속 "컴파일 오류입니다. 개체가 필요합니다." 라는 오류 팝업이 뜹니다 ㅠㅠ
왜 그러는지 이유 알 수 있을까요?? ㅠㅠ

오빠두엑셀 작성자 2022.08.24 02:51

FindValue, ReplaceValue 는 문자이므로 Set 없이 변수를 할당해야합니다.
아래와 같이 수정해보세요.

FindValue = WS.Range("J4").Value

ReplaceValue = WS.Range("J5").Value

tndka**** 2022.08.24 09:28

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("확진자경로")
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

위와 같이 수정할 경우 선택적 인수가 아니라는 오류가 납니다 ㅠㅠ

오빠두엑셀 작성자 2022.08.27 18:59

안녕하세요.

For Each R In Rng

로 바꿔보시겠어요?^^
감사합니다.

패티그로 2022.11.06 17:59

강의자료와 라이브 미션에 대한 완성파일과 완성코드가 댓글에 나오지 않아 문의드립니다.

오빠두엑셀 작성자 2022.11.06 18:28

안녕하세요!^^
멤버쉽 영상은 멤버쉽으로 가입된 구글 계정으로 로그인 후
유튜브를 재생했을때만 보입니다.
로그인 한 계정이 멤버쉽으로 가입되어 있는지 한번 확인해보시겠어요? :)
감사합니다.

패티그로 2022.11.06 20:10

멤버쉽 가입된 계정으로 로그인했는데도 불구하고, 댓글창이 나오지 않고 로딩만 됩니다.. 완성 파일과 완성 코드는 댓글로만 확인 가능한가요?

오빠두엑셀 작성자 2022.11.07 12:12

네 맞습니다!ㅜㅜ
주변에 확인해보니 이번에 유튜브 업데이트 이후,
멤버쉽 계정으로 비즈니스 아이디 여러개를 생성할 경우 댓글이 안보이는 문제가 있다고 합니다.ㅜㅜ
https://www.dropbox.com/s/hmovx6bajnxaogx/?dl=1
위 링크를 클릭해서 예제파일을 우선 다운받아보시겠어요?
감사합니다.

패티그로 2022.11.07 17:28

1강도 댓글창이 안보이는데 어떻게 해야될까요..?
혹시 따로 완성 파일과 코드를 게시판에 올려주시는 건 무리이신가요?

오빠두엑셀 작성자 2022.11.09 17:15

안녕하세요.
가입하신 이메일 계정으로 완성 파일을 전달해드렸으니 확인부탁드립니다.
감사합니다.

어수민 2023.01.31 22:03

다른시트에 있는값을 변경하고자 하면 어떻게 해야하나요

오빠두엑셀 작성자 2023.02.01 15:33

안녕하세요.
다른 시트를 참조하면 됩니다.

Dim WS As WorkSheet



Set WS = ThisWorkBook.WorkSheets("다른시트이름")



WS.Range("A1").Value = "A"

강민준🤗 2024.08.12 09:48

좋은 강의 정말 감사합니다🙇‍♂️

엑셀아! 덤벼라! 2024.11.14 07:50

강의 잘 보구 있습니다.
Youtube 회원인데요. 강의가 보이지 않네요. 볼 수 있는 방법이 있나요?

오빠두엑셀 작성자 2024.11.14 16:49

안녕하세요.
만약 유튜브에서 여러 계정을 사용하고 계실 경우,
영상을 재생하시기 전 멤버십을 가입한 계정으로 변경 후 재생해보시길 바랍니다. :)
관련 내용은 아래 링크에도 정리해드렸으니 한번 확인해보시겠어요?
https://www.oppadu.com/faq/member/inquiry/cant-play/
감사합니다.

라이브정보

방송일 2022년07월09일 (102회)

강의시간 1시간 15분

보충자료

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

무료 강의