본문 바로가기

VBA280

[VBA] 중첩배열이란..... 중첩배열이란 배열에 배열을 담는것이다. 80년대에 이런 유머가 있었다. 고 전두환 대통령이 코끼리를 냉장고에 넣는 방법 [ 코끼리를 데리고 온다. 냉장고 문을 연다 코끼리를 집어 넣는다. 냉장고 문을 닫는다 ] 이게 뭐야 라고 하는 사람들도 있겠지만 본인과 같은 시대를 살아온 사람들은 이게 무슨 뜻인지 알것이다. 각설하고.... 배열도 똑같다.. 우리가 여태 배운건 하나의 배열에 영역을 한방에 넣는거 또는 배열에 값을 하나만 담는 것을 배웠다. 하지만 배열은 우리가 알고 있는 것보다 더 큰 가슴을 가지고 있다. 배열 요소에 숫자, 문자 , 영역, 배열을 캡슐화해서 담아 놓을 수 있다. 문제속 배열에 담긴 각 요소들은 행렬의 크기가 다르기에 Resize(Ubound(배열,1), Ubound(배열,2))로 .. 2022. 12. 8.
[VBA] 영역의 테두리만 색상을 입혀보자 뭔가 화려해보이고 어려워보이지만 합집합과 교집합만 알면 모두가 쉽게 할수 있는 코드이다. 코드 진행은 이렇다. 1. 하나의 큰 영역을 잡고 그 영역내에서 숫자가 있는 영역과 숫자가 없는 영역을 구분한다. 2. 전체 영역중 숫자가 없는 영역만을 순환한다. * 중간에 for i=1 to 2000 ..이 구문은 십자가의 움직임을 보여주기 위한 일종의 딜레이라고 보면 된다. 육안으로는 안보이겠지만 [a1] 셀의 폰트 색상을 검정으로 하면 숫자가 움직이는게 보일것이다. 3. 이때 순환하는 셀을 중심으로 위아래 좌우를 union을 통해 십자가 모양을 만들어 준다. * 십자가를 만들어주는 이유는 데이터가 없는 집합과 데이터가 있는 집합을 이 상태로 라면 절대 교집합이 될 수 없으니 영역을 +1씩 증가시켜 움직임에 날.. 2022. 12. 8.
[VBA] 배열 슬라이싱(feat. 배열맛집) 오늘은 배열 슬라이싱에 관해서 알아보자. 본인이 쓴글에 간간히 배열 슬라이싱에 관해서 구문을 이용한적은 있지만, 요즘 채팅방에서 학구열이 너무 높아져서 배열에 대해서 좀 더 깊이 다루는 문제를 만들어 보았다. 배열 슬라이싱에 관해서 무궁무궁한 질문과 답들이 올라온다 특히 파이썬으로 들어가면 NumPy를 통한 OpenCV문제등 배열을 쪼개고 붙히고 나누는 상황들이 많이 발생하게 된다. 이참에 배열에 좀 더 깊이 들어가시길 바란다. 시작은 Application.index로 시작한다. 이것으로부터 시작하여 배열을 나누고 붙히고 쪼개면 된다. 이글을 읽는 본인들은 기존보다는 더 고급진 당신의 배열의 퀄을 높히기 위해서 들어왔을 것이다. 당신의 한층 더 단단한 배열에 힘을 주었길 바란다. # Ubound(vall.. 2022. 12. 7.
[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.