Массив в vba: Массивы — Visual Basic | Microsoft Learn

Как в VBA правильно создавать одномерный массив. ArrayList / Хабр

Когда я впервые встретил этот класс, подумал «Зачем? Ведь есть простые массивы». А потом попробовал и не представляю как жил без него раньше.

Начну сразу с примера

Предположим, на активном листе в столбце 1 находится список ФИО сотрудников.

Список ФИО

Наша задача собрать в массив только уникальные ФИО и отсортировать его по убыванию (ну такая вот немного странная задача). Сначала решим ее без использования ArrayList, а в конце сравним результат.

Для получения уникальных значений, создаем функцию GetDistinctItems и в нее передаем столбец с ФИО. В самой функции пробегаем циклом For Each по всем ФИО и добавляем уникальные в объект Buffer (Dictionary). Далее методом Keys извлекаем элементы в дополнительную функцию DescendingSort (используем сортировку пузырьком) и получаем отсортированные значения в переменную Sorted, которую и возвращаем как результат функции.

Public Sub Main()
    Dim FullNameColumn As Range
    Set FullNameColumn = ActiveSheet.UsedRange.Columns(1) ' Получаем первый столбец.
    Dim DistinctList As Variant
    DistinctList = GetDistinctItems(FullNameColumn) ' Передаем диапазон в функцию.
    Debug.Print Join(DistinctList, vbCrLf) ' Выводим результат.
End Sub
Public Function GetDistinctItems(ByRef Range As Range) As Variant
    Dim Data As Variant: Data = Range.Value ' Преобразуем диапазон в массив.
    Dim Buffer As Object: Set Buffer = CreateObject("Scripting.Dictionary") ' Создаем объект Dictionary.
    Dim Item
    For Each Item In Data
        If Not Buffer.Exists(Item) Then Buffer.Add Item, Empty ' Проверяем наличие элемента и добавляем если отсутствует.
    Next
    
    Dim Sorted As Variant
    Sorted = DescendingSort(Buffer.Keys()) ' Сортируем функцией DescendingSort.
    GetDistinctItems = Sorted ' Возвращаем результат.
End Function
Public Function DescendingSort(ByRef Data As Variant) As Variant
    Dim i As Long
    For i = LBound(Data) To UBound(Data) - 1
        Dim j As Long
        For j = i + 1 To UBound(Data)
            If Data(i) < Data(j) Then
                Dim Temp As Variant
                Temp = Data(j)
                Data(j) = Data(i)
                Data(i) = Temp
            End If
        Next
    Next
    DescendingSort = Data
End Function

Результат

Тривиально? Вполне. Компактно? Ну в целом да, но в конце мы напишем еще более компактней, а заодно решим проблему написания новой функции, если вдруг результат нужно будет сортировать по возрастанию.

Что есть такое

Начнем с того, что ArrayList это класс из пространства имен System.Collections библиотеки mscorlib, который реализует интерфейс IList. Естественно, в VBA он несколько порезан в плане методов, иначе и быть не могло (например нет методов AddRange или BinarySearch). Но и тем не менее с ним можно (и нужно) работать.
По сути, это динамический массив. Его не нужно самостоятельно переопределять, чтобы изменить размерность, достаточно добавлять элементы с помощью метода Add. Где-то я читал, что на низком уровне (да простят меня знатоки, я не знаю правильно ли я применяю это словосочетание здесь) есть свои нюансы в плане производительности, но, откровенно говоря, за все время использования этого объекта каких-либо проблем я не замечал и время работы макроса из-за него если и растет вообще, то совсем не критично.

В чем же сила брат удобство?

Как минимум в том, что это динамический массив. Вы просто добавляете элементы через метод и не нужно заморачиваться на тему ReDim (и уж тем более Preserve) и вычислений размеров будущего массива.

А дальше начинаются вкусняхи

Во-первых, мы можем выгрузить все элементы одним методом ToArray. Как следует из названия, он преобразует все элементы объекта в обычный массив типа Variant.
Во-вторых, мы можем составлять список уникальных значений, проверяя их наличие методом Contains.

В-третьих, можно забыть про функцию UBound, ведь у этого класса есть свойство Count, которое, как не сложно догадаться, возвращает количество элементов помещенных в объект.
В-четвертых, есть возможность быстро отсортировать элементы как по возрастанию (метод Sort), так и по убыванию (сначала используем метод Sort, а после метод Reverse).

Ну и быстро пробегаем по оставшимся свойствам:

Item(Index)
Предоставляет доступ к элементу по его индексу.

и методам:

IndexOf(Item, StartFrom)
Возвращает индекс элемента. Обязательный аргумент StartFrom поможет найти каждый последующий индекс одинаковых элементов.

RemoveAt(Index)
Удаляет элемент по индексу.

Remove(Item)
Удаляет переданный элемент.

RemoveRange(StartPosition, Count)
Удаляет диапазон элементов. StartPosition указывает на индекс первого элемента, Count на количество элементов в удаляемом диапазоне.

Clear()
Удаляет все элементы.

Insert(Position, Item)
Добавляет элемент по заданной позиции.

Clone()
Создает копию объекта (по сути создает новый объект, а не возвращает ссылку на текущий).

Как создать это чудо

Создать объект класса ArrayList можно с помощью функции CreateObject:

Dim List As Object
Set List = CreateObject("System. Collections.ArrayList")

или через Tools -> Reference подключить библиотеку mscorlib.dll, а дальше создавать как обычный объект:

Dim List As New ArrayList

Минус и той и другой привязки в том, что интерфейс объекта вы не получите. Причину лично я не знаю, но почему-то VBA в Excel (больше нигде не проверял) не видит свойства и методы этого класса (в поздней привязке их и так нет ни у какого объекта, так как тип переменной Object, а вот в ранней обычно есть).

Можно, конечно, получить часть интерфейса, объявив переменную с типом IList и уже после этого присвоить ей инстанс ArrayList, но тем самым мы потеряем бОльшую часть функционала, например методы Sort, ToArray, Reverse.

Вернемся в начало

Помните наш пример? Предлагаю решение с новыми знаниями.

