Funkce Excel VBA LBound
LBound ve VBA znamená „Lower Bound“, tj. Extrahuje nejnižší číslo pole. Například pokud pole říká „Dim ArrayCount (2 až 10) jako String“, pak pomocí funkce LBound najdeme nejmenší počet délek pole, tj. 2.
Níže je uvedena syntaxe funkce LBound. Je to velmi jednoduché a snadné; má pouze dva parametry.
Lbound (název pole (, rozměr))
- Název pole: Toto je první argument. U tohoto parametru musíme určit název pole, které se používá k definování pole.
- (Dimension): Pokud je pole jedinou dimenzí, není to nutné. Ve výchozím nastavení to trvá jeden, jinak musíme zadat číslo dimenze.
Takže pomocí těchto funkcí můžeme zjistit minimální délku pole.
Jak používat funkci VBA LBound? (Příklad)
Příklad č. 1
Podívejte se například na níže uvedený kód.
Kód:
Sub LBound_Example1 () Dim Count (2 To 5) As Integer MsgBox LBound (Count) End Sub
Ve výše uvedeném kódu jsme definovali pole jako celé číslo a velikost pole jako 2 až 5. Dále jsme přiřadili okno se zprávou VBA tak, aby zobrazovalo nejnižší délku pole pomocí funkce LBound.
Když spustíme kód, dostaneme níže uvedený výsledek do okna se zprávou.
Výstup:
Protože naše pole začíná od 2, určuje funkce LBound nejnižší délku pole jako 2.
Příklad č. 2
Nyní se podívejte na níže uvedený kód.
Kód:
Sub LBound_Example2 () Dim Count (5) As Integer MsgBox LBound (Count) End Sub
Ve výše uvedeném případě jsme nerozhodli o nejnižší hranici. Spíše jsme nyní zadali délku pole jako 5. Spustíme kód a uvidíme nejnižší délku hodnoty.
Výstup:
Výsledek vrátil jako 0, protože když nerozhodneme o počátečním a koncovém bodě pole, zadejte statické číslo, například „Count (5), tj. V tomto případě hodnota pole začínající od 0, ne od 1. Takže do něj nyní můžeme uložit celkem 6 hodnot.
Počet (0), Počet (1), Počet (2), Počet (3), Počet (4), Počet (5).
Příklad č. 3
Nyní použijeme datový rozsah a rozhodneme o dolní hranici z rozsahu dat. Podívejte se například na níže uvedený datový obrázek.
Z tohoto rozsahu rozhodneme o nejmenší a nejvyšší velikosti řádku.
Nejprve definujte proměnnou jako variantu.
Kód:
Sub LBound_Example3 () Dim Rng jako varianta End Sub
Pro tuto proměnnou varianty „Rng“ nastavte referenční hodnotu rozsahu jako „Rozsah („ B2: B5 “). Hodnota.“
Kód:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Hodnota End Sub
Pro tento rozsah najdeme nejnižší a nejvyšší délku pole. Otevřete okno se zprávou a funkci LBound a zadejte název proměnné.
Kód:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Hodnota MsgBox LBound (Rng) End Sub
Nyní spusťte kód VBA a podívejte se na nejnižší hodnotu z délky.
Výstup:
Nyní změňte odkaz na proměnnou z B2: B5 na A2: B5.
Pro tento rozsah najdeme dolní a horní mezní hodnoty.
Kód:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("A2: B5"). Hodnota End Sub
Protože máme více než jedno dimenzionální pole, musíme zadat také číslo dimenze.
Kód:
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:
U první dimenze je dolní hranice 1 a horní hranice 4.
Kliknutím na „OK“ zobrazíte limity další dimenze.
Výstup:
Pro druhou dimenzi je dolní limit 1 a horní limit je 2.
Na co si pamatovat zde
- Funkce LBound vrací minimální délku z pole.
- Když je délka pole statická, tj. Jediné číslo, pak pole vždy začíná od čísla 0, ne od 1.
- V případě vícerozměrného pole musíme určit číslo dimenze.
