Função Excel VBA LBound
LBound em VBA significa “Lower Bound”, ou seja, extrairá o menor número de um array. Por exemplo, se o array diz “Dim ArrayCount (2 a 10) as String”, então usando a função LBound podemos encontrar o menor número do comprimento do array, ou seja, 2.
Abaixo está a sintaxe da função LBound. É muito simples e fácil; ele tem apenas dois parâmetros.
Lbound (nome da matriz (, dimensão))
- Nome da matriz: este é o primeiro argumento. Para este parâmetro, precisamos especificar o nome do array, que é usado para definir o array.
- (Dimensão): Se a matriz for uma dimensão única, isso não é necessário. Por padrão, leva um, ou então precisamos fornecer o número da dimensão.
Então, usando essas funções, podemos encontrar o comprimento mínimo de um array.
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples.png.webp)
Como usar a função VBA LBound? (Exemplo)
Exemplo 1
Por exemplo, observe o código abaixo.
Código:
Sub LBound_Example1 () Dim Count (2 a 5) As Integer MsgBox LBound (Count) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_2.png.webp)
No código acima, definimos o array como inteiro e o tamanho do array como 2 a 5. Em seguida, atribuímos a caixa de mensagem VBA para mostrar o menor comprimento do array usando a função LBound.
Quando executarmos o código, obteremos o resultado abaixo em uma caixa de mensagem.
Resultado:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_3.png.webp)
Como nosso array começa em 2, a função LBound determina o menor comprimento do array como 2.
Exemplo # 2
Agora, olhe para o código abaixo.
Código:
Sub LBound_Example2 () Dim Count (5) As Integer MsgBox LBound (Count) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_4.png.webp)
Acima, não decidimos sobre o limite mais baixo. Em vez disso, apenas fornecemos o comprimento do array como 5 agora. Vamos executar o código e ver o menor comprimento do valor.
Resultado:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_5.png.webp)
Ele retornou o resultado como 0 porque quando não decidimos o ponto inicial e final de uma matriz, em vez disso, fornecemos o número estático, por exemplo, “Contagem (5), ou seja, neste caso, o valor da matriz iniciando em 0, não de 1. Portanto, podemos armazenar um total de 6 valores agora.
Contagem (0), Contagem (1), Contagem (2), Contagem (3), Contagem (4), Contagem (5).
Exemplo # 3
Agora vamos usar o intervalo de dados e decidir o limite inferior do intervalo de dados. Por exemplo, observe a imagem de dados abaixo.
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_6.png.webp)
A partir desse intervalo, decidiremos o menor e o maior tamanho da linha.
Primeiro, defina a variável como uma variante.
Código:
Sub LBound_Example3 () Dim Rng As Variant End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_7.png.webp)
Para esta variável de variante “Rng”, defina o valor de referência do intervalo como “Intervalo (“ B2: B5 ”). Valor.”
Código:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Valor End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_8.png.webp)
Para este intervalo, encontraremos o menor e o maior comprimento de array. Abra a caixa de mensagem e a função LBound e forneça o nome da variável.
Código:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Valor MsgBox LBound (Rng) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_9.png.webp)
Agora execute o código VBA e veja o menor valor do comprimento.
Resultado:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_10.png.webp)
Agora mude a referência da variável de B2: B5 para A2: B5.
Para este intervalo, encontraremos os valores dos limites inferior e superior.
Código:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("A2: B5"). Valor End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_11.png.webp)
Como temos mais de uma matriz de dimensão, precisamos fornecer o número da dimensão também.
Código:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_12.png.webp)
To find the first column first lower bound above code will help, similarly to find the upper bound in this first column below code will help.
Code:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_13.png.webp)
This will find the first column lower length and upper length. Similarly, in the next line, write one more message box but this time, change the dimension from 1 to 2.
Code:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) MsgBox LBound(Rng, 2) & vbNewLine & UBound(Rng, 2) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_14.png.webp)
Run the code and see the result in the message box.
Output:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_15.png.webp)
Para a primeira dimensão, o limite inferior é 1 e o limite superior é 4.
Clique em “Ok” para obter os próximos limites de dimensão.
Resultado:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_16.png.webp)
Para a segunda dimensão, o limite inferior é 1 e o limite superior é 2.
Coisas para lembrar aqui
- A função LBound retorna o comprimento mínimo da matriz.
- Quando o comprimento do array é estático, ou seja, um único número, o array sempre começa a partir do número 0, não de 1.
- No caso de uma matriz multidimensional, precisamos especificar o número da dimensão.