Теперь мы добавляем уникальные значения в объект Buffer (ArrayList), перед этим проверяя методом Contains наличие ФИО в списке элементов. По окончанию цикла применяем метод Sort и Reverse для получения списка по убыванию. Выгружаем результат методом ToArray. Согласитесь на этот раз все гораздо компактней.

Public Sub Main()
    Dim FullNameColumn As Range
    Set FullNameColumn = ActiveSheet.UsedRange.Columns(1) ' Получаем первый столбец.
    Dim DistinctList As Variant
    DistinctList = GetDistinctItems(FullNameColumn) ' Передаем диапазон в функцию.
    Debug.Print Join(DistinctList, vbCrLf) ' Выводим результат.
End Sub
Public Function GetDistinctItems(ByRef Range As Range) As Variant
    Dim Data As Variant: Data = Range.Value ' Преобразуем диапазон в массив.
    Dim Buffer As Object: Set Buffer = CreateObject("System.Collections.ArrayList") ' Создаем объект ArrayList.
    Dim Item
    For Each Item In Data
        If Not Buffer.Contains(Item) Then Buffer.Add Item ' Проверяем наличие элемента и добавляем если отсутствует.
    Next
    Buffer.Sort: Buffer.Reverse ' Сортируем по возрастанию, а потом переворачиваем (по убыванию). 
    GetDistinctItems = Buffer.ToArray() ' Выгружаем в виде массива.
End Function

Итоговый результат

Что в итоге

В итоге мы имеем преимущество перед классом Collection в том, что есть проверка на наличие элемента в списке (без танцев с бубном) и быстрая выгрузка в виде массива (без написания цикла).

Перед классом Dictionary, пожалуй, преимущество в отсутствии необходимости прописывать ключи (если они изначально не нужны).

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

В общем и целом, достаточно удобный в применении класс для работы с одномерными массивами. Конечно, получать данные из объекта Range гораздо проще в обычный массив, но если нужно создавать новый (например в цикле), то, как по мне, ArrayList превосходный вариант.

Уже после написания статьи обратил внимание, что мой пример на чистом ПК не работает, появляется automation error -2146232576 при создании объекта ArrayList.

Судя по этому ответу, для работы mscorlib необходимо включить .NET Framework 3.5.

Сделать это можно через Панель управления -> Программы -> Включение или отключение компонентов Windows -> поставить галочку напротив .NET Framework 3.5 (включает .NET 2.0 и 3.0) после чего на ПК скачаются необходимые файлы для работы компонента.

Обязательно после проделанных действий перезагрузить Excel. У меня при установке выдал ошибку. Исправилось выключением Excel и повторным включением компонента.

К слову на моем рабочем ПК таких проблем не было, т.е. данный компонент уже был подключен организацией (или по умолчанию в ранних Windows, не знаю точно).

Спасибо, что прочитали до конца.

Как насчет применения этого класса? Пишите в комментариях!
А также, подписывайтесь на мой телеграмм.

Массивы в VBA: как работать с массивами

Мы очень хорошо знаем, что переменная является контейнером для хранения значения. Иногда разработчики могут удерживать более одного значения в одной переменной за раз. Когда ряд значений хранится в одной переменной, он известен как переменная массива.

Содержание:

• Объявление массивов
• Назначение значений массиву
• Многомерные массивы
• Объявление ReDim
• Методы массива
• Функции для работы с массивами
• LBound
• UBound
• Split
• Join
• Filter
• IsArray
• Erase

Объявление массивов

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

'Method 1 : Using Dim
Dim arr1()	'Without Size

'Method 2 : Mentioning the Size
Dim arr2(5)  'Declared with size of 5

'Method 3 : using 'Array' Parameter
Dim arr3
arr3 = Array("apple","Orange","Grapes")

• Хотя размер массива указывается как 5, он может содержать 6 значений, поскольку индекс массива начинается с ZERO.
• Индекс массива не может быть отрицательным.
• Массивы VBScript могут хранить любой тип переменной в массиве. Следовательно, массив может хранить целое число, строку или символы в одной переменной массива.

Назначение значений массиву

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

Пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim arr(5)
   arr(0) = "1"           'Number as String
   arr(1) = "VBScript"    'String
   arr(2) = 100 		   'Number
   arr(3) = 2.45 		   'Decimal Number
   arr(4) = #10/07/2013#  'Date
   arr(5) = #12.45 PM#    'Time
  
   msgbox("Value stored in Array index 0 : " & arr(0))
   msgbox("Value stored in Array index 1 : " & arr(1))
   msgbox("Value stored in Array index 2 : " & arr(2))
   msgbox("Value stored in Array index 3 : " & arr(3))
   msgbox("Value stored in Array index 4 : " & arr(4))
   msgbox("Value stored in Array index 5 : " & arr(5))
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Value stored in Array index 0 : 1
Value stored in Array index 1 : VBScript
Value stored in Array index 2 : 100
Value stored in Array index 3 : 2.45
Value stored in Array index 4 : 7/10/2013
Value stored in Array index 5 : 12:45:00 PM

Многомерные массивы

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

пример

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

Private Sub Constant_demo_Click()
   Dim arr(2,3) as Variant	' Which has 3 rows and 4 columns
   arr(0,0) = "Apple" 
   arr(0,1) = "Orange"
   arr(0,2) = "Grapes"           
   arr(0,3) = "pineapple" 
   arr(1,0) = "cucumber"           
   arr(1,1) = "beans"           
   arr(1,2) = "carrot"           
   arr(1,3) = "tomato"           
   arr(2,0) = "potato"             
   arr(2,1) = "sandwitch"            
   arr(2,2) = "coffee"             
   arr(2,3) = "nuts"            
           
   msgbox("Value in Array index 0,1 : " &  arr(0,1))
   msgbox("Value in Array index 2,2 : " &  arr(2,2))
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

Value stored in Array index : 0 , 1 : Orange
Value stored in Array index : 2 , 2 : coffee

Объявление ReDim

Оператор ReDim используется для объявления переменных динамического массива и распределения или перераспределения пространства для хранения.

СинтаксисReDim [Preserve] varname(subscripts) [, varname(subscripts)]
Параметр Описание

• Preserve — необязательный параметр, используемый для сохранения данных в существующем массиве при изменении размера последнего измерения.
• Varname — обязательный параметр, который обозначает имя переменной, которое должно соответствовать стандартным соглашениям об именах.
• Subscript — требуемый параметр, который указывает размер массива.

