VBA -taulukon pituus / koko

Tämä opetusohjelma opettaa sinulle kuinka saada taulukon pituus (koko) VBA: ssa.

Hanki taulukon pituus

Jotta saat taulukon pituuden, sinun on tiedettävä taulukon alku- ja loppukohdat. Voit tehdä tämän VBA: n UBound- ja LBound -toiminnoilla.

LBound- ja UBound -toiminnot

Tämä menettely osoittaa, kuinka UBound- ja LBound -toimintoja käytetään yhden ulottuvuuden taulukossa:

123456

Sub UBoundLBound ()Dim exArr (1 - 4) merkkijononaMsgBox UBound (exArr)MsgBox LBound (exArr)End Sub

Jos vähennät nämä kaksi, saat taulukon pituuden (UBound - LBound +1).

Hae matriisin pituustoiminto

Tämä toiminto laskee yksiulotteisen taulukon koon (pituuden):

1234567

Julkinen toiminto GetArrLength (yhtä variaatio) niin kauanJos IsEmpty (a) SittenGetArrLength = 0MuuGetArrLength = UBound (a) - LBound (a) + 1Loppu JosLopeta toiminto

Hanki 2D -taulukon koko

Tämä toiminto laskee kaksiulotteisen taulukon sijaintien määrän:

12345678910111213141516171819

AlatestiArrySize ()Dim arr2D (1-4, 1-4) Niin kauanMsgBox GetArrSize_2D (arr2D)End SubJulkinen toiminto GetArrSize_2D (a Variant) niin kauanDim x niin pitkä, y niin pitkäJos IsEmpty (a) SittenGetArrSize_2D = 0Muux = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yLoppu JosLopeta toiminto