[ExcelVBA] LBound関数

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

■構文
LBound(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 LBound(Test)    '0  
9.       
10.     '2次元の最小値を調べる  
11.     Debug.Print LBound(Test, 2) '0  
12.       
13.     '配列要素の最小値デフォルトは、0なので  
14.     '次元を指定しても0のまま。  
15. End Sub  

Option Explicit

Sub SampleCode()
    '3次元配列の宣言
    Dim Test(2, 3, 4) As String
    
    '1次元の最小値を調べる
    Debug.Print LBound(Test)    '0
    
    '2次元の最小値を調べる
    Debug.Print LBound(Test, 2) '0
    
    '配列要素の最小値デフォルトは、0なので
    '次元を指定しても0のまま。
End Sub

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