Spisie treści
Ten samouczek nauczy Cię, jak uzyskać długość (rozmiar) tablicy w VBA.
Uzyskaj długość tablicy
Aby uzyskać długość tablicy, musisz znać pozycję początkową i końcową tablicy. Możesz to zrobić za pomocą funkcji UBound i LBound VBA.
Funkcje LBound i UBound
Ta procedura pokazuje, jak używać funkcji UBound i LBound w tablicy o jednym wymiarze:
| 123456 | Sub UBoundLBound()Dim exArr(1 do 4) As StringMsgBox UBound(exArr)MsgBox LBound(exArr)Napis końcowy |
Odjęcie tych dwóch daje długość tablicy (UBound - LBound +1).
Uzyskaj funkcję długości tablicy
Ta funkcja obliczy rozmiar (długość) jednowymiarowej tablicy:
| 1234567 | Funkcja publiczna GetArrLength(a jako wariant) tak długaJeśli jest pusty(a), toGetArrLength = 0W przeciwnym razieGetArrLength = UBound(a) - LBound(a) + 1Zakończ, jeśliKoniec funkcji |
Uzyskaj rozmiar tablicy 2D
Ta funkcja obliczy liczbę pozycji w dwuwymiarowej tablicy:
| 12345678910111213141516171819 | Pod testArrySize()Dim arr2D (1 do 4, 1 do 4) tak długoMsgBox GetArrSize_2D(arr2D)Napis końcowyFunkcja publiczna GetArrSize_2D(a jako wariant) tak długaDim x tak długo, y tak długoJeśli jest pusty(a), toPobierzArrSize_2D = 0W przeciwnym raziex = UBound(a, 1) - LBound(a, 1) + 1y = UBound(a, 2) - LBound(a, 2) + 1GetArrSize_2D = x * yZakończ, jeśliKoniec funkcji |
