VBA: Создание и Обработка Массивов

Содержимое статьи:

• Создание Одномерного Массива из Целочисленных Значений
• Вывод Всех Положительных Элементов Массива
• Подсчет Количества Положительных Элементов

Создание Одномерного Массива из Целочисленных Значений

В VBA можно создать одномерный массив из N целочисленных значений следующим образом:

Dim arr() As Integer

Dim N As Integer

N = 10

ReDim arr(N - 1)  ' Изменяем размер массива для хранения N значений

' Заполняем массив случайными целыми числами

For i = 0 To N - 1

arr(i) = Int((N + 1) * Rnd())

Next i

Вывод Всех Положительных Элементов Массива

Чтобы вывести все положительные элементы массива в Excel, можно использовать следующий код:

Dim i As Integer

Dim count As Integer

' Перебираем все элементы массива

For i = 0 To N - 1

' Условие для положительных элементов

If arr(i) > 0 Then

Debug.Print arr(i)  ' Выводим положительный элемент

count = count + 1  ' Увеличиваем счетчик положительных элементов

End If

Next i

Подсчет Количества Положительных Элементов

Для подсчета количества положительных элементов в массиве можно использовать переменную-счетчик count, которая увеличивается на 1 каждый раз при нахождении положительного элемента. В конце цикла значение count содержит количество положительных элементов.