Kuinka käyttää VBA LBound Array -toimintoa? (esimerkkien kanssa)

Excel VBA LBound -toiminto

LBAound VBA: ssa tarkoittaa "Alempi raja " eli se purkaa matriisin pienimmän määrän. Esimerkiksi, jos taulukossa lukee "Dim ArrayCount (2-10) merkkijonona", niin LBound-funktiota käyttämällä löydämme matriisin matriisin pituuden eli 2.

Alla on LBound-funktion syntaksi. Se on hyvin yksinkertainen ja helppo, sillä on vain kaksi parametria.

Lbound (Taulukon nimi [, ulottuvuus])
  • Taulukon nimi: Tämä on ensimmäinen argumentti. Tätä parametria varten meidän on määritettävä taulukon nimi, jota käytetään taulukon määrittelemiseen.
  • [Dimension]: Jos matriisi on yksi ulottuvuus, sitä ei vaadita, oletusarvoisesti se tarvitsee yhden tai muuten meidän on annettava ulottuvuusnumero.

Joten näiden toimintojen avulla voimme löytää matriisin minimipituuden.

Kuinka käyttää VBA LBound -toimintoa? (Esimerkki)

Voit ladata tämän VBA LBound Excel -mallin täältä - VBA LBound Excel -malli

Esimerkki 1

Katso esimerkki alla olevasta koodista.

Koodi:

 Sub LBound_Example1 () Dim Count (2 - 5) kokonaislukuna MsgBox LBound (Count) End Sub 

Yllä olevassa koodissa olemme määrittäneet matriisin kokonaislukuna ja matriisin kooksi 2 - 5. Seuraavaksi olemme määrittäneet VBA-viestiruudun näyttämään matriisin pienimmän pituuden käyttämällä LBound-toimintoa.

Kun suoritamme koodin, saat alla olevan tuloksen viestiruutuun.

Tuotos:

Koska matriisimme alkaa 2: sta, LBound-toiminto määrittää matriisin pienimmäksi pituudeksi 2.

Esimerkki 2

Katso nyt alla oleva koodi.

Koodi:

 Sub LBound_Example2 () Dim Count (5) Kokonaislukuna MsgBox LBound (Count) End Sub 

Yllä olevassa emme ole päättäneet alinta rajaa, vaan annoimme vain taulukon pituuden 5: ksi, nyt suoritetaan koodi ja katsotaan arvon alin pituus.

Tuotos:

Se on palauttanut tuloksen arvoksi 0, koska kun emme valitse matriisin aloitus- ja päätepistettä, anna mieluummin staattinen numero, esimerkiksi "Count (5), eli tässä tapauksessa matriisin arvo alkaa 0: sta eikä 1." voi tallentaa siihen nyt 6 arvoa.

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

Esimerkki 3

Nyt käytämme data-aluetta ja päätämme alarajan tietojen alueesta. Katso esimerkki alla olevasta datakuvasta.

Tästä alueesta päätämme pienimmän ja suurimman rivikoon.

Määritä ensin muuttuja muunnoksena.

Koodi:

 Sub LBound_Example3 () Dim Rng Variant End Sub 

Aseta tälle “Rng” -muuttujalle alueen referenssiarvo arvoksi “Alue (“ B2: B5 ”). Arvo”.

Koodi:

 Sub LBound_Example3 () Dim Rng kuten variant Rng = Range ("B2: B5"). Arvo End Sub 

Tälle alueelle löydämme matalin ja suurimman matriisin pituuden. Avaa viestiruutu ja LBound-toiminto ja anna muuttujan nimi.

Koodi:

 Sub LBound_Example3 () Dim Rng kuten variant Rng = Range ("B2: B5"). Arvo MsgBox LBound (Rng) End Sub 

Suorita nyt VBA-koodi ja katso pienin arvo pituudesta.

Tuotos:

Vaihda nyt muuttujan viite B2: B5: stä A2: B5: ksi.

Tälle alueelle löydetään ala- ja yläraja-arvot.

Koodi:

 Sub LBound_Example3 () Dim Rng kuten variant Rng = Range ("A2: B5"). Arvo End Sub 

Koska meillä on enemmän kuin yksi ulottuvuusryhmä, meidän on annettava myös ulottuvuusnumero.

Koodi:

 Sub LBound_Example3 () Dim Rng kuten variant Rng = Range ("A2: B5"). Arvo MsgBox LBound (Rng, 1) End Sub 

Ensimmäisen sarakkeen löytäminen auttaa ensimmäisen koodin ylärajan yläpuolella, samoin kuin yläreunan löytäminen tässä ensimmäisessä sarakkeessa, koodi auttaa.

Koodi:

 Sub LBound_Example3 () Dim Rng kuten variant Rng = Range ("A2: B5"). Arvo MsgBox LBound (Rng, 1) & vbNewLine & UBound (Rng, 1) End Sub 

Tämä löytää ensimmäisen sarakkeen alemman ja ylemmän pituuden. Kirjoita samalla tavalla seuraavalle riville vielä yksi viestiruutu, mutta vaihda tällä kertaa ulottuvuus 1: stä 2: een.

Koodi:

 Sub LBound_Example3 () Dim Rng Variant Rng = Alue ("A2: B5"). Arvo MsgBox LBound (Rng, 1) & vbNewLine & UBound (Rng, 1) MsgBox LBound (Rng, 2) & vbNewLine & UBound (Rng, 2) Lopeta ala 

Suorita koodi ja katso tulos viestiruudussa.

Tuotos:

Ensimmäisen ulottuvuuden alaraja on 1 ja yläraja 4.

Napsauta "Ok" saadaksesi seuraavat ulottuvuusrajat.

Tuotos:

Toisen ulottuvuuden alaraja on 1 ja yläraja 2.

Muistettavaa täällä

  • LBound-funktio palauttaa matriisin minimipituuden.
  • Kun matriisin pituus on staattinen eli yksi numero, taulukko alkaa aina numerosta 0 eikä 1: stä.
  • Jos kyseessä on moniulotteinen taulukko, meidän on määritettävä mitan numero.

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