Come utilizzare la funzione VBA LBound Array? (con esempi)

Funzione LBound di Excel VBA

LBound in VBA sta per "Lower Bound", ovvero estrae il numero più basso di un array. Ad esempio, se l'array dice "Dim ArrayCount (da 2 a 10) as String", utilizzando la funzione LBound possiamo trovare il numero minimo della lunghezza dell'array, ovvero 2.

Di seguito è riportata la sintassi della funzione LBound. È molto semplice e facile; ha solo due parametri.

Lbound (nome array (, dimensione))
  • Nome array: questo è il primo argomento. Per questo parametro, dobbiamo specificare il nome dell'array, che viene utilizzato per definire l'array.
  • (Dimensione): se l'array è una singola dimensione, non è necessario. Per impostazione predefinita, ne richiede uno oppure è necessario fornire il numero di dimensione.

Quindi, usando queste funzioni, possiamo trovare la lunghezza minima di un array.

Come utilizzare la funzione VBA LBound? (Esempio)

Esempio 1

Ad esempio, guarda il codice seguente.

Codice:

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

Nel codice sopra, abbiamo definito l'array come numero intero e la dimensione dell'array come da 2 a 5. Successivamente, abbiamo assegnato alla finestra di messaggio VBA per mostrare la lunghezza più bassa dell'array usando la funzione LBound.

Quando eseguiamo il codice, otterremo il risultato seguente in una finestra di messaggio.

Produzione:

Poiché il nostro array a partire da 2, la funzione LBound determina la lunghezza più bassa dell'array come 2.

Esempio n. 2

Ora guarda il codice sottostante.

Codice:

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

In quanto sopra, non abbiamo deciso il limite più basso. Piuttosto, abbiamo appena fornito la lunghezza dell'array come 5 ora. Eseguiamo il codice e vediamo la lunghezza minima del valore.

Produzione:

Ha restituito il risultato come 0 perché quando non decidiamo l'inizio e la fine di un array, forniamo piuttosto il numero statico, ad esempio, "Count (5), cioè, in questo caso, il valore dell'array che inizia da 0, non da 1. Quindi ora possiamo memorizzare un totale di 6 valori.

Count (0), Count (1), Count (2), Count (3), Count (4), Count (5).

Esempio n. 3

Ora useremo l'intervallo di dati e decideremo il limite inferiore dell'intervallo di dati. Ad esempio, guarda l'immagine dei dati di seguito.

Da questo intervallo, decideremo la dimensione della riga più piccola e più alta.

Innanzitutto, definisci la variabile come una variante.

Codice:

Sub LBound_Example3 () Dim Rng As Variant End Sub

Per questa variabile variante "Rng", impostare il valore di riferimento dell'intervallo come "Intervallo (" B2: B5 "). Valore."

Codice:

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

Per questo intervallo, troveremo la lunghezza dell'array più bassa e più alta. Aprire la finestra di messaggio e la funzione LBound e fornire il nome della variabile.

Codice:

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

Ora esegui il codice VBA e vedi il valore più basso dalla lunghezza.

Produzione:

Ora cambia il riferimento della variabile da B2: B5 a A2: B5.

Per questo intervallo, troveremo i valori del limite inferiore e del limite superiore.

Codice:

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

Poiché abbiamo più di un array di dimensioni, dobbiamo fornire anche il numero di dimensione.

Codice:

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:

Per la prima dimensione, il limite inferiore è 1 e il limite superiore è 4.

Fare clic su "Ok" per ottenere i limiti di dimensione successivi.

Produzione:

Per la seconda dimensione il limite inferiore è 1 e il limite superiore è 2.

Cose da ricordare qui

  • La funzione LBound restituisce la lunghezza minima dell'array.
  • Quando la lunghezza dell'array è statica, ovvero un singolo numero, l'array inizia sempre dal numero 0, non da 1.
  • Nel caso di un array multidimensionale, è necessario specificare il numero di dimensione.

Articoli interessanti...