VBA masīva garums / izmērs

Šī apmācība iemācīs jums iegūt masīva garumu (izmēru) VBA.

Iegūstiet masīva garumu

Lai iegūtu masīva garumu, jums jāzina masīva sākuma un beigu pozīcijas. To var izdarīt, izmantojot VBA UBound un LBound funkcijas.

LBound un UBound funkcijas

Šī procedūra parāda, kā izmantot UBound un LBound funkcijas viena dimensijas masīvā:

123456

Sub UBoundLBound ()Dim exArr (no 1 līdz 4) kā virkneMsgBox UBound (exArr)MsgBox LBound (exArr)Beigu apakš

Atņemot abus, jūs iegūsit masīva garumu (UBound - LBound +1).

Iegūstiet masīva garuma funkciju

Šī funkcija aprēķinās viendimensiju masīva lielumu (garumu):

1234567

Publiskā funkcija GetArrLength (kā variants) tik ilgiJa IsEmpty (a) TadGetArrLength = 0CitādiGetArrLength = UBound (a) - LBound (a) + 1Beigas JaBeigu funkcija

Iegūstiet 2D masīva izmēru

Šī funkcija aprēķinās pozīciju skaitu divdimensiju masīvā:

12345678910111213141516171819

ApakštestsArrySize ()Dim arr2D (no 1 līdz 4, no 1 līdz 4) tik ilgiMsgBox GetArrSize_2D (arr2D)Beigu apakšPubliskā funkcija GetArrSize_2D (kā variants) Tik ilgiIzmērs x tik garš, y tik garšJa IsEmpty (a) TadGetArrSize_2D = 0Citādix = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * gBeigas JaBeigu funkcija