본문 바로가기

배열6

[기초방] VBA 100제 #95 [열을 역순으로 복사] 📋 코드 구간별 설명1. 변수 선언과 범위 설정rngAll: B4범위를 선택해 이 범위의 **모든 열(Column)**을 순회할 준비를 한다.rngX: 복사한 데이터를 붙여넣을 시작 지점으로 V4 셀이 설정된다.Vtemp: 각 열의 데이터를 임시로 저장하는 배열 변수로 사용된다.rngA: 반복문에서 각 열을 처리할 임시 변수로 사용된다.2. 반복문 (For Each)을 통한 열 단위 순회**rngAll.Columns**를 사용해 B4범위의 열 단위로 순회한다.매 반복마다 현재 열의 데이터를 배열 형태로 Vtemp에 저장한다.이때, 2차원 배열로 저장되어 각 행의 데이터가 그대로 유지된다.3. 데이터 복사와 크기 조정**rngX.Resize**를 사용해 V4부터 시작하는 셀의 행 크기를 Vtemp 배열 .. 2024. 10. 25.
[VBA] 매출을 정렬해보자(Feat. ArrayList, RegExp) 정렬문제는 솔직히 좀 짜증난다.. 굳이 매크로로 안해도 되기에 이게 과제로 나오면 그냥 몸이 꼬이고 그냥 건드리기가 싫어진다. 그래서 문제를 좀 더 꼬아서 만들어 보았다. 문제는 괄호속 매출 기준으로 내림차순 정렬을 하고 순번으로 오름차순 정렬을 하는것이다. 순번과 매출이 모두 숫자가 아니라 텍스트화 되어 있기 때문에 이 상태로 정렬을 하게되면 1, 10, 11, 2, 21, 29,3 .... 뭐 이런식으로 정렬이 될 것이다. 따라서 이러한 문제를 풀기 위해서는 매출을 뽑아내고 이것을 다시 숫자화 시켜서 정렬을 하여야 한다. 그런 다음 이 숫자화 되어 있는 매출을 순환 하면서 원본 데이터에 이 텍스트화 된 데이터에 매출이 있는지 확인 하기 위해서 다시 텍스트화 시켜서 비교하면서 배열에 담아야 한다. 풀이.. 2022. 12. 13.
[VBA] 스토쿠를 풀어보자(Feat. 앳마) https://1stminokingdom.tistory.com/74 [VBA]스토쿠를 풀어보자 VBA를 처음배우면서 언젠가 꼭 해보고 싶다하고 한게 스토쿠였다. 그때는 막연하게 꿈일것만 같았던 일이 VBA를 배운지 2년 정도되니 구현을 할 수 있게 되었다. 물론 정말 잘하는 분들이 풀어놓 1stminokingdom.tistory.com 이전 스토쿠1 버전에서는 본인이 직접 푸는 방식으로 풀다가 경우의 수가 너무 많아질때는 그냥 1부터 9까지 하나씩 넣어보는 방식으로 풀었다고 하면 이번 공개할 코드는 그냥 처음부터 1부터 9까지 경우의 수를 넣어서 푸는 방식으로 구현하였다. 코드의 가이드 라인은 앳마님 블로그에서 참고를 하였다. https://m.blog.naver.com/PostView.naver?isH.. 2022. 5. 16.
[VBA] 딕셔너리 배열로 대체하기 딕셔너리를 두고 자꾸 왜 뻘짓을 하는지... 딕셔너리를 대체하는 배열을 만들어 보았다... 데이터가 많으면 컴이 뻗어 버린다.... 딕셔너리 열심히 하자... Option Explicit Sub Haja_딕셔너리_대체() Dim vall: vall = Range([c3], [c3].End(2).End(4)) '= 영역설정 Dim Va, Vresult() '= 결과 배열과 개체순환배열 Dim Str '= 배열의 index 위치값 Dim n&, i&, r&: r = 1 '= 결과 배열과 전체배열의 반복 변수 Dim Cmax&: Cmax = 2 '= 결과 배열의 전체 열너비 크기 [j2].CurrentRegion.Clear '= 초기화 ReDim Vresult(1 To UBound(vall, 1), 1 To .. 2022. 4. 8.