Lang L: none (table-of-contents)
See õpetus õpetab teile, kuidas saada VBA -s massiivi pikkust (suurust).
Hankige massiivi pikkus
Massiivi pikkuse saamiseks peate teadma massiivi algus- ja lõpppositsiooni. Seda saate teha VBA UBound ja LBound funktsioonidega.
LBound ja UBound funktsioonid
See protseduur näitab, kuidas kasutada UBoundi ja LBoundi funktsioone ühemõõtmelises massiivis:
| 123456 | Sub UBoundLBound ()Dim exArr (1 kuni 4) stringinaMsgBox UBound (exArr)MsgBox LBound (exArr)End Sub |
Nende kahe lahutamisel saate massiivi pikkuse (UBound - LBound +1).
Massiivi pikkuse funktsioon
See funktsioon arvutab ühemõõtmelise massiivi suuruse (pikkuse):
| 1234567 | Avalik funktsioon GetArrLength (variandina) nii kauaKui on tühi (a) SiisGetArrLength = 0MuiduGetArrLength = UBound (a) - LBound (a) + 1Lõpp KuiLõppfunktsioon |
Hankige 2D massiivi suurus
See funktsioon arvutab kahemõõtmelise massiivi positsioonide arvu:
| 12345678910111213141516171819 | AlamkatseArrySize ()Dim arr2D (1 kuni 4, 1 kuni 4) nii kauaMsgBox GetArrSize_2D (arr2D)End SubAvalik funktsioon GetArrSize_2D (variandina) nii kauaDim x nii pikk, y kui pikkKui on tühi (a) SiisGetArrSize_2D = 0Muidux = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yLõpp KuiLõppfunktsioon |
