2011年12月11日日曜日

[ExcelVBA] LBound関数


■構文
LBound(arrayname[, dimension])

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

■サンプルコード
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

0 件のコメント: