VBA LBound

Функция Excel VBA LBound

LBound в VBA означает «Нижняя граница», т.е. будет извлечено наименьшее число массива. Например, если массив говорит «Dim ArrayCount (от 2 до 10) как String», то с помощью функции LBound мы можем найти наименьшее число длины массива, т.е. 2.

Ниже приведен синтаксис функции LBound. Это очень просто и легко; он имеет только два параметра.

Lbound (Array name [, dimension])
  • Имя массива: Это первый аргумент. Для этого параметра нам нужно указать имя массива, которое используется для определения массива.
  • [Dimension]: Если массив является одномерным, это не требуется. По умолчанию он принимает один, иначе нам нужно указать номер измерения.

Итак, используя эти функции, мы можем найти минимальную длину массива.

VBA-LBound

Вы можете использовать это изображение на своем веб-сайте, в шаблонах и т. д. Пожалуйста, предоставьте нам ссылку на авторствоКак предоставить атрибуцию?Ссылка на статью должна быть гиперссылкой
Например:
Источник: VBA LBound (wallstreetmojo.com)

Как использовать функцию VBA LBound? (Пример)

Вы можете скачать этот шаблон Excel VBA LBound здесь — Шаблон VBA LBound Excel

Пример №1

Например, посмотрите на приведенный ниже код.

Код:

Sub LBound_Example1()

   Dim Count(2 To 5) As Integer

   MsgBox LBound(Count)

End Sub
VBA LBound Пример 1

В приведенном выше коде мы определили массив как целое число и размер массива как от 2 до 5. Затем мы назначили окно сообщения VBA для отображения наименьшей длины массива с помощью функции LBound.

Когда мы запустим код, мы получим следующий результат в окне сообщения.

Вывод:

  Пример 1.1

Поскольку наш массив начинается с 2, функция LBound определяет наименьшую длину массива как 2.

Пример #2

Теперь посмотрите на приведенный ниже код.

Код:

Sub LBound_Example2()

  Dim Count(5) As Integer

  MsgBox LBound(Count)

End Sub
VBA LBound Пример 2

Выше мы не определились с наименьшим пределом. Вместо этого мы просто указали длину массива, равную 5. Давайте запустим код и посмотрим наименьшую длину значения.

Вывод:

  Пример 2.1

Он вернул результат как 0, потому что, когда мы не определяем начальную и конечную точки массива, а предоставляем статическое число, например, «Счетчик (5), т. е. в этом случае значение массива начинается с 0, а не от 1. Таким образом, теперь мы можем хранить в нем всего 6 значений.

Счет (0), Счет (1), Счет (2), Счет (3), Счет (4), Счет (5).

Пример №3

Теперь мы будем использовать диапазон данных и определим нижнюю границу диапазона данных. Например, посмотрите на изображение данных ниже.

VBA LBound Пример 3

Из этого диапазона мы выберем наименьший и наибольший размер строки.

Сначала определите переменную как вариант.

Код:

Sub LBound_Example3()

  Dim Rng As Variant

End Sub
Пример VBA LBound 3.1.0

Для этой переменной варианта «Rng» установите опорное значение диапазона как «Range («B2: B5»). Значение».

Код:

Sub LBound_Example3()

  Dim Rng As Variant

  Rng = Range("B2:B5").Value

End Sub
Пример VBA LBound 3.2

Для этого диапазона мы найдем наименьшую и наибольшую длину массива. Откройте окно сообщения и функцию LBound и укажите имя переменной.

Код:

Sub LBound_Example3()

  Dim Rng As Variant

  Rng = Range("B2:B5").Value

  MsgBox LBound(Rng)

End Sub
Пример 3.3

Теперь запустите Код VBAКод VBAКод VBA относится к набору инструкций, написанных пользователем на языке программирования приложений Visual Basic в редакторе Visual Basic (VBE) для выполнения определенной задачи.читать далее и увидеть наименьшее значение из длины.

Вывод:

Пример VBA LBound 3.4

Теперь измените ссылку на переменную с B2: B5 на A2: B5.

Для этого диапазона мы найдем значения нижней и верхней границ.

Код:

Sub LBound_Example3()

  Dim Rng As Variant

  Rng = Range("A2:B5").Value

End Sub
  Пример 3.5

Поскольку у нас есть более одного массива измерений, нам также необходимо указать номер измерения.

Код:

Sub LBound_Example3()

  Dim Rng As Variant

  Rng = Range("A2:B5").Value

  MsgBox LBound(Rng, 1)

End Sub
Пример 3.6

Найти первую нижнюю границу первого столбца поможет код выше, аналогично найти верхнюю границу в этом первом столбце поможет код ниже.

Код:

Sub LBound_Example3()

  Dim Rng As Variant

  Rng = Range("A2:B5").Value

  MsgBox LBound(Rng, 1) & vbNewLine & UBound(Rng, 1)

End Sub
Пример VBA LBound 3.7

Это найдет нижнюю длину первого столбца и верхнюю длину. Точно так же в следующей строке напишите еще одно окно сообщения, но на этот раз измените размер с 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
Пример 3.8

Запустите код и посмотрите результат в окне сообщения.

Вывод:

VBA LBound Пример 3.9

Для первого измерения нижняя граница равна 1, а верхняя граница равна 4.

Нажмите «ОК», чтобы получить следующие пределы размеров.

Вывод:

  Пример 3.10

Для второго измерения нижний предел равен 1, а верхний предел равен 2.

Что нужно помнить здесь

  • Функция LBound возвращает минимальную длину из массива.
  • Когда длина массива статическая, т.е. одно число, то массив всегда начинается с цифры 0, а не с 1.
  • В случае многомерного массива нам нужно указать номер измерения.

Похожие записи

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *