„Excel VBA Lbound“ funkcija
LBAound VBA reiškia „Žemutinė riba “, ty išgaus mažiausią masyvo skaičių. Pvz., Jei masyvas sako „Dim ArrayCount (2–10) kaip eilutę“, tada naudodami LBound funkciją galime rasti mažiausią masyvo ilgio skaičių, ty 2.
Žemiau pateikiama LBound funkcijos sintaksė. Tai labai paprasta ir lengva; jis turi tik du parametrus.
Lbound (Masyvo pavadinimas (, aspektas))
- Masyvo pavadinimas: tai pirmasis argumentas. Šiam parametrui turime nurodyti masyvo pavadinimą, kuris naudojamas masyvui apibrėžti.
- (Matmuo): jei masyvas yra vienas matmuo, tai nereikalinga. Pagal numatytuosius nustatymus reikia vieno, priešingu atveju turime pateikti dimensijos numerį.
Taigi, naudodamiesi šiomis funkcijomis, galime rasti minimalų masyvo ilgį.
Kaip naudotis VBA LBound funkcija? (Pavyzdys)
1 pavyzdys
Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub LBound_Example1 () Dim Dim (2–5) kaip sveikoji MsgBox LBound (Count) pabaigos sub
Pirmiau pateiktame kode mes nustatėme masyvą kaip sveikąjį skaičių, o masyvo dydį - nuo 2 iki 5. Tada priskyrėme VBA pranešimų laukelį, kad naudodamiesi funkcija LBound matytume mažiausią masyvo ilgį.
Kai paleisime kodą, pranešimo laukelyje gausime žemiau pateiktą rezultatą.
Išvestis:
Kadangi mūsų masyvas prasideda nuo 2, funkcija LBound nustato mažiausią masyvo ilgį kaip 2.
2 pavyzdys
Dabar pažvelkite į žemiau pateiktą kodą.
Kodas:
Sub LBound_Example2 () Dim Dim (5) kaip sveikoji MsgBox LBound (Count) End Sub
Pirmiau mes nenusprendėme dėl žemiausios ribos. Verčiau mes tik pateikėme masyvo ilgį kaip 5. Paleiskime kodą ir pamatykime mažiausią vertės ilgį.
Išvestis:
Rezultatas grąžintas kaip 0, nes kai mes nenusprendžiame masyvo pradžios ir pabaigos taško, verčiau pateikite statinį skaičių, pvz., „Count (5)“, ty šiuo atveju masyvo reikšmė prasideda nuo 0, o ne nuo 1. Taigi joje dabar galime išsaugoti 6 reikšmes.
Count (0), Count (1), Count (2), Count (3), Count (4), Count (5).
3 pavyzdys
Dabar mes naudosime duomenų diapazoną ir spręsime apatinę ribą iš duomenų diapazono. Pavyzdžiui, pažiūrėkite į toliau pateiktą duomenų vaizdą.
Pagal šį diapazoną nuspręsime mažiausią ir didžiausią eilutės dydį.
Pirmiausia apibrėžkite kintamąjį kaip variantą.
Kodas:
Sub LBound_Example3 () Dim Rng Kaip variantas End Sub
Šiam „Rng“ varianto kintamajam nustatykite diapazono atskaitos vertę kaip „Diapazonas („ B2: B5 “). Vertė“.
Kodas:
Sub LBound_Example3 () Dim Rng As variant Rng = Range ("B2: B5"). Reikšmė Pabaiga Sub
Šiame diapazone rasime mažiausią ir didžiausią masyvo ilgį. Atidarykite pranešimų laukelį ir LBound funkciją ir pateikite kintamojo pavadinimą.
Kodas:
Sub LBound_Example3 () Dim Rng kaip variantas Rng = Range ("B2: B5"). Reikšmė MsgBox LBound (Rng) End Sub
Dabar paleiskite VBA kodą ir pamatykite mažiausią vertę iš ilgio.
Išvestis:
Dabar pakeiskite kintamojo nuorodą iš B2: B5 į A2: B5.
Šiame diapazone rasime apatinės ir viršutinės ribų reikšmes.
Kodas:
Sub LBound_Example3 () Dim Rng As variant Rng = Range ("A2: B5"). Reikšmė Pabaiga Sub
Kadangi turime daugiau nei vieną matmenų masyvą, turime pateikti ir matmenų skaičių.
Kodas:
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:
Pirmojo matmens apatinė riba yra 1, o viršutinė - 4.
Spustelėkite „Gerai“, kad gautumėte kitus matmenų apribojimus.
Išvestis:
Antrojo matmens apatinė riba yra 1, o viršutinė - 2.
Ką čia reikia atsiminti
- Funkcija LBound grąžina mažiausią masyvo ilgį.
- Kai masyvo ilgis yra statinis, ty vienas skaičius, masyvas visada prasideda nuo skaičiaus 0, o ne nuo 1.
- Daugialypio masyvo atveju turime nurodyti matmenų numerį.
