Цей підручник навчить вас, як отримати довжину (розмір) масиву у VBA.
Отримати довжину масиву
Для того, щоб отримати довжину масиву, вам потрібно знати початкове та кінцеве положення масиву. Ви можете зробити це за допомогою функцій UBound та LBound VBA.
Функції LBound та UBound
Ця процедура демонструє, як використовувати функції UBound і LBound для одновимірного масиву:
| 123456 | Sub UBoundLBound ()Dim exArr (1 до 4) як рядокMsgBox UBound (exArr)MsgBox LBound (exArr)End Sub |
Відняття двох дасть вам довжину масиву (UBound - LBound +1).
Отримати функцію довжини масиву
Ця функція розраховує розмір (довжину) одновимірного масиву:
| 1234567 | Загальнодоступна функція GetArrLength (як варіант) до тих пірЯкщо IsEmpty (а) ТодіGetArrLength = 0ІнакшеGetArrLength = UBound (a) - LBound (a) + 1Закінчити ЯкщоФункція завершення |
Отримайте розмір масиву 2D
Ця функція розраховує кількість позицій у двовимірному масиві:
| 12345678910111213141516171819 | ПідтестArrySize ()Dim arr2D (1 To 4, 1 To 4) As LongMsgBox GetArrSize_2D (arr2D)End SubЗагальнодоступна функція GetArrSize_2D (a As Variant) As LongDim x As Long, y As LongЯкщо IsEmpty (а) ТодіGetArrSize_2D = 0Інакшеx = UBound (a, 1) - LBound (a, 1) + 1y = UBound (a, 2) - LBound (a, 2) + 1GetArrSize_2D = x * yЗакінчити ЯкщоФункція завершення |
