Vba объявление массива: Все про массивы в VBA читать в пошаговом руководстве по Excel

VBA объявляет массив — voxt.ru

Excel VBA объявляет массив

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

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

Массив — это переменная, которая может содержать более одного значения, в отличие от обычных переменных, которые могут хранить только одно значение за раз. Массив представляет собой расширенную версию объявление переменных в VBAОбъявление переменных в VBAОбъявление переменной необходимо в VBA, чтобы определить переменную для определенного типа данных, чтобы она могла хранить значения; любая переменная, не определенная в VBA, не может содержать значения. читать далее. Например, представьте ситуацию, когда вы хотите присвоить переменным имена 5 учеников, и в общем случае мы объявляем пять переменных для всех пяти переменных, которые мы присваиваем именам отдельных учеников по одному; ниже приведен пример кода того же самого.

Код:

Sub Array_Example()
  Dim Student1 As String
  Dim Student2 As String
  Dim Student3 As String
  Dim Student4 As String
  Dim Student5 As String
End Sub

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

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

Примеры

Вы можете скачать этот шаблон VBA Declare Array Excel здесь — Шаблон Excel для объявления массива VBA

Пример №1

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

Сначала запустите подпроцедуру.

Код:

Sub Array_Example()
End Sub

Теперь, как обычно, объявите переменную как строку.

Код:

Sub Array_Example()
  Dim Student As String
End Sub

После объявления переменной убедитесь, сколько значений она должна содержать. В этом случае я хочу сохранить имена пяти учеников, поэтому теперь нам нужно зафиксировать размер массива, т.е. от 1 до 5. То же самое указать в переменной в скобках.

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
End Sub

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

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
  Student(1) = "John"
  Student(2) = "Peter"
  Student(3) = "Ricky"
  Student(4) = "Michael"
  Student(5) = "Anderson"
End Sub

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

Теперь, например, те же пять имен, которые есть у меня в ячейках рабочего листа.3

Теперь я хочу показать эти числа в окно сообщения в VBAОкно сообщения в VBAФункция VBA MsgBox — это функция вывода, которая отображает обобщенное сообщение, предоставленное разработчиком. Этот оператор не имеет аргументов, и персонализированные сообщения в этой функции записываются в двойных кавычках, а для значений предоставляется ссылка на переменную.читать далее; хорошо, давайте объявим еще одну переменную для циклов как тип данных Integer.

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
  Dim K As Integer
End Sub

Как обычно, я сохранил переменную массива в размерах от 1 до 5.

В настоящее время открыть цикл FOR NEXT в VBAОткрыть цикл FOR NEXT в VBAВсе языки программирования используют цикл VBA For Next. После оператора FOR в этом цикле есть критерий, и код повторяется до тех пор, пока критерий не будет достигнут. читать далее, а поскольку у нас пять имен, введите ограничение от 1 до 5.

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
  Dim K As Integer
  For K = 1 To 5
  Next K
End Sub

Чтобы присвоить значения переменной массива, нам не нужно следовать предыдущему способу отображения Student (1), Student (2) таким образом, чтобы числа позиционировали переменную цикла поставок «k».

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
  Dim K As Integer
  For K = 1 To 5
   Student(K) =
  Next K
End Sub

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

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
  Dim K As Integer
  For K = 1 To 5
   Student(K) = Cells(K, 1).Value
  Next K
End Sub

Теперь через окно сообщения покажите значение переменной массива.

Код:

Sub Array_Example()
  Dim Student(1 To 5) As String
  Dim K As Integer
  For K = 1 To 5
   Student(K) = Cells(K, 1).Value
   MsgBox Student(K)
  Next K
End Sub

Теперь запустите код. В окне сообщения мы увидим имя. Снова нажмите Ok, чтобы увидеть второе имя. Вот так, нажав Ok, мы можем увидеть все пять имен.

Пример № 2 – Двумерные массивы

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

