Longitud / tamaño de la matriz VBA

Este tutorial le enseñará cómo obtener la longitud (tamaño) de una matriz en VBA.

Obtener la longitud de la matriz

Para obtener la longitud de una matriz, debe conocer las posiciones inicial y final de la matriz. Puede hacer esto con las funciones UBound y LBound de VBA.

Funciones LBound y UBound

Este procedimiento demuestra cómo utilizar las funciones UBound y LBound en una matriz de una sola dimensión:

123456

Sub UBoundLBound ()Dim exArr (1 a 4) como cadenaMsgBox UBound (exArr)MsgBox LBound (exArr)End Sub

Restar los dos le dará la longitud de la matriz (UBound - LBound +1).

Obtener la función de longitud de matriz

Esta función calculará el tamaño (longitud) de una matriz unidimensional:

1234567

Función pública GetArrLength (a As Variant) As LongSi está vacío (a) EntoncesGetArrLength = 0DemásGetArrLength = UBound (a) - LBound (a) + 1Terminara siFunción final

Obtenga tamaño de matriz 2D

Esta función calculará el número de posiciones en una matriz bidimensional:

12345678910111213141516171819

Sub testArrySize ()Dim arr2D (1 a 4, 1 a 4) siempre queMsgBox GetArrSize_2D (arr2D)End SubFunción pública GetArrSize_2D (a As Variant) As LongDim x tan largo, y tan largoSi está vacío (a) EntoncesGetArrSize_2D = 0Demásx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yTerminara siFunción final