본문 바로가기

MAKEARRAY3

[365 함수리뷰] MAKEARRAY 구구단 만들기 코드 한줄.... 참 쉽쥬~~ =MAKEARRAY(9,8,LAMBDA(r,c,(c+1) & " X " & r & " = " & (c+1)*r)) 1. MAKEARRAY로 신규배열 생성 2. 행렬의 값을 각각 9,8로 LAMBDA에 매개변수 r,c에 인자 전달 3. MAKEARRAY로 전달된 값의 1부터 전달된 값까지 반복한다. 4. 만들어진 구구단을 보면서 흡족해한다. 2023. 10. 19.
[기초방] VBA 100제 #80 [ 테이블교차하기 ] 우선 이 문제를 낸 의도는 MAKEARRAY를 지난시간에 이어서 연습보려고 만들었다. 역시 서랍님은 바로 만들어 보였다...역시 ㄷㄷ 우선 이렇게 교차해야 되고 똑딱똑딱 토글형태로 TRUE, FALSE가 반복된다면 Boolean으로 코드가 간단하고 쉬어진다. Dim bln As Boolean Do bln = Not bln Loop 이렇게 하면 루프를 돌면서 한번은 TRUE 한번은 FALSE 값을 가지게 된다. 그러면 우리는 TRUE / FALSE에 값들을 달리해서 구문을 풀어내면 된다. r = r key = IIf(bln = False, vA, vB) r = IIf(bln = False, r + 1, r) TRUE일때는 왼쪽 표의 값 / FALSE일때는 오른쪽 표의 값 TRUE일때는 왼쪽 표의 새로운 행.. 2023. 10. 19.
[기초방] VBA 100제 #79 [ 로또번호 정렬하기 ] 결합되어 있는 로또번호를 풀어서 각 사람의 로또 번호를 정렬하는 구문이다. 이 문제를 해결하기 위해서는 2가지를 알고 있어야 한다. 1. 문제에서는 숫자들이 문자열로 조합이 되어 있기 때문에 저상태에서 SPLIT를 하게 되면 숫자들이 문자화 되어서 정렬을 하게 될경우, 숫자가 아닌 문자로 인식하기에 문자열 정렬이 된다 rngX.Resize(1, 7).NumberFormatLocal = "G/표준" rngX.Resize(1, 7).Value = rngX.Resize(1, 7).Value 영역을 선택 후 초기화 한후 다시 VALUE값으로 씌어주면 된다. 두번째는 행단위 정렬이다. rngX(1, 2).Resize(1, 6).Sort rngX(1, 2), Orientation:=2 이 두 구문을 모를 경우 문제.. 2023. 10. 19.