¿Cómo usar la función UBound en VBA?

Contenido

1 Arreglo unidimensional
2 Arreglos multidimensionales
3 Conoce nuestra tienda
- - 3.0.1 Ver más productos
4 Mejora tu nivel y logra tus objetivo
5 Ayúdanos a hacer crecer el proyecto
6 ¡Únete a nuestro Grupo de Facebook!
- 6.1 Relacionado

En VBA (Visual Basic for Applications), la función UBound se utiliza para obtener el límite superior (es decir, el índice máximo) de una dimensión en un arreglo. Es especialmente útil cuando se trabaja con arreglos dinámicos o cuando no se sabe de antemano el tamaño del arreglo.

Para usar la función UBound, primero debes tener un arreglo para trabajar. A continuación se muestra cómo puedes usar la función UBound.

Arreglo unidimensional

VBA


Sub EjemploUBound()
    ' Define un arreglo unidimensional con algunos elementos
    Dim miArreglo() As Integer
    miArreglo = Array(1, 2, 3, 4, 5)
    
    ' Utiliza UBound para obtener el índice más alto del arreglo
    Dim indiceMaximo As Integer
    indiceMaximo = UBound(miArreglo)
    
    ' Muestra el índice máximo en una caja de mensaje
    MsgBox "El índice más alto del arreglo es: " & indiceMaximo
End Sub

En este ejemplo, UBound devolverá 4, ya que los índices en VBA comienzan en cero por defecto y el arreglo tiene 5 elementos (índices del 0 al 4).

Arreglos multidimensionales

VBA


Sub EjemploUBoundMultidimensional()
    ' Define un arreglo bidimensional con algunos elementos
    Dim miArreglo(1 To 3, 1 To 4) As Integer
    
    ' Utiliza UBound para obtener el índice más alto de la primera dimensión
    Dim indiceMaximoDim1 As Integer
    indiceMaximoDim1 = UBound(miArreglo, 1)
    
    ' Utiliza UBound para obtener el índice más alto de la segunda dimensión
    Dim indiceMaximoDim2 As Integer
    indiceMaximoDim2 = UBound(miArreglo, 2)
    
    ' Muestra los índices máximos en una caja de mensaje
    MsgBox "El índice más alto de la primera dimensión es: " & indiceMaximoDim1
    MsgBox "El índice más alto de la segunda dimensión es: " & indiceMaximoDim2
End Sub

En este ejemplo, para el arreglo bidimensional, UBound(miArreglo, 1) devolverá 3, y UBound(miArreglo, 2) devolverá 4, que son los límites superiores de la primera y segunda dimensión del arreglo, respectivamente.

Recuerda que puedes utilizar UBound junto con LBound, que devuelve el límite inferior de un arreglo, para recorrer todos los elementos de un arreglo utilizando un bucle For:

VBA


Sub RecorrerArreglo()
    ' Define un arreglo unidimensional
    Dim miArreglo() As Integer
    miArreglo = Array(10, 20, 30, 40, 50)
    
    ' Recorre el arreglo desde el límite inferior al límite superior
    Dim i As Integer
    For i = LBound(miArreglo) To UBound(miArreglo)
        ' Realiza alguna operación con cada elemento del arreglo
        MsgBox "Elemento " & i & ": " & miArreglo(i)
    Next i
End Sub