配列 配列の指定された次元で使用できる添字の最小値を返す。

VB&VBA
FROG ふろっぐ
 
  • オプション

    本文印刷

    お気に入りに追加

  • 検索

    Googlewwwjp-ia
     

    Googlewwwjp-ia
     
  • 情報

  • 関連

[VB&VBA][配列 配列の指定された次元で使用できる添字の最小値を返す。]

Sub 配列の最小値()
'******************************************************
'配列の指定された次元で使用できる添字の最小値を返す。
'******************************************************

Dim Upper(4) As Long
Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' 配列変数を宣言します。
Dim AnyArray(10)

Upper(1) = LBound(MyArray, 1)    '  1 が返ります。
Upper(2) = LBound(MyArray, 2)    '  5 が返ります。
Upper(3) = LBound(MyArray, 3)    ' 10 が返ります。
Upper(4) = LBound(AnyArray)      '  0 が返ります。

MsgBox Upper(1) & vbCr & Upper(2) & vbCr & Upper(3) & vbCr & Upper(4)
End Sub





Production Japan Import Application. Since 1998