VBA에서 배열을 크기를 미리 정하지 않고, 흐름에 따라서 배열 크기를 증가시키면서 사용하는 것을 동적 배열이라 하고, 이 때 redim preserve를 사용하게 된다. 일반적인 사용법을 찾아보면, redim preserve는 일차원 배열에 대해서만 사용가능하다고 나와있어, 다차원 배열을 사용하고자 할때는 어려움이 있었다. 좀 더 내용을 찾아보니, 배열에 배열을 저장하는 방식으로 사용하면, 다차원 배열처럼 사용할 수 있음을 알게 되었다. 일반적인 다차원 배열 저장방식 Sub test_array() Dim aTemp(), aTemp1(), aTemp2() Dim atest ReDim aTemp2(2, 1) aTemp2(0, 0) = "a" aTemp2(0, 1) = 1 aTemp2(1, 0) = "b" ..
[Excel VBA] 3점을 지나는 원 중심 좌표 및 반지름
3점을 지나는 원곡선의 중심좌표 및 반지름을 구하는 공식을 정리하였다. 원의 기본 방정식 : (X - X0)^2 + (Y - Y0)^2 = R^2 X^2 - 2XX0 + X0^2 + Y^2 - 2YY0 + Y0^2 = R^2 X^2 - 2XX0 + Y^2 - 2YY0 = R^2 - X0^2 - Y0^2 여기서, 반지름 R, 원 중심 X0 및 Y0는 상수이므로, 아래와 같이 C로 치환하면, C = R^2 - X0^2 - Y0^2 X^2 + Y^2 = C + 2XX0 + 2YY0 2X X0 + 2Y Y0 + C = X^2 + Y^2 즉, 세점 (Xi, Yi), (Xj, Yj), (Xk, Yk) 가 주어졌을때, [ 2Xi 2Yi 1 ] [X0] = [ Xi^2 + Yi^2 ] [ 2Xj 2Yj 1 ] [Y0]..
직접 수식을 이용하여 역행렬을 계산하는 알고리즘.행렬크기가 2X2이거나 3X3일때는 다음을 이용하여 계산하면 빠르게 구할 수 있다.소스코드는 Javascript를 이용한 것이므로, 다른 프로그램을 이용할 경우는 해당 프로그램의 문법에 맞춰 수정해야한다. if( mat.length == 2 ){ det = mat[0][0] * mat[1][1] - mat[1][0] * mat[0][1]; if( det == 0 ){ alert( "matrix is singular!"); } else { minv = []; minv.push( [ mat[1][1] / det, -1*mat[0][1] / det ] ); minv.push( [ -1* mat[1][0] / ..