Acest tutorial vă va învăța cum să obțineți lungimea (dimensiunea) unui Array în VBA.
Obțineți lungimea matricei
Pentru a obține lungimea unui tablou, trebuie să cunoașteți pozițiile de început și de final ale matricei. Puteți face acest lucru cu funcțiile UBound și LBound ale VBA.
Funcții LBound și UBound
Această procedură demonstrează cum se utilizează funcțiile UBound și LBound pe o singură matrice de dimensiuni:
| 123456 | Sub UBoundLBound ()Dim exArr (1-4) Ca șirMsgBox UBound (exArr)MsgBox LBound (exArr)Sfârșitul Sub |
Scăderea celor două vă va oferi lungimea matricei (UBound - LBound +1).
Obțineți funcția Lungime matrice
Această funcție va calcula dimensiunea (lungimea) unei matrice unidimensionale:
| 1234567 | Funcția publică GetArrLength (ca o variantă) atât de lungăDacă IsEmpty (a) AtunciGetArrLength = 0AltfelGetArrLength = UBound (a) - LBound (a) + 1End IfFuncția de sfârșit |
Obțineți dimensiunea matricei 2D
Această funcție va calcula numărul de poziții dintr-o matrice bidimensională:
| 12345678910111213141516171819 | Subtest ArrySize ()Dim arr2D (1 până la 4, 1 până la 4) Cât timpMsgBox GetArrSize_2D (arr2D)Sfârșitul SubFuncția publică GetArrSize_2D (ca o variantă) atât timpDim x As Long, y As LongDacă IsEmpty (a) AtunciGetArrSize_2D = 0Altfelx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yEnd IfFuncția de sfârșit |
