Wie verwende ich die VBA LBound Array Funktion? (mit Beispielen)

Excel VBA LBound-Funktion

LBound in VBA steht für "Lower Bound", dh es wird die niedrigste Nummer eines Arrays extrahiert. Wenn das Array beispielsweise "Dim ArrayCount (2 bis 10) as String" anzeigt, können wir mit der LBound-Funktion die kleinste Anzahl der Array-Länge ermitteln, dh 2.

Unten finden Sie die Syntax der LBound-Funktion. Es ist sehr einfach und leicht; Es gibt nur zwei Parameter.

Lbound (Arrayname (, Dimension))

• Array-Name: Dies ist das erste Argument. Für diesen Parameter müssen wir den Namen des Arrays angeben, mit dem das Array definiert wird.
• (Dimension): Wenn das Array eine einzelne Dimension ist, ist dies nicht erforderlich. Standardmäßig ist eine erforderlich, oder wir müssen die Dimensionsnummer angeben.

Mit diesen Funktionen können wir also die Mindestlänge eines Arrays ermitteln.

Wie benutze ich die VBA LBound Funktion? (Beispiel)

Beispiel 1

Schauen Sie sich zum Beispiel den folgenden Code an.

Code:

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

Im obigen Code haben wir das Array als Ganzzahl und die Größe des Arrays als 2 bis 5 definiert. Als Nächstes haben wir das VBA-Meldungsfeld zugewiesen, um mithilfe der LBound-Funktion die niedrigste Länge des Arrays anzuzeigen.

Wenn wir den Code ausführen, erhalten wir das folgende Ergebnis in einem Meldungsfeld.

Ausgabe:

Da unser Array bei 2 beginnt, bestimmt die LBound-Funktion die niedrigste Länge des Arrays als 2.

Beispiel 2

Schauen Sie sich nun den folgenden Code an.

Code:

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

Oben haben wir uns nicht für die Untergrenze entschieden. Vielmehr haben wir jetzt nur die Array-Länge als 5 angegeben. Lassen Sie uns den Code ausführen und die niedrigste Länge des Werts sehen.

Ausgabe:

Das Ergebnis wurde als 0 zurückgegeben, da, wenn wir den Start- und Endpunkt eines Arrays nicht festlegen, stattdessen die statische Zahl angegeben wird, z. B. „Count (5)“, dh in diesem Fall der Array-Wert ab 0, nicht von 1. So können wir jetzt insgesamt 6 Werte darin speichern.

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

Beispiel 3

Jetzt werden wir den Datenbereich verwenden und die Untergrenze aus dem Datenbereich bestimmen. Schauen Sie sich zum Beispiel das folgende Datenbild an.

Aus diesem Bereich bestimmen wir die kleinste und höchste Zeilengröße.

Definieren Sie zunächst die Variable als Variante.

Code:

Sub LBound_Example3 () Dim Rng As Variant End Sub

Setzen Sie für diese Variantenvariable „Rng“ den Bereichsreferenzwert auf „Bereich („ B2: B5 “). Wert.“

Code:

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

Für diesen Bereich finden wir die niedrigste und höchste Array-Länge. Öffnen Sie das Meldungsfeld und die LBound-Funktion und geben Sie den Variablennamen ein.

Code:

Sub LBound_Example3 () Dim Rng als Variante Rng = Bereich ("B2: B5"). Wert MsgBox LBound (Rng) End Sub

Führen Sie nun den VBA-Code aus und sehen Sie den niedrigsten Wert aus der Länge.

Ausgabe:

Ändern Sie nun die Variablenreferenz von B2: B5 in A2: B5.

Für diesen Bereich finden wir die Werte für die Untergrenze und die Obergrenze.

Code:

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

Da wir mehr als ein Dimensionsarray haben, müssen wir auch die Dimensionsnummer angeben.

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:

Für die erste Dimension ist die Untergrenze 1 und die Obergrenze 4.

Klicken Sie auf "OK", um die nächsten Dimensionsgrenzen zu erhalten.

Ausgabe:

Für die zweite Dimension beträgt die Untergrenze 1 und die Obergrenze 2.

Dinge, an die man sich hier erinnern sollte

• Die LBound-Funktion gibt die minimale Länge des Arrays zurück.
• Wenn die Array-Länge statisch ist, dh eine einzelne Zahl, beginnt das Array immer mit der Zahl 0 und nicht mit 1.
• Im Fall eines mehrdimensionalen Arrays müssen wir die Dimensionsnummer angeben.