Ta vadnica vas bo naučila, kako določiti dolžino (velikost) niza v VBA.
Pridobite dolžino matrike
Če želite dobiti dolžino niza, morate poznati začetni in končni položaj matrike. To lahko storite s funkcijami UBound in LBound VBA.
LBound in UBound funkcije
Ta postopek prikazuje, kako uporabljati funkciji UBound in LBound na enorazredni matriki:
| 123456 | Sub UBoundLBound ()Zatemni exArr (1 do 4) kot nizMsgBox UBound (exArr)MsgBox LBound (exArr)End Sub |
Če odštejete oba, dobite dolžino matrike (UBound - LBound +1).
Pridobite funkcijo dolžine matrike
Ta funkcija izračuna velikost (dolžino) enodimenzionalnega niza:
| 1234567 | Javna funkcija GetArrLength (a As Variant) As LongČe je IsEmpty (a) PotemGetArrLength = 0Sicer paGetArrLength = UBound (a) - LBound (a) + 1Konec ČeKončana funkcija |
Pridobite velikost 2D matrike
Ta funkcija izračuna število položajev v dvodimenzionalnem nizu:
| 12345678910111213141516171819 | Pod testArrySize ()Zatemni arr2D (1 do 4, 1 do 4) tako dolgoMsgBox GetArrSize_2D (arr2D)End SubJavna funkcija GetArrSize_2D (a As Variant) As LongDim x As Long, y As LongČe je IsEmpty (a) PotemGetArrSize_2D = 0Sicer pax = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yKonec ČeKončana funkcija |
