엑셀 ArrayDimension 함수 사용법 및 전체 명령문 :: 배열 차원계산

'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ ArrayDimension 함수
'▶ 배열의 차원수를 반환합니다.
'▶ 인수 설명
'_____________vaArray     : 차원을 검토할 배열을 입력합니다.
'###############################################################
Function ArrayDimension(vaArray As Variant) As Integer
 
Dim i As Integer: Dim x As Integer
 
On Error Resume Next
 
Do
    i = i + 1
    x = UBound(vaArray, i)
Loop Until Err.Number <> 0
 
Err.Clear
 
ArrayDimension = i - 1
 
End Function

Sub Test()
 
Dim vaArray1 As Variant
Dim vaArray2 As Variant
 
ReDim vaArray1(0 To 3, 0 To 3)
ReDim vaArray2(0 To 3, 0 To 3, 0 To 3)
 
MsgBox "vaArray1 의 차원은 " & ArrayDimension(vaArray1) & "차원 입니다."
MsgBox "vaArray2 의 차원은 " & ArrayDimension(vaArray2) & "차원 입니다."
 
End Sub