VBA - UBound 函式

UBound 函式返回指定陣列中較大的下標。因此，此值對應陣列的大小。

語法

UBound(ArrayName[,dimension])

引數說明

• ArrayName − 一個必需的引數。此引數對應陣列的名稱。

• Dimension − 一個可選引數。它採用與陣列維數對應的整數值。如果為“1”，則它返回第一維的下界；如果為“2”，則它返回第二維的下界，依此類推。

示例

新增一個按鈕並新增以下函式。

Private Sub Constant_demo_Click()
   Dim arr(5) as Variant
   arr(0) = "1"           'Number as String
   arr(1) = "VBScript     'String
   arr(2) = 100           'Number
   arr(3) = 2.45          'Decimal Number
   arr(4) = #10/07/2013#  'Date
   arr(5) = #12.45 PM#    'Time
   msgbox("The smallest Subscript value of  the given array is : " & UBound(arr))

   ' For MultiDimension Arrays :
   Dim arr2(3,2) as Variant
   msgbox("The smallest Subscript of the first dimension of arr2 is : " & UBound(arr2,1))
   msgbox("The smallest Subscript of the Second dimension of arr2 is : " & UBound(arr2,2))
End Sub

執行以上函式時，它產生以下輸出。

The smallest Subscript value of the given array is : 5
The smallest Subscript of the first dimension of arr2 is : 3
The smallest Subscript of the Second dimension of arr2 is : 2