VBA UBound関数とLBound関数

Written by

Editorial Team

Reviewed by

Steve Rynearson

Translated by

masahiro yoshida

Last updated on 6月 13, 2022

UBound の説明


UBound の簡単な例

Sub UBound_Example()
    Dim a(3 To 10) As Integer
    MsgBox UBound(a)
End Sub

結果: 10

UBound の構文

UBound(ArrayName, [ Dimension ])


ArrayName : 配列の名前。

Dimension : [オプション] どの次元の上限を返すかを示す整数。1次元目には1を、2次元目には2を、といった具合に使用する。省略された場合は1。

Excel VBA UBound関数の例

Sub UBound_Example1()
    Dim arrValue(1 To 5, 4 To 8, 12 To 25)
    MsgBox UBound(arrValue)
    MsgBox UBound(arrValue, 1)
    MsgBox UBound(arrValue, 2)
    MsgBox UBound(arrValue, 3)
End Sub

結果:5, 5, 8, 25

LBound の説明


LBound の簡単な例

Sub LBound_Example()
    Dim a(3 To 10) As Integer
    MsgBox LBound(a)
End Sub

結果: 3

LBound の構文


(ArrayName, [ ディメンジョン ]) LBound関数は、2つの引数を持ちます。

ArrayName : 配列の名前。

Dimension : [オプション] どの次元の下限を返すかを示す整数。1次元目には1を、2次元目には2を、といった具合に使用する。省略された場合は1。

Excel VBA LBound関数の例

Sub LBound_Example1()
    Dim arrValue(1 To 5, 4 To 8, 12 To 25)
    MsgBox LBound(arrValue)
    MsgBox LBound(arrValue, 1)
    MsgBox LBound(arrValue, 2)
    MsgBox LBound(arrValue, 3)
End Sub

結果:1, 1, 4, 12


VBA Code Examples Add-in

Easily access all of the code examples found on our site.

Simply navigate to the menu, click, and the code will be inserted directly into your module. .xlam add-in.

(No installation required!)

Free Download

Return to VBA Code Examples