пример

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

Примечание. При изменении размера массива, меньшего, чем это было первоначально, данные в устраненных элементах будут потеряны.

Private Sub Constant_demo_Click()
   Dim a() as variant
   i = 0
   redim a(5)
   a(0) = "XYZ"
   a(1) = 41.25
   a(2) = 22
  
   REDIM PRESERVE a(7)
   For i = 3 to 7
   a(i) = i
   Next
  
   'to Fetch the output
   For i = 0 to ubound(a)
      Msgbox a(i)
   Next
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

XYZ
41.25
22
3
4
5
6
7

Методы массива

В VBScript есть встроенные функции, которые помогают разработчикам эффективно обрабатывать массивы. Все методы, которые используются вместе с массивами, перечислены ниже. Чтобы узнать об этом, нажмите на имя метода.

Функции для работы с массивами

LBound

Функция LBound возвращает наименьший индекс указанного массива.Следовательно, LBound массива — ZERO.

СинтаксисLBound(ArrayName[,dimension])
Параметы и Описание

• ArrayName — обязательный параметр. Этот параметр соответствует имени массива.
• Размер — необязательный параметр. Это принимает целочисленное значение, соответствующее размеру массива. Если это «1», то он возвращает нижнюю границу первого измерения;если это «2», то он возвращает нижнюю границу второго измерения и так далее.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim arr(5) as Variant
   arr(0) = "1"           'Number as String
   arr(1) = "VBScript     'String
   arr(2) = 100           'Number
   arr(3) = 2.45          'Decimal Number
   arr(4) = #10/07/2013#  'Date
   arr(5) = #12. 45 PM#    'Time
   msgbox("The smallest Subscript value of  the given array is : " & LBound(arr))

   ' For MultiDimension Arrays :
   Dim arr2(3,2) as Variant
   msgbox("The smallest Subscript of the first dimension of arr2 is : " & LBound(arr2,1))
   msgbox("The smallest Subscript of the Second dimension of arr2 is : " & LBound(arr2,2))
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

The smallest Subscript value of the given array is : 0
The smallest Subscript of the first dimension of arr2 is : 0
The smallest Subscript of the Second dimension of arr2 is : 0

Функция, которая возвращает целое число, соответствующее наименьшему индексу данных массивов.

UBound

Функция UBound возвращает наибольший индекс указанного массива.Следовательно, это значение соответствует размеру массива.

СинтаксисUBound(ArrayName[,dimension])
Параметры и Описание

• ArrayName — обязательный параметр. Этот параметр соответствует имени массива.
• Размер — необязательный параметр. Это принимает целочисленное значение, соответствующее размеру массива. Если это «1», то он возвращает нижнюю границу первого измерения;если он равен «2», то он возвращает нижнюю границу второго измерения и т. д.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim arr(5) as Variant
   arr(0) = "1"           'Number as String
   arr(1) = "VBScript     'String
   arr(2) = 100           'Number
   arr(3) = 2.45          'Decimal Number
   arr(4) = #10/07/2013#  'Date
   arr(5) = #12.45 PM#    'Time
   msgbox("The smallest Subscript value of  the given array is : " & UBound(arr))

   ' For MultiDimension Arrays :
   Dim arr2(3,2) as Variant
   msgbox("The smallest Subscript of the first dimension of arr2 is : " & UBound(arr2,1))
   msgbox("The smallest Subscript of the Second dimension of arr2 is : " & UBound(arr2,2))
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

The Largest Subscript value of the given array is : 5
The Largest Subscript of the first dimension of arr2 is : 3
The Largest Subscript of the Second dimension of arr2 is : 2

Функция, которая возвращает целое число, соответствующее самому большому индексу данных массивов.

Split

Функция Split возвращает массив, который содержит определенное количество значений, разделенных на основе разделителя.

СинтаксисSplit(expression [,delimiter[, count[, compare]]])
Параметры и Описание

• Выражение — требуемый параметр. Строковое выражение, которое может содержать строки с разделителями.
• Разделитель — необязательный параметр. Параметр, который используется для преобразования в массивы на основе разделителя.
• Count — необязательный параметр. Количество подстрок, которые нужно вернуть, и если указано как -1, то возвращаются все подстроки.
• Compare — Необязательный параметр. Этот параметр указывает, какой метод сравнения следует использовать.
• 0 = vbBinaryCompare — выполняет двоичное сравнение
• 1 = vbTextCompare — выполняет текстовое сравнение

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   ' Splitting based on delimiter comma '$'
   Dim a as Variant
   Dim b as Variant
   
   a = Split("Red $ Blue $ Yellow","$")
   b = ubound(a)
   
   For i = 0 to b
      msgbox("The value of array in " & i & " is :"  & a(i))
   Next
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

The value of array in 0 is :Red
The value of array in 1 is : Blue
The value of array in 2 is : Yellow

Функция, которая возвращает массив, содержащий указанное количество значений. Разделить на разделитель.

Join

Это функция, которая возвращает строку, содержащую указанное количество подстрок в массиве. Это полная противоположная функция метода разделения.

СинтаксисJoin(List[,delimiter])
Параметры и Описание

• Список — требуемый параметр. Массив, содержащий подстроки, которые должны быть соединены.
• Разделитель — необязательный параметр. Символ, который используется как разделитель при возврате строки. По умолчанию разделителем является Space.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   ' Join using spaces
   a = array("Red","Blue","Yellow")
   b = join(a)
   msgbox("The value of b " & " is :"  & b)
  
   ' Join using $
   b = join(a,"$")
   msgbox("The Join result after using delimiter is : " & b)
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

The value of b is :Red Blue Yellow
The Join result after using delimiter is : Red$Blue$Yellow

Функция, которая возвращает строку, содержащую указанное количество подстрок в массиве. Это полная противоположная функция метода разделения.

Filter

Функция фильтра, которая возвращает массив на основе нуля, который содержит подмножество массива строк на основе определенных критериев фильтра.

СинтаксисFilter(inputstrings, value[, include [,compare]])
Параметры и Описание

