Tento tutoriál vás naučí, ako zistiť dĺžku (veľkosť) poľa vo VBA.
Získajte dĺžku poľa
Aby ste získali dĺžku poľa, musíte poznať počiatočnú a koncovú pozíciu poľa. Môžete to urobiť pomocou funkcií VBound a LBound VBA.
Funkcie LBound a UBound
Tento postup ukazuje, ako používať funkcie UBound a LBound v poli jednej dimenzie:
| 123456 | Sub UBoundLBound ()Dim exArr (1 až 4) ako reťazecMsgBox UBound (exArr)MsgBox LBound (exArr)Koniec pod |
Odčítaním týchto dvoch čísiel získate dĺžku poľa (UBound - LBound +1).
Získajte funkciu dĺžky poľa
Táto funkcia vypočíta veľkosť (dĺžku) jednorozmerného poľa:
| 1234567 | Verejná funkcia GetArrLength (ako variant) tak dlhoIf IsEmpty (a) ThenGetArrLength = 0InakGetArrLength = UBound (a) - LBound (a) + 1Koniec AkKoncová funkcia |
Získajte veľkosť 2D poľa
Táto funkcia vypočíta počet polôh v dvojrozmernom poli:
| 12345678910111213141516171819 | Sub testArrySize ()Dim arr2D (1 až 4, 1 až 4) ako dlhéMsgBox GetArrSize_2D (arr2D)Koniec podVerejná funkcia GetArrSize_2D (ako variant) ako dlháDim x ako dlhé, y tak dlhéIf IsEmpty (a) ThenGetArrSize_2D = 0Inakx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yKoniec AkKoncová funkcia |
