配列 配列の指定された次元で使用できる添字の最小値を返す。
※より実装に近く表示させる為、コードの改行を避けています。スマホ等で閲覧される際は向きを変えてご覧ください。
※実装するバージョンによってはバージョンアップの仕様により動作しないコードもあります。実装には動作確認の上ご使用下さい。
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 |