엑셀 VBA #26 / For Each~Next_2 [VBA]

[@김태영-n1o6l]

공부중인데 너무 감사드립니다.^^

[@ucj5473]

아이 생활에 스케쥴이 맞춰지니 공부할 틈이 전혀나지 않아 시간이 될 때 영상과 비밀노트라도 보려고 노력중입니다 오늘도 좋은 강의 감사드려요 배울게 많은 강의입니다!

[@엑셀디자인]

고맙습니다 :D
힘내세요~~~

[@Hello-Annyeong]

강의 너무 최고입니다 ^^ 지금 영상보고 계속 공부하면서 정주행중입니다!

[@엑셀디자인]

천천히 주행하셔요~~~😉

[@김둉-w8b]

선생님 안녕하세요. 중단점(?) 설정은 어떻게 하셔서 멈추시면서 확인하시는 지 여쭤보고 싶습니다.

[@엑셀디자인]

안녕하세요, 반갑습니다 :)
VBA #95 영상을 살펴보세요.
자세히 설명하고 있습니다.

[@파이팅-b9u]

선생님 조은영상 잘봤습니다
감사합니다
저희 부서에 매크로신이 있습니다
정말 그친구가 짠 코드 보시면 선생님도 감탄하실겁니다
그친구처럼 되고 싶어서 선생님 강의 보면서 열심히 하는데 VBA 참 어렵네요ㅜ
하지만 계속 하다보면 잘할수 있을거라 믿습니다ㅎㅎ

[@엑셀디자인]

매크로신들이 짠 코드들 많이 봤습니다^^
감탄한 후, 내가 더 공부할 영역을 캐치할 뿐
부러워하지는 않습니다.
I'll just go my way!
그 사람을 따라가려고 하지 마셔요.
그저 내 길의 방향만 잘 설정한 후
포기하지 말고, 한 스텝, 한 스텝 나아가셔요 ♡

[@파이팅-b9u]

@@엑셀디자인 선생님 좋은 말씀 감사합니다
오늘도 sub 를 타이핑 하며 열심히 공부하겠습니다ㅎ

[@군하-l2y]

잘 봤습니다. 배열 key 하고 item이 잘 설명된 영상있을까요?

[@엑셀디자인]

아래 링크를 살펴보세요, 잘 정리된 듯합니다
www.exceltip.com/general-topics-in-vba/how-to-use-vba-collections-in-excel.html

[@우병우-p3s]

안녕하세요. 보내주신 비밀노트와 더불어 영상 잘 보고 있습니다. New Collection 의 add Method 에서 [key]가 옵션으로 되어있는데 이 영상의 예제에서 key를 생략하면 어떻게 되나요? dc를 조사식에 넣어봐도 잘 모르겠습니다. key를 입력해야 원하는 결과가 나오는거 같아서요~~ 감사합니다.

[@엑셀디자인]

안녕하세요 :)
댓글을 이제서야 봅니다.
key 인수를 생략하면 dc변수에 제품코드가 중복된 채로 모두 들어갑니다.
따라서 new collection개체는 고유목록을 뽑을 때 유용합니다.
VBA_118번 영상을 같이 살펴보세요.
dictionary 개체 또한 같이 병행해서 학습해보세요.
서로 다른 개체이지만, 비슷한 점도 있어서
비교해서 연습해두시면 실무에 유용하게 사용할 수 있습니다.

[@starkepark3288]

강의 시청 참고 많이되고 있습니다. 감사합니다.
[질문]
On Error Resume Next
For Each R In Range("a2:a9")
Dc.Add Trim(R), CStr(Trim(R))
Next
On Error GoTo 0
Dc.Add Trim(R), CStr(Trim(R)) 부분에서
['457' 런타임 오류가 발생했습니다.
이 키는 이 컬렉션의 한 요소와 이미 연결되어 있습니다.] 라고 메세지가 ...
On Error Resume Next 문구를 넣으면, 오류 무시하고, 다음 문장을 계속 실행하라는 명령이라고
구글에서도 나와 있는데... 뭐가 문제일까요?
따라하는데도 왜 전 안될까요? ㅜㅜ

[@엑셀디자인]

new collection개체에 중복된 항목이 들어오면 위의 에러가 나옵니다.
그래서 new collection 개체로 고유목록을 추출하고자 할 때는
반드시 'On Error Resume Next, On Error Goto 0' 을 반드시 넣어야 합니다.
지금 올려주신 코드는 문제가 없습니다. 제가 실행해도 잘 실행이 됩니다.
코드에 주석처리를 하신 것은 아닌지..살펴보세요.

[@starkepark3288]

@@엑셀디자인 와~~~~ ~~ 드뎌 찾았습니다. 감사합니다.
VBA창 메뉴 도구>옵션>일반>오류잡기 에서 "오류발생 시 무조건 중단"에
체크가 되 있길래 혹시나 해서, 단 곳에 체크하고 본문 실행하니 되네요.
진도도 못 나가고 ㅜㅜ.... 2틀 고민했습니다.
덕분입니다. 감사합니다.

[@엑셀디자인]

@@starkepark3288
말씀해주신 옵션은 저도 처음 관심을 갖고 보았습니다.
디폴트 값이여서 평소에 신경 안쓰고 있었습니다.
덕분에 저도 하나 배웠습니다.
※오류잡기 디폴트 값: 처리되지 않은 오류 발생시 중단.

[@Chanheegogo]

엑셀 디자인님
For Each c In Range("a2:a9")
여기서 A9 대신에 비어있지 않은셀 을 선택할 수 있을까요?
A9 를 다른 함수로 바꿔주면 될것 같은데요

[@엑셀디자인]

A열에서 데이터가 있는 부분만 선택하는 코드로 바꾸고 싶으신군요.방법은 굉장히 다양합니다. 아래에 몇가지만 소개하면...For Each c In Range("a2:a9") 대신에★For Each c In Range("a2", Range("a2").End(xlDown))
★For Each c In Range("a2", Cells(Rows.Count, "a").End(xlUp))또는★Dim dc As New Collection, c As Range
Dim a()
Dim i As Long
Dim rc As Range, rs As Range, rng As RangeSet rng = Columns("a").SpecialCells(2)
Set rng = rng.Offset(1).Resize(rng.Rows.Count - 1)On Error Resume Next
For Each c In rng
dc.Add Trim(c), CStr(Trim(c))
Next
On Error GoTo 0

[@DDD-fw6nt]

여기서부턴 포기해야될듯....

[@DDD-fw6nt]

ㅠㅠ

[@엑셀디자인]

For Each~Next를 이해하셨으면
New Collection 은 잠시 내려놓으셔도 됩니다.
다시 기회가 올겁니다.

[@meoksjin1024]

선생님 조사식에 값을 추가해서 모니터링하려면 어떻게 하나요?

[@엑셀디자인]

보기>조사식창을 꺼낸 후>모니터링 하고 싶은 변수를 블럭설정>블럭설정 한 곳에서 마우스를 더블클릭해보세요.

[@ContacT_M]

♡

[@hnswhang]

이거 재생되다가 중간에 버퍼링 되는데 이후 전혀 안되는데 왜그런건가요.샘의 다른 것도 마찬가지입니다