Excel VBA LBound функция
LBound във VBA означава „Долна граница“, т.е. ще извлече най-малкия брой на масив. Например, ако масивът казва „Dim ArrayCount (2 до 10) като String“, тогава с помощта на функцията LBound можем да намерим най-малкото число на дължината на масива, т.е. 2.
По-долу е синтаксисът на функцията LBound. Това е много просто и лесно; има само два параметъра.
Lbound (Име на масив (, измерение))
- Име на масив: Това е първият аргумент. За този параметър трябва да посочим името на масива, което се използва за дефиниране на масива.
- (Размери): Ако масивът е едно измерение, това не е задължително. По подразбиране е необходим един или иначе трябва да предоставим номера на измерението.
Така че, използвайки тези функции, можем да намерим минималната дължина на масив.
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples.png.webp)
Как да използвам функцията VBA LBound? (Пример)
Пример # 1
Например погледнете кода по-долу.
Код:
Sub LBound_Example1 () Dim Count (2 до 5) Като Integer MsgBox LBound (Count) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_2.png.webp)
В горния код дефинирахме масива като цяло число и размера на масива от 2 до 5. След това зададохме полето за съобщения VBA да показва най-ниската дължина на масива, като използваме функцията LBound.
Когато стартираме кода, ще получим резултата по-долу в поле за съобщение.
Изход:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_3.png.webp)
Тъй като нашият масив започва от 2, функцията LBound определя най-ниската дължина на масива като 2.
Пример # 2
Сега вижте кода по-долу.
Код:
Sub LBound_Example2 () Dim Count (5) As Integer MsgBox LBound (Count) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_4.png.webp)
В горното не сме взели решение за най-ниската граница. По-скоро просто предоставихме дължината на масива като 5 сега. Нека пуснем кода и да видим най-малката дължина на стойността.
Изход:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_5.png.webp)
Той е върнал резултата като 0, защото когато не решим началната и крайната точка на масив, по-скоро предоставяме статичното число, например „Count (5), т.е. в този случай стойността на масива започва от 0, а не от 1. Така че сега можем да съхраняваме общо 6 стойности в него.
Брой (0), Брой (1), Брой (2), Брой (3), Брой (4), Брой (5).
Пример # 3
Сега ще използваме диапазон от данни и ще решим долната граница от диапазона от данни. Например погледнете изображението с данни по-долу.
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_6.png.webp)
От този диапазон ще решим най-малкия и най-големия размер на реда.
Първо дефинирайте променливата като вариант.
Код:
Sub LBound_Example3 () Dim Rng As Variant End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_7.png.webp)
За тази променлива на варианта „Rng“ задайте референтната стойност на диапазона като „Обхват („ B2: B5 “). Стойност.“
Код:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Value End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_8.png.webp)
За този диапазон ще намерим най-ниската и най-голямата дължина на масива. Отворете полето за съобщения и функцията LBound и въведете името на променливата.
Код:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("B2: B5"). Стойност MsgBox LBound (Rng) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_9.png.webp)
Сега стартирайте VBA кода и вижте най-ниската стойност от дължината.
Изход:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_10.png.webp)
Сега променете референцията на променливата от B2: B5 на A2: B5.
За този диапазон ще намерим стойностите на долната граница и горната граница.
Код:
Sub LBound_Example3 () Dim Rng As Variant Rng = Range ("A2: B5"). Стойност Край Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_11.png.webp)
Тъй като имаме повече от един масив с измерения, трябва да предоставим и номера на измерението.
Код:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_12.png.webp)
To find the first column first lower bound above code will help, similarly to find the upper bound in this first column below code will help.
Code:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_13.png.webp)
This will find the first column lower length and upper length. Similarly, in the next line, write one more message box but this time, change the dimension from 1 to 2.
Code:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) MsgBox LBound(Rng, 2) & vbNewLine & UBound(Rng, 2) End Sub
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_14.png.webp)
Run the code and see the result in the message box.
Output:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_15.png.webp)
За първото измерение долната граница е 1, а горната граница е 4.
Щракнете върху „Ok“, за да получите следващите ограничения за измерения.
Изход:
![](https://cdn.know-base.net/3068129/how_to_use_vba_lbound_array_function_with_examples_16.png.webp)
За второто измерение долната граница е 1, а горната граница е 2.
Неща, които трябва да запомните тук
- Функцията LBound връща минималната дължина от масива.
- Когато дължината на масива е статична, т.е. единично число, тогава масивът винаги започва от числото 0, а не от 1.
- В случай на многомерен масив трябва да посочим номера на измерението.