중첩배열3 [VBA] Find + Intersect를 통해서 원하는값만 출력하기 원하는 값을 포함하는 영역만 따로 출력하는 문제이다. 여기서 핵심은 Intersect를 통해서 교집합 영역을 추출하는것이다. 이것만 이해하면 본인의 코드를 충분히 이해할 수 있을 것이다. 포기하지 않은 자들이여...신의 가호가... 더보기 Option Explicit Sub Find_Num() Dim rngAll As Range: Set rngAll = [b5:g18] '= 전체영역 Dim rngF As Range '= Find 셀을 담을 영역 Dim rngAdrss$, n&, i& Dim Vall(1 To 100) '= 임의의 크기의 배열을 설정 Dim rngX As Range: Set rngX = [i5] With rngAll Set rngF = .Find(What:=7, Lookat:=xlWhole.. 2022. 12. 15. [VBA] 중첩배열이란..... 중첩배열이란 배열에 배열을 담는것이다. 80년대에 이런 유머가 있었다. 고 전두환 대통령이 코끼리를 냉장고에 넣는 방법 [ 코끼리를 데리고 온다. 냉장고 문을 연다 코끼리를 집어 넣는다. 냉장고 문을 닫는다 ] 이게 뭐야 라고 하는 사람들도 있겠지만 본인과 같은 시대를 살아온 사람들은 이게 무슨 뜻인지 알것이다. 각설하고.... 배열도 똑같다.. 우리가 여태 배운건 하나의 배열에 영역을 한방에 넣는거 또는 배열에 값을 하나만 담는 것을 배웠다. 하지만 배열은 우리가 알고 있는 것보다 더 큰 가슴을 가지고 있다. 배열 요소에 숫자, 문자 , 영역, 배열을 캡슐화해서 담아 놓을 수 있다. 문제속 배열에 담긴 각 요소들은 행렬의 크기가 다르기에 Resize(Ubound(배열,1), Ubound(배열,2))로 .. 2022. 12. 8. [VBA] Old시트 New시트 업데이트하기 아오...브라질한테 축구 질 준 알았지만 너무 발려서....글쓰기도 시르다... 의뢰 들어온건데...이걸 공개할 수 있도록 데이터 수정하는게 더 어려워서...그냥 이렇게만 적으려고 한다. 1. ERP에서 다운로드 하면 데이터파일과 통합파일이 서로 열린 상태에서 Vlookup 함수를 통해 데이터를 끌어 온것을 VBA로 수정 2. 기존데이터는 업데이트하기 3. 신규데이트 통합시트에 추가하기 4. 등급이 수정가능하여야 하며 등급에 맞게 실시간으로 값이 변경되어야 함 5. 중첩배열 및 배열 속 데이터 활용하여 사용하기 6. 오른쪽 마우스 이벤트로 정렬하기 더보기 Option Explicit Sub 매출리스트() Dim Win As Window Dim Wb As Workbook: Set Wb = ThisWorkb.. 2022. 12. 6. 이전 1 다음
