[Excel VBA]配列の次元数を調べる(マクロ)

VBA(Excel)

2016.12.272025.01.22

この記事は約1分で読めます。

記事内に広告が含まれていることがあります。

おひさしぶりです。

今回は、配列の次元数を求めるコードを紹介します。

基本的に、VBAでは直接的に次元数を求める関数などはありません。

そのためUBoundの２つ目の引数を使用して、間接的に次元数を求めていきます。

'返り値
'配列ではない場合:0
'配列の場合     :次元数
Function RankCount(ByRef ArrayData As Variant) As Long

    Dim Tmp As Variant

    RankCount = 0

    On Error Resume Next

    'エラーにならない限り、次元数を増やして確認。
    Do While Err.Number = 0
    
        RankCount = RankCount + 1
        Tmp = UBound(ArrayData, RankCount)
        
    Loop
    
    On Error GoTo 0
    
    Err.Clear
    RankCount = RankCount - 1
    
End Function

'返り値

'配列ではない場合:0

'配列の場合 :次元数

Function RankCount(ByRef ArrayData As Variant) As Long

Dim Tmp As Variant

RankCount = 0

On Error Resume Next

'エラーにならない限り、次元数を増やして確認。

Do While Err.Number = 0

RankCount = RankCount + 1

Tmp = UBound(ArrayData, RankCount)

Loop

On Error GoTo 0

Err.Clear

RankCount = RankCount - 1

End Function

使い方

Sub Main()

    Dim Hairetsu(1 to 10,4,5 to 7)

    Msgbox RankCount(Hairetsu) '返り値 3

End Sub

Sub Main()

Dim Hairetsu(1 to 10,4,5 to 7)

Msgbox RankCount(Hairetsu) '返り値 3

End Sub

以上になります。

---コメント---