Comment utiliser la fonction VBA LBound Array? (avec exemples)

Fonction Excel VBA LBound

LBound dans VBA signifie «Lower Bound», c'est-à-dire qu'il extraira le plus petit nombre d'un tableau. Par exemple, si le tableau dit «Dim ArrayCount (2 to 10) as String», alors en utilisant la fonction LBound, nous pouvons trouver le plus petit nombre de la longueur du tableau, c'est-à-dire 2.

Voici la syntaxe de la fonction LBound. C'est très simple et facile; il n'a que deux paramètres.

Lbound (nom du tableau (, dimension))

• Nom du tableau: il s'agit du premier argument. Pour ce paramètre, nous devons spécifier le nom du tableau, qui est utilisé pour définir le tableau.
• (Dimension): si le tableau est une dimension unique, cela n'est pas obligatoire. Par défaut, il en faut un, sinon nous devons fournir le numéro de dimension.

Ainsi, en utilisant ces fonctions, nous pouvons trouver la longueur minimale d'un tableau.

Comment utiliser la fonction VBA LBound? (Exemple)

Exemple 1

Par exemple, regardez le code ci-dessous.

Code:

Sub LBound_Example1 () Dim Count (2 To 5) As Integer MsgBox LBound (Count) End Sub

Dans le code ci-dessus, nous avons défini le tableau comme un entier et la taille du tableau comme 2 à 5. Ensuite, nous avons affecté la boîte de message VBA pour afficher la longueur la plus basse du tableau à l'aide de la fonction LBound.

Lorsque nous exécutons le code, nous obtiendrons le résultat ci-dessous dans une boîte de message.

Production:

Depuis notre tableau à partir de 2, la fonction LBound détermine la longueur la plus basse du tableau comme 2.

Exemple # 2

Maintenant, regardez le code ci-dessous.

Code:

Sub LBound_Example2 () Dim Count (5) As Integer MsgBox LBound (Count) End Sub

Dans ce qui précède, nous n'avons pas décidé de la limite la plus basse. Nous avons plutôt fourni la longueur du tableau en tant que 5 maintenant. Exécutons le code et voyons la longueur la plus basse de la valeur.

Production:

Il a renvoyé le résultat à 0 car lorsque nous ne décidons pas du début et de la fin d'un tableau, fournissez plutôt le nombre statique, par exemple, «Count (5), c'est-à-dire, dans ce cas, la valeur du tableau commençant à 0, pas à partir de 1. Nous pouvons donc y stocker un total de 6 valeurs maintenant.

Compte (0), Nombre (1), Nombre (2), Nombre (3), Nombre (4), Nombre (5).

Exemple # 3

Nous allons maintenant utiliser la plage de données et décider de la limite inférieure à partir de la plage de données. Par exemple, regardez l'image de données ci-dessous.

À partir de cette plage, nous déciderons de la taille de ligne la plus petite et la plus élevée.

Tout d'abord, définissez la variable comme une variante.

Code:

Sub LBound_Example3 () Dim Rng As Variant End Sub

Pour cette variable de variante "Rng", définissez la valeur de référence de la plage sur "Plage (" B2: B5 "). Valeur."

Code:

Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Valeur End Sub

Pour cette plage, nous trouverons la longueur de tableau la plus basse et la plus élevée. Ouvrez la boîte de message et la fonction LBound et indiquez le nom de la variable.

Code:

Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Valeur MsgBox LBound (Rng) End Sub

Exécutez maintenant le code VBA et voyez la valeur la plus basse de la longueur.

Production:

Modifiez maintenant la référence de variable de B2: B5 à A2: B5.

Pour cette plage, nous trouverons les valeurs de limite inférieure et supérieure.

Code:

Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("A2: B5"). Valeur End Sub

Puisque nous avons plus d'un tableau de dimension, nous devons également fournir le numéro de dimension.

Code:

Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) End Sub

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

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

Run the code and see the result in the message box.

Output:

Pour la première dimension, la limite inférieure est 1 et la limite supérieure est 4.

Cliquez sur "Ok" pour obtenir les prochaines limites de dimension.

Production:

Pour la deuxième dimension, la limite inférieure est 1 et la limite supérieure est 2.

Choses à retenir ici

• La fonction LBound renvoie la longueur minimale du tableau.
• Lorsque la longueur du tableau est statique, c'est-à-dire un seul nombre, le tableau commence toujours par le nombre 0, pas par 1.
• Dans le cas d'un tableau multidimensionnel, nous devons spécifier le numéro de dimension.