VBA – Funções UBound e LBound

UBound Descrição

Retorna o subscrito mais alto de uma dimensão de uma matriz.

Exemplos Simples de UBound

Sub UBound_Examplo()
 Dim a(3 To 10) As Integer
 MsgBox UBound(a)
End Sub

Resultado: 10

Sintaxe do UBound

UBound(NomeMatriz, [ Dimensão ])

A função UBound contém 2 argumentos:

NomeMatriz: Nome da variável Matriz.

Dimensão: [Opcional] Número inteiro que indica qual limite superior da dimensão é retornado. Use 1 para a primeira dimensão, 2 para a segunda, etc. 1 se omitido.

Exemplos da Função UBound do Excel VBA

Sub UBound_Example1()
 Dim arrValor(1 To 5, 4 To 8, 12 To 25)
 MsgBox UBound(arrValor)
 MsgBox UBound(arrValor, 1)
 MsgBox UBound(arrValor, 2)
 MsgBox UBound(arrValor, 3)
End Sub

Resultado: 5, 5, 8, 25

LBound Descrição

Retorna o menor subscrito de uma dimensão de uma matriz.

Exemplos Simples de LBound

Sub LBound_Examplo()
 Dim a(3 To 10) As Integer
 MsgBox LBound(a)
End Sub

Resultado: 3

Sintaxe de LBound

LBound(NomeMatriz, [ Dimensão ])

A função LBound contém 2 argumentos:

NomeMatriz: Nome da variável Matriz.

Dimensão: [Opcional] Número inteiro que indica qual limite inferior da dimensão é retornado. Use 1 para a primeira dimensão, 2 para a segunda, etc. 1 se omitido.

Exemplos da Função LBound do Excel VBA

Sub LBound_Examplo1()
 Dim arrValor(1 To 5, 4 To 8, 12 To 25)
 MsgBox LBound(arrValor)
 MsgBox LBound(arrValor, 1)
 MsgBox LBound(arrValor, 2)
 MsgBox LBound(arrValor, 3)
End Sub

Resultado: 1, 1, 4, 12