¿Cómo obtener la longitud de la array en Excel VBA?

Usamos las funciones UBound y LBound para obtener la longitud de un Array en Excel VBA. En este artículo, los discutiremos en detalle.

Sintaxis: función UBound()

UBound (arrayname, [ dimension ])

Parámetros:

• nombre de array: requerido. Nombre de variable de array
• dimensión: opcional

Devoluciones: Devuelve el límite superior de una dimensión de array.

Sintaxis : Función LBound()

LBound (arrayname, [ dimension ])

Parámetros:

• nombre de array: requerido. Nombre de variable de array
• dimensión: opcional

Devoluciones: Devuelve el límite inferior de una dimensión de array

Data de muestra: 

Código VBA para obtener la longitud de Array ( array unidimensional ):

Declarar Variables:

Declarar una array de clientes con el tamaño de 10.

Sub oneDimArrayLength()
' Array variable Declaration
Dim customer (1 To 10) As String

Asignar valores a los elementos de la array

customer(1) = "ANTON"
customer(2) = "BERGS"
customer(3) = "BOLID"
customer(4) = "KOENE"
customer(5) = "FRANS"

Use la función UBound para obtener el tamaño de una array y el cuadro de mensaje para mostrar el resultado

'Message box to popup length of 1D array
MsgBox "Array has " & UBound(customer) & " element(s)."

End Sub

Para ejecutar código VBA

Presione Alt+F8 para abrir la ventana de macros. Seleccione » oneDimArrayLength » y haga clic en el botón Ejecutar .

Producción

Código VBA para obtener la longitud de Array (array multidimensional)

Declarando variables:

Declarar el tamaño de array multidimensional de ProdAndCustomer de 10 filas y 2 columnas

Sub twoDimArrayLength()

' Array variable Declaration
Dim ProdAndCustomer(1 To 10, 1 To 2) As String, noOfRow As Integer, noOfCol As Integer, noOfElements As Integer

Asignar valores a los elementos de la array

ProdAndCustomer(1, 1) = "Alice Mutton"
ProdAndCustomer(2, 1) = "Boston Crab Meat"
ProdAndCustomer(3, 1) = "Camembert Pierrot"
ProdAndCustomer(4, 1) = "Alice Mutton"
ProdAndCustomer(5, 1) = "Ipoh Coffee"

ProdAndCustomer(1, 2) = "ANTON"
ProdAndCustomer(2, 2) = "BERGS"
ProdAndCustomer(3, 2) = "BOLID"
ProdAndCustomer(4, 2) = "BOTTM"
ProdAndCustomer(5, 2) = "FURIB"

Calcule el número de filas, el número de columnas usando la función UBound y LBound. Multiplique por la variable noOfRow y noOfCol para obtener el Número de elementos en una array multidimensional. 

noOfRow = UBound(ProdAndCustomer, 1) - LBound(ProdAndCustomer, 1) + 1
noOfCol = UBound(ProdAndCustomer, 2) - LBound(ProdAndCustomer, 2) + 1
noOfElements = noOfRow * noOfCol

Cuadro de mensaje para mostrar el resultado

'Message box to popup length of 1D array
MsgBox "Array has " & noOfElements & " element(s)."

End Sub

Para ejecutar código VBA

Presione Alt+F8 para abrir la ventana de macros. Seleccione » twoDimArrayLength » y haga clic en el botón Ejecutar .

Producción: