Kaip naudotis VBA LBound Array funkcija? (su pavyzdžiais)

„Excel VBA Lbound“ funkcija

LBound VBA reiškia „Žemutinė riba “, ty jis 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, ji turi tik du parametrus.

Lbound (Masyvo pavadinimas [, aspektas])
  • Masyvo pavadinimas: tai pirmasis argumentas. Šiam parametrui turime nurodyti masyvo pavadinimą, kuris naudojamas masyvui apibrėžti.
  • [Dimensija]: Jei masyvas yra vienas matmuo, tai nereikia, pagal numatytuosius nustatymus reikia pateikti vieną ar kitą aspektų skaičių.

Taigi, naudodamiesi šia funkcija, galime rasti mažiausią masyvo ilgį.

Kaip naudotis VBA LBound funkcija? (Pavyzdys)

Šį „VBA LBound Excel“ šabloną galite atsisiųsti čia - „VBA LBound Excel“ šablonas

1 pavyzdys

Pavyzdžiui, pažvelkite į žemiau pateiktą kodą.

Kodas:

 Sub LBound_Example1 () Dim Dim (2–5) kaip sveikoji MsgBox LBound (Count) pabaiga Sub 

Ankstesniame kode mes nustatėme masyvą kaip sveikąjį skaičių ir masyvo dydį nuo 2 iki 5. Tada mes priskyrėme VBA pranešimų laukelį, kad naudodami LBound funkciją būtų rodomas mažiausias masyvo ilgis.

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 mažiausios ribos, o mes tiesiog pateikėme masyvo ilgį kaip 5, dabar paleiskime kodą ir pamatysime mažiausią vertės ilgį.

Išvestis:

Rezultatas buvo 0, nes kai nesprendžiame masyvo pradžios ir pabaigos taško, verčiau pateikite statinį skaičių, pavyzdžiui, „Count (5), ty šiuo atveju masyvo reikšmė prasideda nuo 0, o ne nuo 1. Taigi mes dabar jame gali išsaugoti iš viso 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 kaip variantas Rng = Range ("B2: B5"). Reikšmė End 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 kaip variantas Rng = Range ("A2: B5"). Reikšmė End Sub 

Kadangi turime daugiau nei vieną matmenų masyvą, turime pateikti ir matmenų skaičių.

Kodas:

 Sub LBound_Example3 () Dim Rng kaip variantas Rng = Range ("A2: B5"). Reikšmė MsgBox LBound (Rng, 1) End Sub 

Norėdami rasti pirmąjį stulpelį, pirmoji apatinė riba virš kodo padės, panašiai kaip rasti viršutinę ribą šiame pirmame stulpelyje žemiau kodas.

Kodas:

 Sub LBound_Example3 () Dim Rng As variant Rng = Range ("A2: B5"). Reikšmė MsgBox LBound (Rng, 1) ir vbNewLine & UBound (Rng, 1) Pabaiga Sub 

Tai suras pirmojo stulpelio apatinį ir viršutinį ilgius. Panašiai kitoje eilutėje parašykite dar vieną pranešimų laukelį, bet šį kartą pakeiskite matmenį iš 1 į 2.

Kodas:

 Sub LBound_Example3 () Dim Rng As variant Rng = Range ("A2: B5"). Reikšmė MsgBox LBound (Rng, 1) & vbNewLine & UBound (Rng, 1) MsgBox LBound (Rng, 2) & vbNewLine & UBound (Rng, 2) Pabaigos poskyris 

Paleiskite kodą ir pamatykite rezultatą pranešimo laukelyje.

Išvestis:

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

  • LBound funkcija 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į.

$config[zx-auto] not found$config[zx-overlay] not found