VBA LBound
Функция Excel VBA LBound
LBound в VBA означает «Нижняя граница», т.е. будет извлечено наименьшее число массива. Например, если массив говорит «Dim ArrayCount (от 2 до 10) как String», то с помощью функции LBound мы можем найти наименьшее число длины массива, т.е. 2.
Ниже приведен синтаксис функции LBound. Это очень просто и легко; он имеет только два параметра.
Lbound (Array name [, dimension])
- Имя массива: Это первый аргумент. Для этого параметра нам нужно указать имя массива, которое используется для определения массива.
- [Dimension]: Если массив является одномерным, это не требуется. По умолчанию он принимает один, иначе нам нужно указать номер измерения.
Итак, используя эти функции, мы можем найти минимальную длину массива.
Вы можете использовать это изображение на своем веб-сайте, в шаблонах и т. д. Пожалуйста, предоставьте нам ссылку на авторствоКак предоставить атрибуцию?Ссылка на статью должна быть гиперссылкой
Например:
Источник: VBA LBound (wallstreetmojo.com)
Как использовать функцию VBA LBound? (Пример)
Пример №1
Например, посмотрите на приведенный ниже код.
Код:
Sub LBound_Example1() Dim Count(2 To 5) As Integer MsgBox LBound(Count) End Sub
В приведенном выше коде мы определили массив как целое число и размер массива как от 2 до 5. Затем мы назначили окно сообщения VBA для отображения наименьшей длины массива с помощью функции LBound.
Когда мы запустим код, мы получим следующий результат в окне сообщения.
Вывод:
Поскольку наш массив начинается с 2, функция LBound определяет наименьшую длину массива как 2.
Пример #2
Теперь посмотрите на приведенный ниже код.
Код:
Sub LBound_Example2() Dim Count(5) As Integer MsgBox LBound(Count) End Sub
Выше мы не определились с наименьшим пределом. Вместо этого мы просто указали длину массива, равную 5. Давайте запустим код и посмотрим наименьшую длину значения.
Вывод:
Он вернул результат как 0, потому что, когда мы не определяем начальную и конечную точки массива, а предоставляем статическое число, например, «Счетчик (5), т. е. в этом случае значение массива начинается с 0, а не от 1. Таким образом, теперь мы можем хранить в нем всего 6 значений.
Счет (0), Счет (1), Счет (2), Счет (3), Счет (4), Счет (5).
Пример №3
Теперь мы будем использовать диапазон данных и определим нижнюю границу диапазона данных. Например, посмотрите на изображение данных ниже.
Из этого диапазона мы выберем наименьший и наибольший размер строки.
Сначала определите переменную как вариант.
Код:
Sub LBound_Example3() Dim Rng As Variant End Sub
Для этой переменной варианта «Rng» установите опорное значение диапазона как «Range («B2: B5»). Значение».
Код:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("B2:B5").Value End Sub
Для этого диапазона мы найдем наименьшую и наибольшую длину массива. Откройте окно сообщения и функцию LBound и укажите имя переменной.
Код:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("B2:B5").Value MsgBox LBound(Rng) End Sub
Теперь запустите Код VBAКод VBAКод VBA относится к набору инструкций, написанных пользователем на языке программирования приложений Visual Basic в редакторе Visual Basic (VBE) для выполнения определенной задачи.читать далее и увидеть наименьшее значение из длины.
Вывод:
Теперь измените ссылку на переменную с B2: B5 на A2: B5.
Для этого диапазона мы найдем значения нижней и верхней границ.
Код:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value End Sub
Поскольку у нас есть более одного массива измерений, нам также необходимо указать номер измерения.
Код:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) End Sub
Найти первую нижнюю границу первого столбца поможет код выше, аналогично найти верхнюю границу в этом первом столбце поможет код ниже.
Код:
Sub LBound_Example3() Dim Rng As Variant Rng = Range("A2:B5").Value MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1) End Sub
Это найдет нижнюю длину первого столбца и верхнюю длину. Точно так же в следующей строке напишите еще одно окно сообщения, но на этот раз измените размер с 1 на 2.
Код:
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
Запустите код и посмотрите результат в окне сообщения.
Вывод:
Для первого измерения нижняя граница равна 1, а верхняя граница равна 4.
Нажмите «ОК», чтобы получить следующие пределы размеров.
Вывод:
Для второго измерения нижний предел равен 1, а верхний предел равен 2.
Что нужно помнить здесь
- Функция LBound возвращает минимальную длину из массива.
- Когда длина массива статическая, т.е. одно число, то массив всегда начинается с цифры 0, а не с 1.
- В случае многомерного массива нам нужно указать номер измерения.
УЗНАТЬ БОЛЬШЕ >>
