Tento tutoriál vás naučí, jak zjistit délku (velikost) pole ve VBA.
Získejte délku pole
Abyste získali délku pole, musíte znát počáteční a koncovou pozici pole. To lze provést pomocí funkcí VBA UBound a LBound.
Funkce LBound a UBound
Tento postup ukazuje, jak používat funkce UBound a LBound v poli jedné dimenze:
| 123456 | Sub UBoundLBound ()Dim exArr (1 až 4) jako řetězecMsgBox UBound (exArr)MsgBox LBound (exArr)End Sub |
Odečtením těchto dvou získáte délku pole (UBound - LBound +1).
Získejte funkci délky pole
Tato funkce vypočítá velikost (délku) jednorozměrného pole:
| 1234567 | Veřejná funkce GetArrLength (jako varianta) jako dlouháIf IsEmpty (a) ThenGetArrLength = 0JinýGetArrLength = UBound (a) - LBound (a) + 1Konec IfKoncová funkce |
Získejte velikost 2D pole
Tato funkce vypočítá počet pozic v dvourozměrném poli:
| 12345678910111213141516171819 | Dílčí testArrySize ()Dim arr2D (1 až 4, 1 až 4) jako dlouhýMsgBox GetArrSize_2D (arr2D)End SubVeřejná funkce GetArrSize_2D (jako varianta) jako dlouháDim x As Long, y As LongIf IsEmpty (a) ThenGetArrSize_2D = 0Jinýx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yKonec IfKoncová funkce |