В приведенном выше примере мы определили размер массива от 1 до 5; это либо концентрируется на строках или столбцах.

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

Сначала определите переменную, а затем мы примем решение о размере массива.

Код:

Sub Two_Array_Example()
  Dim Student As String
End Sub

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

Код:

Sub Two_Array_Example()
  Dim Student(1 To 5, 1 To 3) As String
End Sub

Для этого я структурировал данные по именам учеников, оценкам и статусу оценок.

Теперь вернитесь в окно кодирования.

Объявите еще две переменные для цикла.

Код:

Sub Two_Array_Example()
  Dim Student(1 To 5, 1 To 3) As String
  Dim K As Integer, J As Integer
End Sub

Теперь закройте петлю, как показано ниже.

Код:

Sub Two_Array_Example()
 Dim Student(1 To 5, 1 To 3) As String
 Dim k As Integer, J As Integer
 For k = 1 To 5
  For J = 1 To 3
   Worksheets("Student List").Select
   Student(k, J) = Cells(k, J).Value
   Worksheets("Copy Sheet").Select
   Cells(k, J).Value = Student(k, J)
  Next J
Next k
End Sub

Это скопирует данные из листа «Список учащихся» и вставит их в «Копировать лист».

То, что нужно запомнить

• Массив — обширное понятие; это только вводная часть.
• Вам нужны продвинутые навыки кодирования, чтобы понять объявление массива.
• Чем больше вы используете массивы в своем коде, тем больше вы к ним привыкаете.

УЗНАТЬ БОЛЬШЕ >>

Post Views: 163

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

Прокрутить вверх

Массивы в Visual Basic for Application

Автор Антон Андронов На чтение 5 мин Опубликовано 05. 12.2015

Массивы в Visual Basic for Application – это структуры, которые обычно хранят наборы взаимосвязанных переменных одного типа. Доступ к записям массива осуществляется по их числовому индексу.

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

Dim Team_Member1 As String
Dim Team_Member2 As String

...

Dim Team_Member20 As String

Но можно использовать гораздо более простой и организованный способ – сохранить список имён членов команды в массиве из 20 переменных типа String:

Dim Team_Members(1 To 20) As String

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

Team_Members(1) = "John Smith"

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

Как это работает продемонстрировано ниже на примере кода, который выводит имена каждого члена команды последовательно в ячейки столбца A активного рабочего листа Excel.

For i = 1 To 20
Cells(i,1).Value = Team_Members(i)
Next i

Очевидно, что работа с массивом, в котором сохранено 20 имён, значительно менее громоздка и более аккуратна, чем использование 20 отдельных переменных. А что, если этих имён не 20, а 1000? А если, вдобавок, требуется сохранить отдельно фамилии и отчества?! Ясно, что вскоре станет совершенно невозможно справиться с таким объёмом данных в коде VBA без помощи массива.

Содержание

1. Многомерные массивы в Excel Visual Basic
2. Объявление массивов в Excel Visual Basic
3. Динамические массивы

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

Массивы Visual Basic, о которых шла речь выше, считаются одномерными. Это означает, что они хранят простой список имён. Однако, массивы могут иметь множество измерений. Например, двумерный массив можно сравнить с сеткой значений.

Предположим, что нужно сохранить ежедневные показатели продаж за январь для 5 разных команд. Для этого потребуется двумерный массив, состоящий из 5 наборов показателей для 31 дня. Объявим массив таким образом:

Dim Jan_Sales_Figures(1 To 31, 1 To 5) As Currency

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

Jan_Sales_Figures(15, 2)

Таким же образом можно объявить массив с 3-мя и более измерениями – достаточно добавить дополнительные измерения в объявление массива и использовать дополнительные индексы для ссылки на элементы этого массива.

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

Ранее в этой статье мы уже рассмотрели несколько примеров объявления массивов в VBA, но эта тема заслуживает более подробного рассмотрения. Как было показано, одномерный массив можно объявить вот так:

Dim Team_Members(1 To 20) As String

Такое объявление сообщает компилятору VBA, что массив Team_Members состоит из 20 переменных, к которым можно обратиться по индексам от 1 до 20. Однако, нам может прийти в голову пронумеровать наши переменные массива числами от 0 до 19, и в таком случае массив должен быть объявлен вот так:

Dim Team_Members(0 To 19) As String

На самом деле, по умолчанию нумерация элементов массива начинается с 0, и в объявлении массива начальный индекс может быть не указан вовсе, вот так:

Dim Team_Members(19) As String

Такую запись компилятор VBA расценит, как объявление массива из 20 элементов с индексами от 0 до 19.

Эти же правила действуют при объявлении многомерных массивов Visual Basic. Как уже было показано в одном из примеров, при объявлении двумерного массива индексы его измерений разделяются запятой:

Dim Jan_Sales_Figures(1 To 31, 1 To 5) As Currency

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

Dim Jan_Sales_Figures(31, 5) As Currency

то эта запись будет расценена, как двумерный массив, первое измерение которого содержит 32 элемента с индексами от 0 до 31, а второе измерение массива содержит 6 элементов с индексами от 0 до 5.

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

Все массивы в рассмотренных выше примерах имеют фиксированное количество измерений. Однако, во многих случаях мы не знаем заранее, какого размера должен быть наш массив. Можно выйти из ситуации, объявив огромный массив, размер которого будет наверняка больше, чем нужно для нашей задачи. Но такое решение потребует много лишней памяти и может замедлить работу программы. Есть решение лучше. Мы можем использовать динамический массив – это такой массив, размер которого может быть установлен и изменён сколько угодно раз в процессе выполнения макроса.

Динамический массив объявляется с пустыми скобками, вот так:

Dim Team_Members() As String

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

ReDim Team_Members(1 To 20)

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

If Team_Size > 20 Then
ReDim Team_Members(1 To Team_Size)
End If

Нужно иметь в виду, что изменение размера динамического массива таким способом приведёт к потере всех значений, хранившихся в массиве. Для того, чтобы сохранить данные, уже находящиеся в массиве, нужно использовать ключевое слово Preserve, как показано ниже:

If Team_Size > 20 Then
ReDim Preserve Team_Members(1 To Team_Size)
End If

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

Урок подготовлен для Вас командой сайта office-guru.ru
Источник: http://www.excelfunctions.net/Visual-Basic-Arrays.html
Перевел: Антон Андронов
Правила перепечатки
Еще больше уроков по Microsoft Excel

Оцените качество статьи. Нам важно ваше мнение:

VBA — объявление (затемнение), создание и инициализация переменной массива

В этой статье

• Что такое переменная массива VBA?
• Статические массивы
  • Индексы массивов
• Динамические массивы
• Варианты массивы
• ДЕКАННЫЙ МОДУЛ И ПУБЛИЧНЫЙ МАРСИИ
  • Общественный массив
• Инициализируйте Arrays
  • Функция Array