• Inputstrings — обязательный параметр. Этот параметр соответствует массиву строк для поиска.
• Значение — требуемый параметр. Этот параметр соответствует строке для поиска по параметру inputstrings.
• Include — необязательный параметр. Это логическое значение, которое указывает, следует ли возвращать подстроки, которые включают или исключают.
• Compare — Необязательный параметр. Этот параметр описывает, какой метод сравнения строк должен использоваться.
• 0 = vbBinaryCompare — выполняет двоичное сравнение
• 1 = vbTextCompare — выполняет текстовое сравнение

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim a,b,c,d as Variant
   a = array("Red","Blue","Yellow")
   b = Filter(a,"B")
   c = Filter(a,"e")
   d = Filter(a,"Y")
  
   For each x in b
      msgbox("The Filter result 1: " & x)
   Next
  
   For each y in c
      msgbox("The Filter result 2: " & y)
   Next
  
   For each z in d
      msgbox("The Filter result 3: " & z)
   Next
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.p The Filter result 1: Blue
The Filter result 2: Red
The Filter result 2: Blue
The Filter result 2: Yellow
The Filter result 3: Yellow

Функция, которая возвращает массив с нулевым основанием, который содержит подмножество массива строк на основе определенных критериев фильтра.

IsArray

Функция IsArray возвращает логическое значение, указывающее, является ли указанная входная переменная переменной или переменной NOT переменной массива.

СинтаксисIsArray(variablename)
пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim a,b as Variant
   a = array("Red","Blue","Yellow")
   b = "12345"
  
   msgbox("The IsArray result 1 : " & IsArray(a))
   msgbox("The IsArray result 2 : " & IsArray(b))
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

The IsArray result 1 : True
The IsArray result 2 : False

Функция, возвращающая логическое значение, указывающее, является ли входная переменная массивом.

Erase

Функция Erase используется для сброса значений массивов фиксированного размера и освобождения памяти динамических массивов. Он ведет себя в зависимости от типа массивов.

СинтаксисErase ArrayName

• Фиксированный числовой массив, каждый элемент в массиве сбрасывается до нуля.
• Исправлен строковый массив, каждый элемент в массиве сбрасывается до нулевой длины «».
• Массив объектов, каждый элемент в массиве сбрасывается до специального значения Nothing.

пример

Добавьте кнопку и добавьте следующую функцию.

Private Sub Constant_demo_Click()
   Dim NumArray(3)
   NumArray(0) = "VBScript"
   NumArray(1) = 1.05
   NumArray(2) = 25
   NumArray(3) = #23/04/2013#
  
   Dim DynamicArray()
   ReDim DynamicArray(9)   ' Allocate storage space.
  
   Erase NumArray          ' Each element is reinitialized.
   Erase DynamicArray      ' Free memory used by array.
  
   ' All values would be erased.
   msgbox("The value at Zeroth index of NumArray is " & NumArray(0))
   msgbox("The value at First index of NumArray is " & NumArray(1))
   msgbox("The value at Second index of NumArray is " & NumArray(2))
   msgbox("The value at Third index of NumArray is " & NumArray(3))
End Sub

Когда вы выполняете вышеуказанную функцию, она производит следующий вывод.

The value at Zeroth index of NumArray is
The value at First index of NumArray is
The value at Second index of NumArray is
The value at Third index of NumArray is

Функция, которая восстанавливает выделенную память для переменных массива.

 С уважением, авторы сайта Компьютерапия

Понравилась статья? Поделитесь ею с друзьями и напишите отзыв в комментариях!

Массивы VBA — Автоматизация Excel

В этой статье

• Краткий обзор массивов VBA
  • Массивы
• Краткие примеры массивов VBA
• Преимущества массивов? — Скорость!
• Создать / объявить массив (DIM)
  • Статический массив
  • Динамический массив
  • Redim vs. Redim Proverve
  • Объявление массивов упрощено
• .
  • Выходной массив в диапазоне
• 2D / Многомерные массивы
• Примеры многомерных массивов
  • 1D Пример
  • 2D Array Пример
  • 3D Array Пример
• 5 / размер

В VBA Массив — это одна переменная, которая может содержать несколько значений. Думайте о массиве как о диапазоне ячеек: каждая ячейка может хранить значение. Массивы могут быть одномерными (подумайте об одном столбце), двумерными (подумайте о нескольких строках и столбцах) или многомерными. К значениям массива можно получить доступ по их положению (номеру индекса) в массиве.

VBA Array Quick Sheet

Массивы

Создать

Dim arr(1 To 3) As Variant
arr(1) = «один»
arr(2) = «два»
arr(3) = «три»

Создать из Excel

Уменьшить размер ячейки (от 1 до 3) как вариант
Затемнить ячейку как диапазон, i как целое число
i = LBound(arr)
Для каждой ячейки в диапазоне («A1:A3»)
i = i + 1
arr(i) = cell.value
Следующая ячейка

Читать все элементы

Dim i as Long
For i = LBound(arr) To UBound(arr)
MsgBox arr(i)
Next i

Erase

Erase arr

Array to String

Dim sName As String
sName = Join(arr, “:”)

Reserve aDrr Size

3 100)

Set Value

arr(1) = 22

VBA Quick Examples

Прежде чем углубляться в детали, рассмотрим полный пример:

 Sub ArrayExample()
    Dim strNames (от 1 до 4) как строка

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"

    msgbox strNames(3)
Конец суб 

Здесь мы создали одномерный строковый массив: strNames размера четыре (может содержать четыре значения) и присвоили четыре значения. Наконец, мы отображаем третье значение в окне сообщения.

В этом случае польза от использования массива невелика: требуется только одно объявление переменной вместо четырех.

Однако давайте рассмотрим пример, который покажет истинную мощь массива:

 Sub ArrayExample2()
    Dim strNames (от 1 до 60000) как строка
    Дим и пока

    Для я = 1 до 60000
        strNames(i) = Cells(i, 1).Value
    Далее я
Конец суб 

Здесь мы создали массив, который может содержать 60 000 значений, и мы быстро заполнили массив из столбца A рабочего листа.

Преимущества массива? — Скорость!

Вы можете подумать о массивах, похожих на рабочие листы Excel:

• Каждая ячейка (или элемент массива) может содержать собственное значение
• Доступ к каждой ячейке (или элементу массива) можно получить по ее положению в строке и столбце.
  • Рабочий лист Упр. ячейки (1,4). значение = «Строка 1, столбец 4»
  • Массив пр. arrVar(1,4) = «Строка 1, Столбец 4»

Так зачем возиться с массивами? Почему бы просто не читать и не записывать значения непосредственно в ячейки Excel? Одно слово: Скорость!

Чтение/запись в ячейки Excel — медленный процесс. Работать с массивами намного быстрее!

Создание/объявление массива (Dim)

Примечание. Массивы могут иметь несколько «измерений». Для простоты мы начнем с работы только с одномерными массивами. Позже в этом руководстве мы познакомим вас с многомерными массивами.

Статический массив

Статические массивы — это массивы, размер которых не может изменяться. И наоборот, динамических массивов могут изменять размер. Они декларируются немного по-другому. Во-первых, давайте посмотрим на статические массивы.

Примечание. Если размер массива не изменится, используйте статический массив.

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

Вы можете явно объявить начальную и конечную позиции массива:

 Sub StaticArray1()

    'Создает массив с позициями 1,2,3,4
    Dim arrDemo1 (от 1 до 4) как строка
    
    'Создает массив с позициями 4,5,6,7
    Dim arrDemo2 (от 4 до 7) до тех пор, пока
    
    'Создает массив с позициями 0,1,2,3
    Dim arrDemo3 (от 0 до 3) As Long

End Sub 

Или вы можете ввести только размер массива:

 Sub StaticArray2()

    'Создает массив с позициями 0,1,2,3
    Dim arrDemo1(3) как строка

Конец суб 

Важно! Обратите внимание, что по умолчанию массивы начинаются с позиции 0. Таким образом, Dim arrDemo1(3) создает массив с позициями 0,1,2,3.

Вы можете объявить Option Base 1 в верхней части вашего модуля, чтобы вместо этого массив начинался с позиции 1:

 Option Base 1

Субстатический массив3()

    'Создает массив с позициями 1,2,3
    Dim arrDemo1(3) как строка

End Sub 

Однако я считаю, что гораздо проще (и менее запутанно) просто явно объявить начальную и конечную позиции массивов.

Кодирование VBA стало проще

Остановить поиск кода VBA в сети. Узнайте больше об AutoMacro — конструкторе кода VBA, который позволяет новичкам создавать процедуры с нуля с минимальными знаниями в области программирования и множеством функций, позволяющих сэкономить время для всех пользователей!

Узнать больше

Динамический массив

Динамические массивы — это массивы, размер которых можно изменить (или размер которых не нужно определять).

Существует два способа объявления динамического массива.

Variant Arrays

Первый способ объявить динамический массив — установить тип массива Variant .

 Dim arrVar() As Variant 

С Variant Array размер массива определять не нужно. Размер подстроится автоматически. Просто помните, что массив начинается с позиции 0 (если вы не добавите Option Base 1 в начало вашего модуля)

 Sub VariantArray()
    Dim arrVar() как вариант
    
    'Определить значения (размер = 0,1,2,3)
    arrVar = Массив (1, 2, 3, 4)
    
    'Изменить значения (размер = 0,1,2,3,4)
    arrVar = Массив("1а", "2а", "3а", "4а", "5а")

    'Выходная позиция 4 ("5a")
    MsgBox arrVar(4)

Конец суб 

Невариантные динамические массивы

Для невариантных массивов необходимо определить размер массива перед присвоением значений массиву. Однако процесс создания массива немного отличается:

 Sub DynamicArray1()
    Dim arrDemo1() как строка

    'Изменяет размеры массива с позициями 1,2,3,4
    ReDim arrDemo1 (от 1 до 4)
    
End Sub 

Сначала вы объявляете массив, аналогичный статическому массиву, за исключением того, что вы опускаете размер массива:

 Dim arrDemo1() As String 

Теперь, когда вы хотите установить размер массива, вы используете команду ReDim для изменения размера массива:

 'Изменяет размер массива с позициями 1,2,3,4
ReDim arrDemo1(1 To 4) 

ReDim изменяет размер массива. Читайте ниже о разнице между ReDim и ReDim Preserve.

ReDim против ReDim Preserve

При использовании команды ReDim вы удаляете все существующие значения из массива. Вместо этого вы можете использовать ReDim Preserve для сохранения значений массива:

 'Изменяет размеры массива с позициями 1,2,3,4 (сохранение существующих значений)
ReDim Preserve arrDemo1(1 To 4) 

Упрощенное объявление массивов

Возможно, после прочтения всего вышеизложенного вы чувствуете себя ошеломленным. Для простоты мы будем в основном работать со статическими массивами до конца статьи.

Программирование VBA | Генератор кода работает на вас!

Установка значений массива

Установка значений массива очень проста.

В случае статического массива вы должны определить каждую позицию массива по одной за раз:

 Sub ArrayExample()
    Dim strNames (от 1 до 4) как строка

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"
End Sub 

С Variant Array вы можете определить весь массив одной строкой (практично только для небольших массивов):

 Sub ArrayExample_1Line()
    Dim strNames() как вариант

    strNames = Array("Шелли", "Стив", "Нима", "Хосе")

End Sub 

Если вы попытаетесь определить значение для несуществующего расположения массива, вы получите сообщение об ошибке Subscript Out of Range:

 strNames(5) = "Shannon" 

В разделе «Назначить диапазон массиву» ниже мы покажем вам, как использовать цикл для быстрого присвоения большого количества значений массивам.

Получить значение массива

Таким же образом можно получить значения массива. В приведенном ниже примере мы запишем значения массива в ячейки:

 Range("A1").Value = strNames(1)
    Диапазон ("A2"). Значение = strNames (2)
    Диапазон ("A3"). Значение = strNames (3)
    Диапазон ("A4"). Значение = strNames (4) 

Назначить диапазон массиву

Чтобы назначить диапазон массиву, вы можете использовать цикл:

 Sub RangeToArray()
    Dim strNames (от 1 до 60000) как строка
    Дим и пока

    Для я = 1 до 60000
        strNames(i) = Cells(i, 1).Value
    Далее я
End Sub 

