Ovaj vodič će vas naučiti kako dobiti duljinu (veličinu) niza u VBA.
Dohvati duljinu niza
Da biste dobili duljinu niza, morate znati početnu i završnu poziciju niza. To možete učiniti pomoću VBA -ovih UBound i LBound funkcija.
LBound i UBound funkcije
Ovaj postupak pokazuje kako se koriste funkcije UBound i LBound na nizu s jednom dimenzijom:
| 123456 | Sub UBoundLBound ()Priguši exArr (1 do 4) kao nizMsgBox UBound (exArr)MsgBox LBound (exArr)Kraj podm |
Oduzimanjem dva dobit ćete duljinu niza (UBound - LBound +1).
Dohvati funkciju duljine niza
Ova funkcija izračunat će veličinu (duljinu) jednodimenzionalnog niza:
| 1234567 | Javna funkcija GetArrLength (a As Variant) As LongAko je IsEmpty (a) TadaGetArrLength = 0DrugoGetArrLength = UBound (a) - LBound (a) + 1Završi akoZavršna funkcija |
Nabavite veličinu 2D niza
Ova funkcija će izračunati broj pozicija u dvodimenzionalnom nizu:
| 12345678910111213141516171819 | Pod testArrySize ()Dim arr2D (1 To 4, 1 To 4) As LongMsgBox GetArrSize_2D (arr2D)Kraj podmJavna funkcija GetArrSize_2D (a As Variant) As LongDim x As Long, y As LongAko je IsEmpty (a) TadaGetArrSize_2D = 0Drugox = UMjek (a, 1) - LGranica (a, 1) + 1y = UVezano (a, 2) - LOgraničeno (a, 2) + 1GetArrSize_2D = x * yZavrši akoZavršna funkcija |