• Arrys Arrays
  • .
  • Повторная инициализация массивов
    • Использование ReDim
    • Использование ReDim Preserve

  В этом руководстве показано, как объявить (Dim), создать и инициализировать переменные массива в VBA

  Что такое переменная массива VBA?

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

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

  Вы можете объявить переменную массива так же, как и любую другую переменную, используя ключевое слово Dim, Static, Public или Private.

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

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

   Dim intA(4) как целое число
   

  Приведенный выше массив объявлен с помощью оператора Dim на уровне процедуры или модуля, а размер массива равен 5, поскольку мы не объявили значение LBound массива.

  Нет, это не опечатка! Размер массива равен 5, несмотря на ввод 4 в массив. Это связано с тем, что индексы массива автоматически начинаются с нуля.

  Индексы массива

  Индексы массива автоматически начинаются с нуля, если Option Base 1 не объявлен в верхней части модуля кода.

  Если объявлено Option Base 1 , то массивы автоматически начинаются с 1.

  Однако я считаю объявление переменных таким способом проблематичным. Рецензенты кода могут не знать, что массивы начинаются с нуля или объявления Option Base 1

  Вместо этого я предпочитаю явно объявлять начальную и конечную позиции массивов:

   Dim intA(2 to 5) как целое число 

  Обратите внимание, что при этом вы можете начать массив с любого числа (а не только с 1 или 0).

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

  Переменная динамического массива — это массив, размер которого можно изменить во время выполнения. Вы объявляете динамические переменные без размера.

   Dim intA() как целое число 

  Оператор ReDim можно использовать для указания размера массива после его создания.

   ReDim intA(2) 

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

   ReDim Preserve intA(2) 

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

  Вариантные массивы

  Вариантные массивы — это динамические массивы, с которыми проще работать.

   Dim varNames() 

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

  Как мы увидим ниже, вы можете инициализировать вариантные массивы с помощью функции массива (не нужно предварительно изменять размер массивов)!

  Объявление модуля и общедоступных массивов

  Как показано выше, массивы могут быть объявлены внутри процедур для использования в этой процедуре:

   Sub StaticArray()
  'объявить массив со значением LBound 1 и значением UBound 4
     Dim IntA (от 1 до 4) как целое число
  Конец суб 

  Но они также могут быть объявлены на уровне модуля или на глобальном уровне.

   Явный параметр
  
  'объявить массив со значением LBound 1 и значением UBound 4
  Dim IntA (от 1 до 4) как целое число
  
  Подстатический массив ()
  End Sub 

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

  Программирование на VBA стало проще

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

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

  Объявление общедоступного массива

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

   Public strNames(3) as String 

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

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

  Инициализировать массивы

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

   Подстатический массив ()
  'объявить массив со значением LBound 1 и значением UBound 4
    Dim IntA (от 1 до 4) как целое число
  'инициализировать массив
    ИнтА(1) = 10
    ИнтА(2) = 20
    ИнтА(3) = 30
    ИнтА(4) = 40
  'показать результат позиции 2 массива в ближайшем окне
     Отладка. Печать IntA(2)
  Конец суб 

  Если вы запустите описанную выше процедуру, значение 20 будет отображаться в ближайшем окне.

  Таким же образом можно присвоить значения динамическому массиву

   Sub DynamicArray()
  'объявить динамический массив, но опуская связанные значения
     Dim IntA() как целое число
  'инициализировать массив
     ReDim IntA (от 1 до 4)
     ИнтА(1) = 10
     ИнтА(2) = 20
     ИнтА(3) = 30
     ИнтА(4) = 40
  'показать результат позиции 2 массива в ближайшем окне
    Отладка.Печать
    ИнтерА(2)
  Конец суб 

  Функция массива

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

   'заполнить массив
      intA() = Array(10, 20, 30, 40) 

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

  Заполнение массива циклом

  Вы также можете заполнять массивы, перебирая диапазон ячеек в Excel

   Sub TestDynamicArrayFromExcel()
  'объявить массив
     Dim strNames() как строка
  'объявить целое число для подсчета строк в диапазоне
     Dim n как целое число
  'объявить целое число для цикла
     Dim i как целое число
  'подсчитаем строки в диапазоне
     n = Range("A1", Range("A1").End(xlDown)).Rows.Count
  'преобразовать массив в количество строк в диапазоне.
     ReDim strNames(n)
     Для i = 0 To n
        strNames(i) = Диапазон("A1").Смещение(i + 1, 0)
     Далее я
  'показать значения в массиве
     Присоединиться к MsgBox(strNames())
  Конец суб 

  Повторная инициализация массивов

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

   Подстатический массив ()
  'объявить массив со значением LBound 1 и значением UBound 4
     Dim IntA (от 1 до 4) как целое число
  'инициализировать массив
     ИнтА(1) = 10
     ИнтА(2) = 20
     ИнтА(3) = 30
     ИнтА(4) = 40
  'показать результат позиции 2 массива в ближайшем окне
     Отладка. Печать IntA(2)
  'снова инициализируем массив
     интА(2)= 200
     Отладка. Печать IntA(2)
   Конец суб 

  В приведенном выше примере статический массив сохранит все значения, кроме значения в позиции 2 — это значение изменится на 200.

  Использование ReDim

  Если вы используете динамический массив, оператор ReDim используется для установите размер вашего массива. Вы можете использовать оператор ReDim впоследствии в своем коде, чтобы изменить размер массива столько раз, сколько вам нужно. Приведенная ниже строка кода повторно инициализирует массив intA, чтобы он имел размер 2 (помните, что индекс массива начинается с 0!)

   ReDim intA(1) as Integer 

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

   Sub TestDynamicArray()
  'объявить массив
     Dim intA() как целое число
     ReDim intA(2)
  'заполнить массив числами
     интА(0) = 2
     intA(1) = 5
     интА(2) = 9
  'показать число в позиции 1
     Отладка. Печать intA(1)
  'изменить массив, чтобы изменить размер
     ReDim intA(3)
     интА(0) = 6
     интА(1) = 8
  'показать число в позиции 1 на этот раз
     Отладка. Печать intA(1)
  Конец суб 

  Если вы выполните указанную выше процедуру, значение 5 будет отображаться в непосредственном окне, а затем значение 8 будет отображаться после того, как мы изменим размер массива с помощью ReDim и заполним его заново. Однако, поскольку мы не заполнили IntA(2) и не использовали Re-Dim Preserve, значение в этой позиции в массиве будет удалено, а позиции 3 и 4 в массиве будут равны нулю.

  Использование ReDim Preserve

  Если мы используем ReDim Preserve, он сохранит исходные значения, содержащиеся в массиве.

   Sub TestDynamicArray()
  'объявить массив
     Dim intA() как целое число
     ReDim intA(2)
  'заполнить массив числами
     интА(0) = 2
     intA(1) = 5
     интА(2) = 9
  'показать число в позиции 2
     Отладка.  Печать intA(2)
  'исправить массив
     ReDim Preserve intA(3)
     интА(0) = 6
     интА(1) = 8
  'показать число в позиции 2 снова
    Отладка. Печать intA(2)
  Конец сабвуфера
   

  В обоих окнах сообщений, показанных выше, число 9появится, поскольку оператор ReDim Preserve сохранил это значение в этой позиции.

   

  Массив объявлений VBA | Как объявить массив в Excel VBA?

  В некоторых случаях нам нужно объявить несколько переменных. И в процессе объявления этих переменных нам нужно присвоить им какое-то значение. Это становится очень раздражающим, когда мы выполняем одну и ту же задачу снова и снова. Чтобы избежать таких ситуаций, в VBA у нас есть Declare Array в имени переменной. Объявление массива в Excel VBA используется, когда нам нужно объявить несколько переменных в последовательности. Таким образом, вместо того, чтобы записывать несколько переменных одну за другой, мы можем объявить одну переменную таким образом, чтобы она удовлетворяла потребности ситуации. Например, если мы хотим присвоить переменным имена 5 сотрудников, обычным способом мы будем делать это одно за другим, объявляя переменную 5 для каждого имени сотрудника, как показано ниже.

  Теперь вместо того, чтобы писать и объявлять переменную для каждого из 5 сотрудников, мы можем сократить этот шаг до одной строки кода с помощью VBA Declare Array.

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

  Мы узнаем, как объявить массив в Excel, используя код VBA.

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

  Объявление массива VBA — пример № 1

  VBA. Для этого выполните следующие шаги:

  Шаг 1: Откройте модуль в VBA на вкладке меню «Вставка», как показано ниже.

  Шаг 2: Напишите подпроцедуру от имени VBA Declare Array, как показано ниже. Мы можем выбрать любое имя согласно нашему требованию.

  Код:

   Sub VBA_DeclareArray()
  
  End Sub 

  Шаг 3: Теперь объявите переменную, в которой мы будем хранить значение 5 сотрудников в строке. Пусть эта переменная будет Employee (от 1 до 5) для 5 сотрудников.

  Код:

   Sub VBA_DeclareArray()
  
  Dim Employee (от 1 до 5) как строка
  
  Конец суб 

  Шаг 4: Теперь мы можем указать любое имя для каждой переменной Employee, начиная с Employee(1) и заканчивая Employee(5).

  Код:

   Sub VBA_DeclareArray()
  
  Dim Employee (от 1 до 5) как строка
  
  Сотрудник (1) = "Ашвани"
  Сотрудник (2) = "Аникет"
  Сотрудник (3) = "Ананд"
  Сотрудник (4) = "Глубокий"
  Сотрудник (5) = "Розовый"
  
  End Sub 

  Посмотрите, как мы сократили 5 строк объявления переменной до 1 строки.

  VBA Declare Array — пример № 2

  В этом примере мы поместим имена сотрудников, как показано в примере 1, в цикл.

  Выполните следующие шаги, чтобы объявить массивы в Excel VBA.

  Шаг 1: Напишите подпроцедуру от имени VBA Declare Array, как показано ниже.

  Код:

   Sub VBA_DeclareArray2()
  
  End Sub 

  Шаг 2: После этого объявите в нем 2 переменные. Один для сведений о сотруднике, который мы видели в примере 1, а другой для ячейки в виде целого числа.

  Код:

   Sub VBA_DeclareArray2()
  
  Dim Employee (от 1 до 5) как строка
  Dim A как целое число
  
  End Sub 

  Шаг 3: Теперь откройте цикл For-Next, как показано ниже.

  Код:

   Sub VBA_DeclareArray2()
  
  Dim Employee (от 1 до 5) как строка
  Dim A как целое число
  За
  Следующий А
  
  End Sub 

  Шаг 4: Теперь в цикле напишите условие выбора ячеек от 1 до 5.

  Код:

   Sub VBA_DeclareArray2()
  
  Dim Employee (от 1 до 5) как строка
  Dim A как целое число
  Для А = от 1 до 5
  Следующий А
  
  End Sub 

  Шаг 5: Теперь выберите значение Employee, начиная с ячейки 1, которая определена в переменной A.

  Код:

   Sub VBA_DeclareArray2()
  
  Dim Employee (от 1 до 5) как строка
  Dim A как целое число
  Для А = от 1 до 5
  Сотрудник (A) = Ячейки (A, 1). Значение
  Следующий А
  
  Конец суб 

  Шаг 6 :  Теперь есть два способа увидеть результат. Один от MsgBox и другие от Debug Print . Мы всегда использовали Msgbox, что является самым простым подходом. Теперь мы будем использовать Debug Print, чтобы увидеть имена сотрудников за один раз.

  Код:

   Sub VBA_DeclareArray2()
  
  Dim Employee (от 1 до 5) как строка
  Dim A как целое число
  Для А = от 1 до 5
  Сотрудник (A) = Ячейки (A, 1). Значение
  Сотрудник Debug.Print(A)
  Следующий А
  
  Конец сабвуфера
   

  Шаг 7 :  После этого откройте непосредственно окно, чтобы увидеть результат. Мы будем открывать непосредственное окно из строки меню просмотра, как показано ниже.

  Шаг 8 :  После этого запустите код, нажав клавишу F5 или нажав кнопку воспроизведения. Мы увидим, что всего одним щелчком мыши все имена сотрудников извлекаются из столбца A, ячейки с 1 по 5, в окно Immediate.

  Это также известно как цикл одномерного массива.

  VBA Declare Array — Example #3

  В этом примере мы увидим, как объявить массив в виде таблицы. Для этого у нас есть таблица с данными о сотрудниках. Здесь таблица состоит из имени, идентификатора и обозначения сотрудников. По умолчанию лист называется Sheet1 .

  Выполните следующие шаги, чтобы объявить массивы в Excel VBA.

  Шаг 1: Здесь также рассмотрим переменную, определенную в примере 1. Но наряду со строками вставьте также номера столбцов, чтобы сформировать двумерную матрицу.

  Код:

   Sub VBA_DeclareArray3()
  
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  
  End Sub 

  Шаг 2:  Определите другую переменную для хранения последовательности столбцов в виде целого числа, как показано ниже.

  Код:

   Sub VBA_DeclareArray3()
  
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  Dim B как целое число
  
  Конечный переходник 

  Шаг 3:  Как и в примере 1, здесь мы также будем использовать цикл For-Next. Но наряду с переменной A (строки) мы будем использовать цикл For-Next и для переменной B (столбцы). Здесь количество столбцов равно 3.

  Код:

   Sub VBA_DeclareArray3()
  
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  Dim B как целое число
  Для А = от 1 до 5
  Для B = от 1 до 3
  
  End Sub 

  Шаг 4: Теперь выберите лист, с которого нам нужно получить матрицу массива. Вот этот лист Лист1 .

  Код:

   Sub VBA_DeclareArray3()
  
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  Dim B как целое число
  Для А = от 1 до 5
  Для B = от 1 до 3
  Рабочие листы("Лист1"). Выбрать
  
  End Sub 

  Шаг 5: Теперь выберите значения под переменной, определенной с учетом Сотрудника (A, B) в качестве переменной здесь.

  Код:

   Sub VBA_DeclareArray3()
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  Dim B как целое число
  Для А = от 1 до 5
  Для B = от 1 до 3
  Рабочие листы("Лист1").Выбрать
  Сотрудник (A, B) = Ячейки (A, B). Значение
  
  Конец суб 

  Шаг 6: Точно так же мы снова выберем лист, куда нам нужно вставить данные из Sheet1 . Здесь лист Sheet2 a и снова рассмотрим ячейки (A, B) в качестве входных данных для Sheet2, который имеет детали из Sheet1.

  Код:

   Sub VBA_DeclareArray3()
  
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  Dim B как целое число
  Для А = от 1 до 5
  Для B = от 1 до 3
  Рабочие листы("Лист1").Выбрать
  Сотрудник (A, B) = Ячейки (A, B).  Значение
  Рабочие листы("Лист2").Выбрать
  Ячейки (A, B). Значение = Сотрудник (A, B)
  
  Конец суб 

  Шаг 7: Закройте оба цикла For-Next, начатые для переменных A и B, как показано ниже.

  Код:

   Sub VBA_DeclareArray3()
  
  Dim Employee (от 1 до 5, от 1 до 3) в виде строки
  Dim A как целое число
  Dim B как целое число
  Для А = от 1 до 5
  Для B = от 1 до 3
  Рабочие листы("Лист1").Выбрать
  Сотрудник (A, B) = Ячейки (A, B). Значение
  Рабочие листы("Лист2").Выбрать
  Ячейки (A, B). Значение = Сотрудник (A, B)
  Следующий Б
  Следующий А
  
  Конец суб 

  Шаг 8:  Теперь запустите код, нажав клавишу F5 или нажав кнопку воспроизведения. Мы увидим, что данные из Sheet1 теперь загружаются в Sheet2 в том же формате, что и в Sheet1.

  Плюсы Excel VBA Declare Array

  • Код легко написать и реализовать.
  • Это работает как копирование данных и вставка их куда угодно в соответствии с нашими потребностями.