VBA UBound()函式

LBound()函式返回指定陣列的最大下標。 因此，這個值對應於陣列的大小。

語法

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 Largest Subscript value of the given array is : 5
The Largest Subscript of the first dimension of arr2 is : 3
The Largest Subscript of the Second dimension of arr2 is : 2