[ExcelVBA] UBound関数

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

■構文
UBound(arrayname[, dimension])

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

■サンプルコード

view plainprint?

1. Option Explicit  
2.   
3. Sub SampleCode()  
4.     '3次元配列の宣言  
5.     Dim Test(2, 3, 4) As String  
6.       
7.     '1次元の最小値を調べる  
8.     Debug.Print UBound(Test)    '2  
9.       
10.     '2次元の最小値を調べる  
11.     Debug.Print UBound(Test, 2) '3  
12.       
13.     '3次元の最小値を調べる  
14.     Debug.Print UBound(Test, 3) '4  
15. End Sub  

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] 関数一覧