엑사남180 [심화방] VBA_심화_100제 #19 [ 유튜브목록 가져오기] 이번에는 유튜브 댓글에 이어 유튜브 목록을 가져오는 코드를 진행해보려고 한다. 본인같은 경우 유튜브에서 강의를 볼 경우 한 사람의 강의를 끝까지 보는 스타일이다. 이유는 그래야 코드를 따라치면서 유튜브상의 쌤들의 스타일을 알게되어 코드를 이해하는데도 더 편하기 때문이다. 본인이 공부할때 엑사남님의 스타일을 배워가면서 점점 본인의 스타일을 완성하였기 때문에 이글을 읽는 분들도 한번 따라해보시길 바란다. https://www.youtube.com/@excelloveman-3399/videos 엑사남ExcelLoveMan- 안녕하세요. (구) 엑셀만두 만두강사에서 (신) 엑셀을사랑하는남자로 다시 돌아온 엑사남 입니다. 모두가 엑셀과 쉽게 친해질 수 있도록 쉽고 간단 명료한 강의를 만들겠습니다. 실습파일은 아 .. 2023. 6. 13. [심화방] VBA_심화_100제 #18 [ 유튜브댓글 조회하기] 유튜브 댓글 관련 크롤링 코드를 올려보려한다. 문제가 될수 있어서 [답글 더보기] 까지 완전히 다 열리는 코드는 올리지 못함을 양해바란다. 댓글 2천개 기준으로 5분정도 소요되는거 같다. 댓글 2천개 미만은 금방되는거 같으니 코드를 한번 유심히 뜯어보시길 바란다. 코드진행은 이렇다. 1. 맨 하단까지 스크롤을 다 내려서 태그를 다 열어준다음 2. 댓글 버튼을 클릭해서 댓글들을 다 열어준다. 3. 댓댓글은 다시 위로 올라가서 하나하나 다시 태그안으로 들어가서 열어줘야한다. [ 코드에는 빠져있음 ] 4. 배열에 담아서 5. 엑셀 시트에 뿌려준다.. 2번은 스크롤을 열어서 요소를 찾은 후 모두 클릭해주면 되는데 3번은 그렇게 하면 화면에 보이는 부분만 열리게 되어서... 다시 처음부터 [답글 더보기]를 찾아서.. 2023. 6. 12. [기초방] VBA 100제 #38 [ 재배치하기 ] 최근에 기초 문제가 난이도가 너무 높다고 해서 문제의 난이도를 낮춰보았다. 물론 난이도라는게 내가 한번이라도 해보거나 경험하였다면 그또한 쉬운 문제일것이다. 문제를 많이보고 많이 풀어보는 수밖에 없다... 기초방을 함께 하는 크루들의 실력이 상향 평준화 됨에 따라 본인의 자리가 작아짐을 느끼지만 그것또한 본인의 기쁨이리라... For Each rngA In rngall If rngA = rngall(1) Then rngA(1, 6).Resize(1, 5) = Array("영업자", "시간", "제품명", "배송지", "가격") Next rngA if rngA = rngAll(1) : 첫번째 행 / 즉 머릿말을 의미한다. For Each rngA In rngall If IsDate(rngA) Then '=.. 2023. 3. 6. [기초방] VBA 100제 #34 [ 상위5그룹 합계 ] 더보기 Sub 기초방34() Dim rngall As Range: Set rngall = [c4].CurrentRegion Dim rngX As Range Dim i&, j&, hSum&, Cnt&: Cnt = rngall.Cells.Count Dim vtemp Sheets("문제").[c4].CurrentRegion.Copy [c4] '= 문제복사 For i = 1 To Cnt - 1 '= 버블정렬 / 기초방 34-1 문제 해법 For j = i To Cnt If rngall(i) > rngall(j) Then vtemp = rngall(i) rngall(i) = rngall(j) rngall(j) = vtemp End If Next j Next i For i = 4 To 0 Step -1 '= 상위 .. 2023. 3. 5. 이전 1 ··· 21 22 23 24 25 26 27 ··· 45 다음
