[ExcelVBA] UBound関数

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧

■構文
UBound(arrayname[, dimension])

■説明
配列の要素で最大の添字を返します。
第一引数：配列を指定します。
第二引数：(省略可能)添字の最大値を調べる対象となる配列の次元を指定。省略時１となります。

■サンプルコード

Option Explicit

Sub SampleCode()
    '3次元配列の宣言
    Dim Test(2, 3, 4) As String
    
    '1次元の最小値を調べる
    Debug.Print UBound(Test)    '2
    
    '2次元の最小値を調べる
    Debug.Print UBound(Test, 2) '3
    
    '3次元の最小値を調べる
    Debug.Print UBound(Test, 3) '4
End Sub

>Blog Top Page >[ExcelVBA] Top Page >[ExcelVBA] 関数一覧