Содержание
Из этого туториала Вы узнаете, как получить длину (размер) массива в VBA.
Получить длину массива
Чтобы узнать длину массива, вам необходимо знать его начальную и конечную позиции. Вы можете сделать это с помощью функций VBA UBound и LBound.
Функции LBound и UBound
Эта процедура демонстрирует, как использовать функции UBound и LBound в одномерном массиве:
| 123456 | Sub UBoundLBound ()Dim exArr (от 1 до 4) как строкаMsgBox UBound (exArr)MsgBox LBound (exArr)Конец подписки |
Вычитание двух даст вам длину массива (UBound - LBound +1).
Получить функцию длины массива
Эта функция вычислит размер (длину) одномерного массива:
| 1234567 | Открытая функция GetArrLength (как вариант) до тех пор, покаЕсли IsEmpty (a), тоGetArrLength = 0ЕщеGetArrLength = UBound (a) - LBound (a) + 1Конец, еслиКонечная функция |
Получить размер 2D-массива
Эта функция рассчитает количество позиций в двумерном массиве:
| 12345678910111213141516171819 | Sub testArrySize ()Dim arr2D (от 1 до 4, от 1 до 4) до тех пор, покаMsgBox GetArrSize_2D (arr2D)Конец подпискиОткрытая функция GetArrSize_2D (как вариант) до тех пор, покаРазмер x до длины, y до длиныЕсли IsEmpty (a), тоGetArrSize_2D = 0Ещеx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yКонец, еслиКонечная функция |
