VBA UBound函數

UBound 函數

UBound 函數返回指定數組的最大下標。因此，這個值對應於該數組的大小。

語法 :

UBound(ArrayName[,dimension])

1. ArrayName, 必需的參數。該參數對應於所述數組的名稱。

2. 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