Это будет перебирать ячейки A1: A60000, назначая значения ячеек массиву.

Выходной массив в диапазон

Или вы можете использовать цикл для присвоения массива диапазону:

 Для i = 1 до 60000
        Ячейки(i, 1).Value = strNames(i)
    Далее я
 

Это сделает обратное: назначит значения массива ячейкам A1:A60000

2D/многомерные массивы

До сих пор мы работали исключительно с одномерными (1D) массивами. Однако массивы могут иметь до 32 измерений.

Думайте о массиве 1D как об одной строке или столбце ячеек Excel, о массиве 2D, как о целом рабочем листе Excel с несколькими строками и столбцами, а о массиве 3D, как о целой книге, содержащей несколько листов, каждый из которых содержит несколько строк и столбцов. (Вы также можете думать о трехмерном массиве как о кубике Рубика).

Автомакрос | Окончательная надстройка VBA | Нажмите для бесплатной пробной версии!

Примеры многомерных массивов

Теперь давайте продемонстрируем примеры работы с массивами разных размерностей.

Пример массива 1D

Эта процедура объединяет предыдущие примеры массивов в одну процедуру, демонстрируя, как можно использовать массивы на практике.

 ПодмассивEx_1d()
    Dim strNames (от 1 до 60000) как строка
    Дим и пока
 
    'Присвоить значения массиву
    Для я = 1 до 60000
        strNames(i) = Cells(i, 1).Value
    Далее я
    
    'Вывод значений массива в диапазон
    Для я = 1 до 60000
        Листы("Выход"). Ячейки(i, 1).Value = strNames(i)
    Далее я
Конец суб 

Пример двумерного массива

Эта процедура содержит пример двумерного массива:

 Sub ArrayEx_2d()
    Dim strNames (от 1 до 60000, от 1 до 10) как строка
    Dim i As Long, j As Long
 
    'Присвоить значения массиву
    Для я = 1 до 60000
        Для j = от 1 до 10
            strNames(i, j) = Cells(i, j).Value
        Следующий j
    Далее я
    
    'Вывод значений массива в диапазон
    Для я = 1 до 60000
        Для j = от 1 до 10
            Листы("Выход").Ячейки(i, j).Value = strNames(i, j)
        Следующий j
    Далее я
Конец суб 

Пример трехмерного массива

Эта процедура содержит пример трехмерного массива для работы с несколькими листами:

 Sub ArrayEx_3d()
    Dim strNames (от 1 до 60000, от 1 до 10, от 1 до 3) в виде строки
    Dim i As Long, j As Long, k As Long
 
    'Присвоить значения массиву
    Для к = от 1 до 3
        Для я = 1 до 60000
            Для j = от 1 до 10
                strNames(i, j, k) = Sheets("Лист" & k). Cells(i, j).Value
            Следующий j
        Далее я
    Следующий k
    
    'Вывод значений массива в диапазон
    Для к = от 1 до 3
        Для я = 1 до 60000
            Для j = от 1 до 10
                Листы («Вывод» и k). Ячейки (i, j). Значение = strNames (i, j, k)
            Следующий j
        Далее я
    Следующий k
Конец суб 

Автомакрос | Окончательная надстройка VBA | Нажмите для бесплатной пробной версии!

Длина/размер массива

До сих пор мы знакомили вас с различными типами массивов и учили, как объявлять массивы и получать/устанавливать значения массива. Далее мы сосредоточимся на других необходимых темах для работы с массивами.

Функции UBound и LBound

Первым шагом к получению длины/размера массива является использование функций UBound и LBound для получения верхней и нижней границ массива:

 Sub UBoundLBound()
    Dim strNames (от 1 до 4) как строка
    
    MsgBox UBound(strNames)
    MsgBox LBound(strNames)
End Sub 

Вычитание двух (и добавление 1) даст вам длину:

 GetArrLength = UBound(strNames) - LBound(strNames) + 1 

Функция длины массива

Вот функция для получения одномерного длина массива:

 Публичная функция GetArrLength(a As Variant) As Long
   Если Пусто(а) Тогда
      GetArrLength = 0
   Еще
      GetArrLength = UBound(a) - LBound(a) + 1
   Конец, если
Завершить функцию 

Нужно рассчитать размер двумерного массива? Ознакомьтесь с нашим руководством: Расчет размера массива.

Циклический обход массива

Существует два способа циклического обхода массива. Первый перебирает целые числа, соответствующие числовым позициям массива. Если вы знаете размер массива, вы можете указать его напрямую:

 Sub ArrayExample_Loop1()
    Dim strNames (от 1 до 4) как строка
    Дим и пока

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"
    
    Для i = от 1 до 4
        MsgBox strNames(i)
    Далее я
Конец суб 

Однако, если вы не знаете размер массива (если массив динамический), вы можете использовать функции LBound и UBound из предыдущего раздела:

 Sub ArrayExample_Loop2()
    Dim strNames (от 1 до 4) как строка
    Дим и пока

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"
    
    Для i = LBound(strNames) To UBound(strNames)
        MsgBox strNames(i)
    Далее я
Конец суб 

Автомакрос | Окончательная надстройка VBA | Нажмите для бесплатной пробной версии!

Для каждого цикла массива

Второй метод — с циклом для каждого. Это перебирает каждый элемент в массиве:

 Sub ArrayExample_Loop3()
    Dim strNames (от 1 до 4) как строка
    Тусклый предмет

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"
    
    Для каждого элемента в strNames
        Элемент MsgBox
    Следующий элемент
Конец суб 

Цикл For Each Array Loop будет работать с многомерными массивами в дополнение к одномерным массивам.

Цикл через двумерный массив

Вы также можете использовать функции UBound и LBound для циклического просмотра многомерного массива. В этом примере мы будем перебирать двумерный массив. Обратите внимание, что функции UBound и LBound позволяют указать, для какого измерения массива необходимо найти верхнюю и нижнюю границы (1 для первого измерения, 2 для второго измерения).

