본문 바로가기

엑사남172

[기초방] VBA 100제 #12 [ Like구문 ] 보통 이러한 패턴문제는 Like 와 정규식으로 풀수 있다. https://www.youtube.com/watch?v=sHg8o_RUcag 엑사남님이 이미 잘 정리해서 유튜브에 올려놓으셨으니 기초방분들은 학습하기길 바란다. 이런 패턴의 문제는 준빠님이 올려주신 대로 패턴에 일치하는 값들을 하나씩 붙혀가며 최종적인 문자를 출력하면 된다. 본인은 이번에는 like 구문의 부정형인 ' ! ' 와 정규식의 부정형인 ' ^ ' 과 Replace 조합으로 풀어보려한다. 더보기 Option Explicit Sub 기초방_12_like() Dim rngAll As Range: Set rngAll = [a3:a7] Dim rngA As Range Dim rngX As Range: Set rngX = [c3] Dim str.. 2023. 1. 10.
[기초방] VBA 100제 #10 [ 데이터 영역 재설정하기 ] 데이터 영역을 랜덤화해서 재설정하는 구문이다. 보통 이러한 문제는 랜덤 난수를 추출하여 그것에 따라 정렬하여 재배치 하면 된다. 문제풀이는 이렇다. 1. 난수를 발생 2. 난수와 기존값을 조합하여 임시 영역에 추출 3. 정렬 4. 난수와 기존값 분리 5. 기존값을 새로운 위치에 추출 6. 난수와 기존값을 출력한 영역 삭제 더보기 Option Explicit Sub 기초방10_1() Dim bln As Boolean Dim rngall As Range Dim i& Application.ScreenUpdating = False For i = 1 To 2 '= 문제에 따른 영역 재 설정 If bln = False Then Set rngall = [c5:c14] Else Set rngall = [e21:k27].. 2023. 1. 6.
[기초방] VBA 100제 #9 [ 데이터 영역 선택하기 ] 기초방 #9번 문제는 Offset 의 정확한 이해를 바탕으로 풀이가 가능한 문제이고 기초방 #9-1번 문제는 End 속성값을 통해 풀 수 있는 문제이다. 현재 기초방에서는 최대한 셀 기반으로 문제를 풀어내고 있다. 다른 언어들은 셀기반이 아니고 배열 구조여서 이해하기가 처음엔 어려울수도 있는데, VBA는 내가 하나씩 찍어볼수 있어서 이차원배열과 일차원배열을 이해하는데 더할 나위 없이 좋다.. 할말이 없는데...참...나... 장인어른과 둘만 남아서 억지로 억지로 대화를 이어가는거 같다. 본인 코드에서 자주 등장하는 Cells(rows.count,"a").end(3)(2) 는 A열의 가장 아래에서 위로 컨트롤 윗 화살표를 했을 때 잡히는 셀에서 한칸 아래 부분을 말한다.. 만일 잡힌셀에서 두줄 내려온 영역.. 2023. 1. 5.
[심화방] VBA_심화_100제 #4 [ 네이버 박스오피스 ] 엑사남님 강의중 유일하게 답을 못했던 문제!! https://www.youtube.com/watch?v=cfvdrRKZ-N8 이 웹페이지의 구성을 보면 div.item 밑으로 두개의 div태그가 있다. thumb 이름에서 알수있듯이 썸네일이 있고 / title_box 에는 해당 영화제목이 있다. 콘솔창에 보자 div.item 자식 태그의 Img태그의 src 속성값을 가져오면 포스터를 가져올 수 있고 div.item의 text 를 가져오면 영화제목과 기타 텍스트 값을 가져올 수 있을 것이다. 네이버 박스오피스가 15개 영화만 보여지기 때문에 그것에 대한 조건문을 추가하면 별 어려움없이 박스오피스의 내용을 가져올 수 있을 것이다. If Cnt = 15 Then Sel.FindElementByCss(".pg_.. 2023. 1. 5.