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("给定数组的最小下标值为 : " & UBound(arr))

   ' For MultiDimension Arrays :
   Dim arr2(3,2) as Variant
   msgbox("arr2 第一维的最小下标是 : " & UBound(arr2,1))
   msgbox("arr2 第二维的最小下标是 : " & UBound(arr2,2))
End Sub

当您执行上述函数时，它会产生以下输出。

给定数组的最小下标值为 : 5
arr2 第一维的最小下标为 : 3
arr2 第二维的最小下标是 : 2

❮ vba_arrays.html