Sub ArrayExample_Loop4()
    Dim strNames (от 1 до 4, от 1 до 2) как строка
    Dim i As Long, j As Long

    strNames(1, 1) = "Шелли"
    strNames(2, 1) = "Стив"
    strNames(3, 1) = "Нима"
    strNames(4, 1) = "Хосе"
    
    strNames(1, 2) = "Шелби"
    strNames(2, 2) = "Стивен"
    strNames(3, 2) = "Немо"
    strNames(4, 2) = "Джесси"
    
    Для j = LBound(strNames, 2) To UBound(strNames, 2)
        Для i = LBound(strNames, 1) To UBound(strNames, 1)
            MsgBox strNames(i, j)
        Далее я
    Следующий j
Конец суб 

Другие задачи массива

Очистить массив

Чтобы очистить весь массив, используйте оператор Erase:

 Erase strNames 

Пример использования:

 Sub ArrayExample()
    Dim strNames (от 1 до 4) как строка

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"

    Стереть имена страниц
End Sub 

Кроме того, вы также можете изменить размер массива, чтобы изменить его размер, очистив часть массива:

 ReDim strNames(1 to 2) 

Это изменяет размер массива до размера 2, удаляя позиции 3 и 4.

AutoMacro | Окончательная надстройка VBA | Нажмите для бесплатной пробной версии!

Подсчет массива

Вы можете подсчитать количество позиций в каждом измерении массива с помощью функций UBound и LBound (описанных выше).

Вы также можете подсчитать количество введенных элементов (или элементов, соответствующих определенным критериям), прокручивая массив.

Этот пример будет перебирать массив объектов и подсчитывать количество непустых строк, найденных в массиве:

 Sub ArrayLoopandCount()
    Dim strNames (от 1 до 4) как строка
    Dim i As Long, n As Long

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    
    Для i = LBound(strNames) To UBound(strNames)
        Если strNames(i) <> "" Тогда
            п = п + 1
        Конец, если
    Далее я
    
    MsgBox n & "обнаружены непустые значения."
End Sub 

Удалить дубликаты

В какой-то момент вам может понадобиться удалить дубликаты из массива. К сожалению, VBA не имеет встроенной функции для этого. Тем не менее, мы написали функцию для удаления дубликатов из массива (она слишком длинная, чтобы включать ее в это руководство, но перейдите по ссылке, чтобы узнать больше).

Фильтр

Функция фильтра VBA позволяет фильтровать массив. Это достигается путем создания нового массива только с отфильтрованными значениями. Ниже приведен краткий пример, но обязательно прочитайте статью, чтобы узнать больше примеров для разных нужд.

 Sub Filter_Match()
 
    'Определить массив
    Dim strNames как вариант
    strNames = Array("Стив Смит", "Шеннон Смит", "Райан Джонсон")
 
    'Массив фильтров
    Dim strSubNames как вариант
    strSubNames = Фильтр(strNames, "Кузнец")
    
    'Подсчет отфильтрованного массива
    MsgBox "Найдено " и UBound(strSubNames) - LBound(strSubNames) + 1 & " имена."
 
Конец суб 

Функция IsArray

Вы можете проверить, является ли переменная массивом, используя функцию IsArray:

 Sub IsArrayEx()

    'Создает массив с позициями 1,2,3
    Dim arrDemo1(3) как строка
    
    'Создает обычную строковую переменную
    Dim str As String
    
    MsgBox IsArray(arrDemo1)
    MsgBox IsArray(строка)

End Sub 

Автомакрос | Окончательная надстройка VBA | Нажмите для бесплатной пробной версии!

Присоединиться к массиву

Вы можете быстро «объединить» весь массив с помощью функции присоединения:

 Sub Array_Join()
    Dim strNames (от 1 до 4) как строка
    Dim joinNames As String

    strNames(1) = "Шелли"
    strNames(2) = "Стив"
    strNames(3) = "Нима"
    strNames(4) = "Хосе"
    
    joinNames = Присоединиться (strNames, ",")
    MsgBox
End Sub 

Разделить строку на массив

Функция разделения VBA разделит строку текста на массив, содержащий значения из исходной строки. Давайте рассмотрим пример:

 Sub Array_Split()
    Dim Names () как строка
    DimjoinNames As String
    
    joinNames = "Шелли, Стив, Нема, Хосе"
    Имена = Разделить (объединенные имена, ",")

    Имена MsgBox(1)
End Sub 

Здесь мы разбиваем эту строку текста «Шелли, Стив, Нема, Хосе» на массив (размер 4), используя разделитель-запятую (,).

Const Массив

Массив не может быть объявлен как константа в VBA. Однако вы можете обойти это, создав функцию для использования в качестве массива:

 ' Определить массив констант
Функция КонстантныйМассив()
    КонстантныйМассив = Массив(4, 12, 21, 100, 5)
Конечная функция

' Получить значение ConstantArray
Подпрограмма получения значений ()
    Массив констант MsgBox(3)
End Sub 

Копировать массив

Не существует встроенного способа копирования массива с помощью VBA. Вместо этого вам нужно будет использовать цикл для присвоения значений из одного массива другому.

 Sub CopyArray()

    Dim Arr1 (от 1 до 100) As Long
    Dim Arr2 (от 1 до 100) As Long
    Дим и пока
    
    'Создать массив1
    Для i = от 1 до 100
        Арр1(я) = я
    Далее я
    
    'КопироватьМассив1 в Массив2
    Для i = от 1 до 100
        Арр2(я) = Арр1(я)
    Далее я
    
    Сообщение Arr2(74)

Конец суб 

Автомакрос | Окончательная надстройка VBA | Нажмите для бесплатной пробной версии!

Транспонировать

Нет встроенной функции VBA, позволяющей транспонировать массив. Однако мы написали функцию для транспонирования 2D-массива. Прочтите статью, чтобы узнать больше.

Массив возврата функции

Разработчики VBA часто задают вопрос, как создать функцию, возвращающую массив. Я думаю, что большинство трудностей решается с помощью Variant Arrays. Мы написали статью на тему: Массив возврата функции VBA.

Использование массивов в Access VBA

Большинство приведенных выше примеров массивов работают точно так же в Access VBA, как и в Excel VBA. Одно из основных отличий состоит в том, что если вы хотите заполнить массив данными Access, вам потребуется перебрать объект RecordSet, а не объект Range.

 Sub RangeToArrayAccess()
   При ошибке Возобновить Далее
   Dim strNames() как строка
   Дим и пока
   Dim iCount As Long
   Dim dbs как база данных
   Dim сначала как набор записей
   Установите dbs = CurrentDb
   Установите сначала = dbs.OpenRecordset("tblClients", dbOpenDynaset)
   С первым
      .MoveLast
      .MoveFirst
      iCount = .RecordCount
      ReDim strNames (от 1 до iCount)
      Для i = 1 для iCount
         strNames(i) = rst.Fields("ИмяКлиента")
         .MoveNext
      Далее я
   Конец с
   рст.Закрыть
   Установить сначала = ничего
   Установите dbs = Ничего
Конец суб 

Как использовать массив в VBA в Excel (простое руководство)

Главная / VBA / Массивы

Ключевые моменты

Что такое массив в VBA?

Как объявить массив в VBA

Quick Notes

массив с варианта типа данных

Верновая информация из массива

Вариант вариант базы 1

Поиск

0004

Думайте о массиве в массиве VBA как о мини-базе данных для хранения и систематизации данных (пример: имя учащегося, предмет и баллы).

Если вы хотите работать с большими данными с помощью VBA, вам необходимо понимать массивы и способы их использования в кодах VBA, и в этом руководстве вы изучите все аспекты массива, и мы также увидим некоторые примеры их использования.

Что такое массив в VBA?

В VBA массив — это переменная, которая может хранить несколько значений . Вы можете получить доступ ко всем значениям из этого массива одновременно или вы также можете получить доступ к одному значению, указав его порядковый номер, который является позицией этого значения в массиве. Представьте, что у вас свидание с именем, предметом и оценками учащегося.

Всю эту информацию можно хранить в массиве не только для одного ученика, но и для сотен. Вот простой пример для объяснения массива.

В приведенном выше примере у вас есть массив из десяти элементов (размер массива), и каждый элемент имеет определенную позицию (индекс).

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

Массив, который мы использовали в приведенном выше примере, является одномерным массивом. Но впереди в этом руководстве мы также узнаем о многомерных массивах.

Как объявить массив в VBA

Как я упоминал выше, массив — это тип переменной, поэтому вам нужно объявить его, используя ключевые слова (Dim, Private, Public и Static). В отличие от обычной переменной, при объявлении массива вам нужно использовать пару круглых скобок после имени массива.

Допустим, вы хотите объявить массив, который мы использовали в приведенном выше примере.

Шаги для объявления массива.

• Сначала используйте ключевое слово «Dim», введите имя массива и скобки.
• Далее необходимо указать тип данных для массива. Если у вас нет указанного типа данных, VBA назначит соответствующий тип данных.
• После этого вам нужно определить количество элементов, которые вы хотите хранить в массиве.
• В конце концов, чтобы присвоить значение элементу в массиве, вам нужно использовать порядковый номер элемента для его идентификации, а затем присвоить ему значение.

Полный код

 Sub vba_array_example()
Dim StudentNames(10) как строка
StudentNames(0) = "Вейлон"
StudentNames(1) = "Мортон"
StudentNames(2) = "Рудольф"
StudentNames(3) = "Джорджин"
StudentNames(4) = "Билли"
StudentNames(5) = "Энид"
StudentNames(6) = "Женевьева"
StudentNames(7) = "Джуди"
StudentNames(8) = "Мадалин"
Имена студентов(9) = "Элтон"
End Sub 

Краткие примечания

• В приведенном выше коде сначала имеется оператор Dim, определяющий одномерный массив, который может хранить до 10 элементов и имеет строковый тип данных.
• После этого у вас есть 10 строк кода, которые определяют элементы массива от 0 до 9.

Массив с переменным типом данных

При объявлении массива, если вы не укажете тип данных, VBA будет автоматически использовать вариантный тип данных, который вызывает небольшое увеличение использования памяти, и это увеличение использования памяти может снизить производительность кода.

Итак, при объявлении массива лучше определить конкретный тип данных, если нет необходимости использовать вариантный тип данных.

Возврат информации из массива

Как я упоминал ранее, для получения информации из массива вы можете использовать порядковый номер элемента для указания его позиции. Например, если вы хотите вернуть 8-й элемент в области, которую мы создали в предыдущем примере, код будет таким:

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

Use Option Base 1

Я уверен, что у вас есть этот вопрос прямо сейчас, почему мы начали наш список элементов с нуля, а не с одного?

Что ж, это не ошибка.

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

Однако, в отличие от большинства других компьютерных языков, в VBA вы можете нормализовать способ работы индекса is, что означает, что вы можете сделать так, чтобы он начинался с 1. Единственное, что вам нужно сделать, это добавить оператор на основе параметров в начале модуль перед объявлением массива.

Теперь этот массив будет выглядеть примерно так, как показано ниже:

Поиск в массиве

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

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

 Sub vba_array_search()
 'в этом разделе объявляются массив и переменные _
 что вам нужно искать в массиве.
 Dim myArray(10) как целое число
 Dim i как целое число
 Dim varUserNumber как вариант
 Dim strMsg как строка
 'Эта часть кода добавляет 10 случайных чисел к _
 массив и показывает результат в _
 непосредственно окно, а также.
 Для i = от 1 до 10
 мой массив (i) = Int (Rnd * 10)
 Debug.Print myArray(i)
 Далее я
 'это поле ввода, которое запрашивает число, которое вы хотите найти.
 Петля:
 varUserNumber = поле ввода _
 ("Введите число от 1 до 10 для поиска:", _
 «Демонстратор линейного поиска»)
 'это оператор IF, который проверяет значение, которое вы _
 ввели в поле ввода.
 Если varUserNumber = "" Тогда Конец
 Если не IsNumeric (varUserNumber), то GoTo Loopback
 Если varUserNumber < 1 или varUserNumber > 10, то GoTo Loopback
 'сообщение, чтобы показать, если значение не найдено.
 strMsg = "Ваше значение, " & varUserNumber & _
 ", не найдено в массиве."
 'проходим по массиву и сопоставляем каждое значение с _
 значение, которое вы ввели в поле ввода.
 Для i = 1 To UBound (myArray)
 Если myArray(i) = varUserNumber Тогда
 strMsg = "Ваше значение, " & varUserNumber & _
 ", был найден в позиции " & i & " в массиве.